Also ungefähr so, wie wenn ich ICQ am Desktoprand "andocke".
Die Icons rutschen dann alle nach links/rechts und maximierte Fenster sind nur noch so groß, dass sie den Rand des ICQ Hauptfensters berühren.
Ich hoffe ihr wisst was ich meine

Code: Alles auswählen
SystemParametersInfo_(#SPI_GETWORKAREA,0,r.Rect,0) ;Workarea holen
SetRect_(r1.rect,r\left+200,r\top,r\right,r\bottom);neuees Rechteck setzen
SystemParametersInfo_(#SPI_SETWORKAREA,0,r1,#SPIF_SENDWININICHANGE);Workarea auf neues Rechteck setzen
If OpenWindow(0, 0,0,r1\left-10,r\bottom,"PureBasic Window",#PB_Window_SystemMenu)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
SystemParametersInfo_(#SPI_SETWORKAREA,0,r,#SPIF_SENDWININICHANGE);Workarea zurücksetzen
End