Wykorzystaj EnumWindows do uzyskania uchwytów do okien, GetClassName (albo poniższej GetClass) do sprawdzenia które to są okna explorera (IEFrame) i funkcji:
Function IEGetURL(IEHandle:THandle):String;
Begin
IEHandle:=FindWindowEx(IEHandle,0,'WorkerA',Nil);
IEHandle:=FindWindowEx(IEHandle,0,'rebarwindow32',Nil);
IEHandle:=FindWindowEx(IEHandle,0,'comboboxex32',Nil);
IEHandle:=FindWindowEx(IEHandle,0,'ComboBox',Nil);
IEHandle:=FindWindowEx(IEHandle,0,'Edit',Nil);
Result := GetCaption(IEHandle);
End;
do pobrania URL'a.
Function GetCaption(Handle: hWnd):String;
Var L:Integer;
Buffer:String;
Begin
L:= SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0)+1;
SetLength(Buffer,L);
SendMessage(Handle,WM_GetText,L,Integer(PChar(Buffer)));
Result:=Buffer;
SetLength(Buffer,0)
End;
Function GetClass(Handle: hWnd):String;
Var L:Integer;
Buffer:String;
Begin
SetLength(Buffer,MAX_PATH);
L:=GetClassName(Handle,PChar(Buffer),MAX_PATH);
SetLength(Buffer,L);
Result:=Buffer;
SetLength(Buffer,0);
End;