I can do Always On-Top, but Always *Underneath*?

[Chaoticmass]

I'm working on a shell replacement for windows (for fun) and I'd like to have my 'desktop' stay on the bottom. Are there API calls that can manage this feat?

Thanks in advance.

[da_silvy]

something like:


Private Const HWND_BOTTOM = 1
'Move window Form1 to the upper-left corner of the screen and make
' at appear above all other windows permanently. Note how the function is told not
' to resize the window, so we don't have to worry about the lower-right coordinate.
Dim flags As Long ' the flags specifying how to move the window
Dim retval As Long ' return value

' Do not resize the window, redraw the window in its new location
flags = SWP_NOSIZE Or SWP_DRAWFRAME
retval = SetWindowPos(Form1.hWnd, HWND_BOTTOM, 0, 0, 1, 1, flags) ' move the window


let me know ;)

[Chaoticmass]

I'll give it a shot and see what happens.

[da_silvy]

good luck ;)

[DaoK]

You can try that :

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the window position to topmost
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

[da_silvy]

no you can't

that would set the window to the top of the zorder, right at the top

use my code ;)

[DaoK]

Humm anyways I didnt make that code, it's AllApi.net!

[da_silvy]

Yes, but you didn't tailor it to his needs either!

If you are going to post a variation on what is already there, make it specific and helpful, as my example puts it on the bottom - because i fixed it :rolleyes:

[Hack]

Chaoticmass: Did you try Da_Silvy's suggestion. I'd be interested in what happened.