Pin a window to the desktop

[Le Soldat Inconnu]

Hello

How can I pined a window to the desktop ? (Can't minimize the window, the window must be always visible on the desktop, minimize all window can't minimize my window)

I already test this way : Put the desktop as the parent of my window
but it don't work correctly

Code: Select all

If OpenLibrary(0, "User32.dll")
  Bureau = CallFunction(0, "GetShellWindow")
  CloseLibrary(0)
EndIf
OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Pin to desktop", Bureau)

CreateGadgetList(WindowID())

ButtonGadget(0, 0, 0, 100, 100, "Close")

Repeat
  Event = WaitWindowEvent()
  
  If Event = #PB_Event_Gadget
    Select EventGadgetID()
      Case 0
        Event = #PB_EventCloseWindow
    EndSelect
  EndIf
  
Until Event = #PB_EventCloseWindow

Thank for your help[/code]

[KarLKoX]

Code: Select all

If OpenLibrary(0, "User32.dll")
  Bureau = CallFunction(0, "GetShellWindow")
  NouveauBureau = CallFunction(0, "SetShellWindow", Bureau)
  CloseLibrary(0)
EndIf
OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Pin to desktop", Bureau)

CreateGadgetList(WindowID())
ButtonGadget(0, 0, 0, 100, 100, "Close")

Repeat
  Event = WaitWindowEvent()
 
  If Event = #PB_Event_Gadget
    Select EventGadgetID()
      Case 0
        Event = #PB_EventCloseWindow
    EndSelect
  EndIf
 
Until Event = #PB_EventCloseWindow

[Le Soldat Inconnu]

thank you very much

Where do you find the SetDesktopWindow description ? There are nothing in the msdn

[KarLKoX]

Inside the sourcecode of Wine (*nix window emulator/library) wich can be found here

[Le Soldat Inconnu]

But when you click on the desktop and hide all window (Win+D) (where are no window visible), my window is hide

[KarLKoX]

Not mine, it stay on top (I m using XP without theme support)

[Le Soldat Inconnu]

Compile the code, press Win+D, click on the desktop, press Win+D, and the window is hide

I have win XP pro SP2

And it's the same on a Win XP SP1

[KarLKoX]

Erf ! You're right ! I ll dig a little bit to find out why this thing happen

[KarLKoX]

Code: Select all

OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Pin to desktop", Bureau)

If OpenLibrary(0, "User32.dll")
  NouveauBureau = CallFunction(0, "SetShellWindow", WindowID())
  CloseLibrary(0)
EndIf
SetWindowPos_(WindowID(), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE)

CreateGadgetList(WindowID())
ButtonGadget(0, 0, 0, 100, 100, "Close")

Repeat
  Event = WaitWindowEvent()
 
  If Event = #PB_Event_Gadget
    Select EventGadgetID()
      Case 0
        Event = #PB_EventCloseWindow
    EndSelect
  EndIf
 
Until Event = #PB_EventCloseWindow 

It seems to be working correctly this time

[Le Soldat Inconnu]

No, the window is always on top

Just test this, I have the same result

Code: Select all

OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Pin to desktop") 

SetWindowPos_(WindowID(), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE) 

CreateGadgetList(WindowID()) 
ButtonGadget(0, 0, 0, 100, 100, "Close") 

Repeat 
  Event = WaitWindowEvent() 
  
  If Event = #PB_Event_Gadget 
    Select EventGadgetID() 
      Case 0 
        Event = #PB_EventCloseWindow 
    EndSelect 
  EndIf 
  
Until Event = #PB_EventCloseWindow

[KarLKoX]

No, the window is always on top

This isn't what you expected to want ?
I didn't understand what you really want ??

[Le Soldat Inconnu]

I search to obtain a window pined to the desktop, like an icon on the desktop.
Always under windows but always visible when you hide all window with Win+D

[PB]

> Always under windows but always visible when you hide all window with Win+D

It's in the FAQ under "Always on bottom" but here it is again:

Code: Select all

SetParent_(WindowID(),FindWindow_(0,"Program Manager"))

[Le Soldat Inconnu]

Thank you

[KarLKoX]

Thanx you too