| |
|
|
| quelquefois nécessaire on une Funktion qui comment qui XProfan FindWindow-Funktion funktioniert mais dans mehreren Threads et tout autor comme nProc.
Gibt chez Vorhandensein eines Fensters, dessen Überschrift avec S beginnt, statt 0 dessen Handle zurück.
nProc findWindowX(string s){
cas s==» : return 0
long lst=dim(16)
long lst&,0=0,addr(s),dim(512),len(s)
enumWindows(procAddr(findWindowX.enumProc),lst)
long h=long(lst,0)
dispose(long(lst,8))
dispose(lst)
return h
}
nProc findWindowX.enumProc(long wnd,lst){
PushAll
long r=getWindowTextLength(wnd),\
l=long(lst,12)
si r<l {
PopAll
return vrai
}
ifnot r==getWindowText(wnd,long(lst,8),511) {
PopAll
return vrai
}
si char(long(lst,4),0,l)==char(long(lst,8),0,l) {
long lst&,0=wnd
PopAll
return faux
}
PopAll
return vrai
}
|
|
|
| |
|
|
|
| Statt qui Funktion XProfan.FindWindow trop appeler erscheint mir eh bien FindWindowX passender -
gibt oui qui FindWindow- et qui FindWindowEx-API -
là passt oui FindWindowX wobei cela X arrêt pour XProfan statt "Extended" steht et API-Bezeichnungen kanns so aussi pas kollidieren. |
|
|
| |
|
|