Menutup aplikasi berdasarkan file EXE
Posted On 10 Feb 2010 By WiseGuy. Under Programming.
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
No Comments
Memeriksa jumlah aplikasi yang berjalan
Posted On 09 Feb 2010 By WiseGuy. Under Programming.
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
2 Comments