Kode berikut adalah modifikasi dari kode sebelumnya, memeriksa jumlah aplikasi yang berjalan, sesuai dengan janji saya sebelumnya. Kalo pada artikel menutup aplikasi lain kita mencari aplikasi yang berjalan berdasarkan caption dari aplikasi tersebut, sekarang kita hanya perlu mengetahui nama file exenya saja. berikut adalah kodenya: function KillTask(ExeFileName: ShortString): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result ... Read More

Kode di bawah ini adalah untuk mengetahui program apa saja yang sedang berjalan (seperti kalo kita menekan tombol CTRL+ALT+DEL). Jangan lupa untuk menambahkan unit TlHelp32 pada clausa uses. Tambahkan saja pada form anda komponent Memo dan Button, lalu pada event OnClick dari button isi dengan kode di bawah ini: procedure TForm1.Button2Click(Sender: ... Read More