//menggunakan komponen timer, atur aja setiap 1 detik maka IE akan tertutup (disable)
//komponen timer , properties interval set menjadi 1
//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; |
Random Articles
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago