Einzelnen Beitrag anzeigen

delphilevi

Registriert seit: 10. Jan 2006
Ort: Bad Bramstedt
11 Beiträge
 
#2

Re: URL an IE senden der mittels shellexecute erzeugt wurde

  Alt 12. Jan 2006, 14:03
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;
Begrabt mein Hirn an der Biegung des Flusses
  Mit Zitat antworten Zitat