Arsip: Disable Internet Explorer


by doditali in Articles more 15 years ago 1191
//menggunakan komponen timer, atur aja setiap 1 detik maka IE akan tertutup (disable)
//komponen timer , properties interval set menjadi 1
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;

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com