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: TObject);
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
beginFSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);while integer(ContinueLoop) <> 0 do
begin
memo1.Lines.Add(ExtractFileName(FProcessEntry32.szExeFile));
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;CloseHandle(FSnapshotHandle);
statusbar1.SimpleText:= inttostr(memo1.Lines.Count);
end;
tested on: Delphi 7 yg jalan di XP+SP3
Berikutnya kita kembangkan kode tsb untuk bisa menutup aplikasi berdasarkan nama file exenya. Tunggu saja ya!
demo1.rar (3.4 KiB, 807 hits)
Makasi, moga bermanfaat 🙂
nice share bro…