ID Process Detector 1.0

Hmm…kali ini saya akan membuat suatu tutorial bagaimana meng-kill process melalui Process ID (PID), tidak seperti biasanya yang menggunakan FindWindow itu merupakan teknik kill program dengan membaca caption / judul pada jendela program, tetapi fungsi tersebut tidak akan berkutik dimana tidak terdapat caption pada suatu jendela program ato caption yang dibuat secara random, sebagai contoh tempelkan kode berikut pada saat FormCreate :


var

i : integer;

begin

Randomize

Form1.Caption := IntToStr(Random(1000000));

end;

Dengan kode seperti di atas, apabila menggunakan fungsi FindWindow, program yang captionnya random tidak akan dapat di Kill karena bagaimanapun juga captionnya akan berubah-ubah terus khan???

Untuk itu, kita perlu mendeteksi suatu ID Process dimana akan terbentuk ketika suatu program dieksekusi, untuk memulainya kita buka Delphi kesayangan kita dan kita buat suatu project baru dimana nantinya akan muncul sebuah form dan kita desain dengan gambar sebagai berikut :

tambahkan uses TLHelp32 terlebih dahulu

Kode Untuk Button1 yaitu button yang mempunyai Caption “GetList” adalah sebagai berikut :


procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
Struct: TProcessEntry32;
begin
ListView1.Items.Clear;
MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Struct.dwSize:=Sizeof(TProcessEntry32);
if Process32First(MyHandle, Struct) then
begin
with ListView1.Items.Add do
begin
Caption := Struct.szExeFile;
SubItems.Add(IntToStr(Struct.th32ProcessID));
end;
end;
while Process32Next(MyHandle, Struct) do
begin
with ListView1.Items.Add do
begin
Caption := Struct.szExeFile;
SubItems.Add(IntToStr(Struct.th32ProcessID));
end;
end;
end;


Kode di atas adalah digunakan untuk memulai pemanggilan proses2 yang ada, nantinya dapat kita lihat di desain form bahwa kolom pertama daftar process adalah menunjukkan nama proses program sedangkan kolom kedua menunjukkan ID process tersebut. selanjutnya kita buat kode kill program yang ditembelkan pada Button2 (pasti tau kan harusnya yang mana) yaitu dengan kode sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);
begin
if Listview1.ItemIndex < 0 then exit;

TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),StrToInt(ListView1.Selected.SubItems[0])),0);
Button1.OnClick(Self);
end;


Selanjutnya kita akan membuat tombol untuk informasi program yang ditempelkan pada Button3, berikut ini adalah kodenya :


procedure TForm1.Button3Click(Sender: TObject);
begin
Application.MessageBox('ID Process Detector 1.0' + #13 +
'============================' + #13 +
'Created by Tigor Mangatur Manurung A.k.A n3o_cybertech','Informasi',MB_OK or MB_ICONINFORMATION);
end;


Setelah itu silahkan anda mencoba menjalankannnya, apabila telah benar maka seharusnya hasilnya adalah sebagai berikut :

Apabila anda telah berusaha dan gagal terus, Saya sarankan pada anda untuk mendownload file ini :

Download Proyek Jadi