아래 내용을 잘 살펴보면 실행중인 IExplorer의 History를 제거할 수도 있을것 같은데...
function SetIEURL( URL : String; ToFront : Boolean ) : HWND;
var
H, H2, IEFrame: HWND;
begin
IEFrame:=FindWindow('IEFrame', nil);
H2:=FindWindowEX(IEFrame, 0, 'WorkerA', nil);
H:=FindWindowEX(H2, 0, 'ReBarWindow32', nil);
H2:=FindWindowEX(H, 0, 'ComboBoxEx32', nil);
H:=FindWindowEX(H2, 0, 'Combobox', nil);
H2:=FindWindowEX(H, 0, 'Edit', nil);
if H2 = 0 then
begin
Result:=False;
Exit;
end;
SendMessage(H2, WM_SETTEXT, Length(URL), LongInt(URL));
SendMessage(H2, WM_KEYDOWN, 13, 0);
if ToFront then
SetForegroundWindow(IEFrame);
Result:=True;
end;
|