Thema: Delphi SetText: Addresszeile IE

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#3

Re: SetText: Addresszeile IE

  Alt 2. Mai 2008, 13:16
Ich habe auch gerade mal WinSpy bemüht
Delphi-Quellcode:
const URL = 'http://www.delphipraxis.net';
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('IEFrame',nil);
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'WorkerW', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ReBarWindow32', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Address Band Root', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ComboBoxEx32', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ComboBox', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Edit', nil);
    if wndChild <> 0 then
    begin
      SendMessage(wndChild,WM_SETTEXT,0,LongInt(PChar(URL)));
    end;
  end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat