Minimizza sulla TaskBar
'minimize to taskbar
Const GWL_HWNDPARENT=-8
Const HWND_DESKTOP=0
Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(hwnd as Long, nIndex as Long, dwNewLong as Long) as Long
create form as qform
center
end create
SetWindowLong(Form.Handle, GWL_HWNDPARENT, HWND_DESKTOP)
SetWindowLong(Application.Handle, GWL_HWNDPARENT, Form.Handle)
form.showmodal
|