| |
|
|
| Manchmal benötigt uno una Función el como XProfan FindWindow-Función funktioniert aber en varios Hilos y por lo tanto como nProc.
Gibt en Vorhandensein uno Fensters, dessen Überschrift con S beginnt, en lugar de 0 dessen Handle zurück.
nProc findWindowX(cadena s){
caso s=="" : volver 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)
disponer(long(lst,8))
disponer(lst)
volver h
}
nProc findWindowX.enumProc(long wnd,lst){
PushAll
long r=getWindowTextLength(wnd),\
l=long(lst,12)
if r<l {
PopAll
volver true
}
ifnot r==getWindowText(wnd,long(lst,8),511) {
PopAll
volver true
}
if char(long(lst,4),0,l)==char(long(lst,8),0,l) {
long lst&,0=wnd
PopAll
volver falso
}
PopAll
volver true
}
|
|
|
| |
|
|
|
| Statt el Función XProfan.FindWindow a nennen erscheint me nun FindWindowX passender -
son sí el FindWindow- y el FindWindowEx-API -
como passt sí FindWindowX wobei el X sólo para XProfan en lugar de "Extended" es y API-Bezeichnungen kanns así auch no kollidieren. |
|
|
| |
|
|