| |
|
|
Rolf Koch | with this procedure can the lever the Desktops sure detect. first internet Explorer_Server inquire (for Webdesktop) and if this not existing whom Standart: SysListView32
Def XFindWindow(2) ! user32,FindWindowA
Def FindWindowEx(4) ! user32,FindWindowExA
Proc GetDesktop
Declare h&
h& = XFindWindow(Progman,0)
h& = FindWindowEx(h&, 0, SHELLDLL_DefView,0)
h& = FindWindowEx(h&, 0, internet Explorer_Server,0)
if h& > 0
Return h&
else
h& = XFindWindow(Progman,0)
h& = FindWindowEx(h&, 0, SHELLDLL_DefView,0)
h& = FindWindowEx(h&, 0, SysListView32,0)
Return h&
endif
ENDPROC
|
|
|
| |
|
|
|
|
getDesktop{
return If(findWindowEx(findWindowEx(FindWindowEx(,,progman,),,SHELLDLL_DefView,),,internet Explorer_Server,)>0,findWindowEx(findWindowEx(findWindowEx(,,progman,),,SHELLDLL_DefView,),,internet Explorer_Server,),findWindowEx(findWindowEx(findWindowEx(,,progman,),,SHELLDLL_DefView,),,SysListView32,))
}
|
|
|
| |
|
|
|
Michael Wodrich | ...and Headerdatei then so
$H windows.ph
Proc Getdesktop
Return If(~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,internet Explorer_Server,0)>0,~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,internet Explorer_Server,0),~FindWindowExA(~FindWindowExA(~FindWindowExA(0,0,progman,0),0,SHELLDLL_DefView,0),0,SysListView32,0))
Endproc
|
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 07/03/05 ▲ |
|
|
|