OCX im IE soll IE beenden

[SkinnerLA]

hallo zusammen,

ich hab ein active form in meinem ie auf eine htmlseite eingebettet. nun soll bei einer bestimmten funktion das active control den internet explorer beenden. leider bekomm ich das aber nicht so recht hin ich hab hier einen ideen ansatz aber das funst nicht

function EnumWindowsProc(Handle: HWND; Info: Pointer): boolean; stdcall;
begin
Result := TRUE;
if GetWindowLong(Handle, GWL_HINSTANCE) = LongInt(Info) then
begin
PostMessage(Handle, WM_CLOSE, 0, 0);
Result := FALSE;
end;
end;

procedure CloseAppFromInst(Handle: THandle);
var
HInst: THandle;
begin
HInst:=GetWindowLong(Handle, GWL_HINSTANCE);
EnumWindows(@EnumWindowsProc, LongInt(HInst));
end;

ich hab das gefühl der IE ignoriert alle nachrichten von Active X. kann mir jemand bitte helfen???

Danke im Voraus

[Ralph Dürsen]

Wenn man die Wrapper-Komponente TInternetExplorer verwendet, müßte man den IE mit dem Befehl InternetExplorer1.Quit beenden können, denke ich !
Zuvor sollte man sich allerdings mit dem aktiven IE verbinden;
dies ist im COM-Buch in Kapitel 12.11 InternetExplorer beschrieben !