Funktion in schön und kommentiert:
Delphi-Quellcode:
function PRVGetChildHandle(H:HWND; L: Integer): LongBool;
// Handle und Integer rein
var
p:pchar;
I:integer;
s:
string;
begin
I:=length(ChildText)+2;
// Länge von ChildText (globale Variable/Konstante. Typ: String)
GetMem(p,i+1);
// Speicher holen
SendMessage(H,WM_GetText,i,integer(p));
// Text aus dem Fenster mit dem Handle holen, das wir gekriegt haben
s:=strpcopy(p,s);
// den Text in einen Pascal-String kopieren
if pos(ChildText,s)<>0
then // schauen, ob ChildText irgendwo in dem Text des Fensters vorkommt
begin
HTemp:=H;
// wenn ja, globale Variable HTemp auf das gleiche Handle setzen
Result:=False
// False zurückliefern
end
else
Result:=True;
// falls nö, True zurückliefern
FreeMem(p);
end;
Die Funktion vergleicht also den Text eines Fensters (z.B. die Caption eines Buttons) mit ChildText, und wenn der String enthalten ist, wird false zurückgeliefert und das
Handle des Fensters in HTemp geschrieben.