Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: SetText: Addresszeile IE
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
|
|
Zitat
|