Arsip: Disable Internet Explorer

procedure TForm1.Timer1Timer(Sender: TObject);
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow('IEFrame',nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_close,0);
end;
//gunakan sembarang komponen utk panggil tuh timer
// misal di komponen button
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;