Was bedeutet dieses Function?

[PeterKiers]

Hallo,

Was bedeutet dieses Function?

Code:

function PRVGetChildHandle(H:HWND; L: Integer): LongBool; 
var p:pchar; 
I:integer; 
s:string; 
begin 
I:=length(ChildText)+2; 
GetMem(p,i+1); 
SendMessage(H,WM_GetText,i,integer(p)); 
s:=strpcopy(p,s); 
if pos(ChildText,s)<>0 then 
begin 
HTemp:=H; 
Result:=False 
end else 
Result:=True; 
FreeMem(p); 
end;

peter kiers
_________________