Minggu, 21 September 2008

MEMBUAT ANTIVIRUS KECIL DARI DELPHI

Anti virus merupakan hal yang sangat ditunggu-tunggu. Bagi penggemar DELPHI nih, ada sedikit source untuk membuat anti virus kecil yang sangat sederhana yang bisa buat dengan menggunakan bahasa pemrograman Delphi. Sourcenya sebagai berikut :

procedure TForm1.ButtonClick(Sender:TObject);
var
hwPrv:HWND;
begin
Application.Initialize;
hwPrv:=FindWindow('TForm1','Warrior');
if hwPrv<>0 then
begin
ShowWindow(hwPrv,10);
ShowMessage('Hey my job here it'z over!!!No you have reveald the worm.');
Application.Terminate;
end;
ShowMessage('Nope you don't have the worm');
Application.Run
end.

1 komentar:

Anonim mengatakan...

tipu tipu...