ShellExecute, Response fra url

hvis du ved hvad vinduet hedder når det er helt åbent kan det løses på den "lame" måde:

Var
hand:thandle;
begin
hand := ShellExecute(Handle,'open',PChar('http://www.hotmail.com'),pchar(''),pchar(''),SW_SHOWNORMAL);

repeat
if findwindow(nil, 'MSN Hotmail - More Useful Everyday - Microsoft Internet Explorer') = hand then
begin
Showmessage('Er loadet nu');
end;
until findwindow(nil, 'MSN Hotmail - More Useful Everyday - Microsoft Internet Explorer') = hand;

end;

Har ikke testet den, syntes somsagt også at den ikke er god. Men i nødstilfælde...

Er det <title> i html koden, eller er det incl microsoft explorer osv.
Jeg prøvede lige, men det virkede ikke.

Er det ikke muligt at loade siden ind i et komponent i delphi så`?
Og så bare relatere til den igennem det?

brug Twebbrowser

Den har også en Ondocumentcomplete event.

Stoney

Ok Stoney > Kan du give et eksempel?? Det er lang tid siden jeg har arbejdet med delphi, og jeg kender ikke Twebbrowser

Drop en edit1, button,twebbrowser
Twebbrowser er ikonet længst til venstre på fanebladet Internet

procedure TForm1.Button2Click(Sender: TObject);
begin
//her hopper vi til URL der står i edit1
webbrowser1.Navigate(edit1.Text);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
// popup når siden er indlæst
showmessage('Siden er loaded');
end;

Stoney

ups,
ikonet er længst til højre på fanebladet internet

Stoney

WOW. Det må jeg nok sige, 1000 tak for den fine løsning Stoney