procedure TForm1.Button1Click(Sender: TObject);
var IExplorer:THandle;
begin
IExplorer:=FindWindow('IEFrame',nil);
if IExplorer<>0 then
ShowMessage('Internet Explorer est ouvert')
else
ShowMessage('Internet Explorer n''est pas ouvert');
end;