URL an IE senden der mittels shellexecute erzeugt wurde

[delphilevi]

hmm so geht's schon fast,

das ergebnis findet sich bei gründlicher suche in delphi + c++ foren :)
der fenstertitel ist die ie-instanz, die ich mit einer neuen url versorgen moechte
dank an thomas stutz
findcontrolbynumber funzt merkwuerdigerweise nicht daher der umweg ueber findwindowex

der code schreibt die url in die url-leiste aber die return-tasten-simulation

Delphi-Quellcode:

 
SendMessage(hadr, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(hadr, WM_KEYUP, VK_RETURN, 0);

mag nicht ... kann mir jemand sagen warum oder den goldenen link senden :-D

Delphi-Quellcode:

function sende_url(const Fenster_Titel:string; const logout_url : string): boolean;
var Whandle,child,ctl,
    hadr  : HWND;
begin
  sende_url := false;
  Whandle:=FindWindowbyTitle(Fenster_Titel);
  if Whandle=0 then exit
  else begin
    child := FindWindowEx(Whandle,0,'WorkerW',0);
    if child = 0 then exit
    else begin
     ctl := FindWindowEx(child,0,'ReBarWindow32',0);
     if ctl = 0 then exit
     else begin
      hadr := FindWindowEx(ctl,0,'ComboBoxEx32',0);
      if hadr = 0 then exit
      else begin
        SendMessage(hadr, WM_SETTEXT, 0, Integer(PChar(logout_url)));
        SendMessage(hadr, WM_KEYDOWN, VK_RETURN, 0);
        SendMessage(hadr, WM_KEYUP, VK_RETURN, 0);
        sende_url := true;
        exit;
      end;
     end;
    end;
  end;
end;