Как расположить GUI на рабочий стол

[Zaramot]

В RocketDock есть такая функция "Расположить на рабочий стол".

Спойлер

Можно ли как-то GUI так расположить ?

 

[Yashied]

В английской версии, это называется "Always on bottom".

#Include <WinAPI.au3>
#Include <WindowsConstants.au3>

$hForm = GUICreate('MyGUI', 400, 400, 100, 100, $WS_SYSMENU)
_WinAPI_SetParent($hForm, WinGetHandle('[CLASS:Progman;TITLE:Program Manager]'))
GUISetState(@SW_SHOWNOACTIVATE)

Do
Until GUIGetMsg() = -3

 

[Zaramot]

Спасибо Yashied, иногда мне кажется что это вы придумали Autoit

 

[Ganibal95]

Yashied
Если прибить Explorer, и включить заново, то окно пропадает.
Не помогает даже так:

Global $hDesktop = WinGetHandle('[CLASS:Progman;TITLE:Program Manager]')
Global $tDesktop = -1

$Panel = GUICreate('', @DesktopWidth+1, 20, 0, 0, $WS_POPUP)
GUISetState(@SW_SHOWNA)

While 1
	$hDesktop = WinGetHandle('[CLASS:Progman;TITLE:Program Manager]')
	if $hDesktop > 0 And $hDesktop <> $tDesktop Then
		_WinAPI_SetParent($Panel, $hDesktop)
		$tDesktop = $hDesktop
	EndIf
	Sleep(1)
WEnd

Как быть?

 

[joiner]

#Include <WinAPI.au3>
#Include <WindowsConstants.au3>

$hForm = GUICreate('MyGUI', 400, 400, 100, 100, $WS_SYSMENU)
_WinAPI_SetParent($hForm, WinGetHandle('[CLASS:Progman;TITLE:Program Manager;CLASS:SysListView32; INSTANCE:1]'))
GUISetState(@SW_SHOWNOACTIVATE)

Do
Until GUIGetMsg() = -3

интересный момент. добавил значения, окно стало обычным, но не пропадает при выгрузке explorer.exe. осталось его в таком виде закрепить

 

[Ganibal95]

joiner
Это не то, нужно что-бы окно располагалось только на рабочем столе.
И при этом что-бы не пропадало если прибить Explorer.exe.

Если кто знает помогите... Буду очень рад!

 

[Zaramot]

А если так сделать:

#Include <WinAPI.au3>
#Include <WindowsConstants.au3>

$hForm = GUICreate('MyGUI', 400, 400, 100, 100, $WS_SYSMENU)
_WinAPI_SetParent($hForm, WinGetHandle('[CLASS:Progman;TITLE:Program Manager]'))
GUISetState(@SW_SHOWNOACTIVATE)

Do
   If Not ProcessExists('Explorer.EXE') Then Exit ShellExecute(@ScriptFullPath)
Until GUIGetMsg() = -3

Проверять существование процесса (Explorer.EXE) и если его нет то сделать перезапуск.

 

[Ganibal95]

Zaramot
Пере запускаться не оч. хорошо... Нужно искать более лучший способ...

 

[joiner]

_WinAPI_SetParent( WinGetHandle('[CLASS:Progman;TITLE:Program Manager]'),$hForm)

вот так точно не сворачивается