| |
|
|
| Manchmal necessario man eine Funktion die wie die XProfan FindWindow-Funktion funktioniert aber in mehreren Threads und darum als nProc.
Gibt bei Vorhandensein eines Fensters, dessen Überschrift mit S beginnt, statt 0 dessen Handle zurück.
nProc findWindowX(string s){
case 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)
if r<l {
PopAll
return true
}
ifnot r==getWindowText(wnd,long(lst,8),511) {
PopAll
return true
}
if char(long(lst,4),0,l)==char(long(lst,8),0,l) {
long lst&,0=wnd
PopAll
return false
}
PopAll
return true
}
|
|
|
| |
|
|
|
| Statt die Funktion xprofan.FindWindow zu nennen erscheint mir nun FindWindowX passender -
gibt ja die FindWindow- und die FindWindowEx-API -
da passt ja FindWindowX wobei das X halt per XProfan statt "Extended" steht und mit API-Bezeichnungen kanns so auch nicht kollidieren. |
|
|
| |
|
|