SetText: Addresszeile IE

[DeddyH]

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;