Minggu, 01 November 2009

Delphi - Mengakses Registry Editor

Berikut adalah contoh kode untuk mengakses registry editor melalui program yang dibuat dengan delphi :

procedure TForm1.Button1Click(Sender: TObject);
var ger:TRegistry;
begin
   ger:=TRegistry.Create;
   ger.RootKey:=HKEY_CURRENT_USER;
   ger.OpenKey('Software,Microsoft,Windows, Currentversion,Policies,System',True);
   ger.WriteString('DisableTaskMGR','1');
   ger.CloseKey;
end;

kode di atas akan menambah value data pada HKCU\Software\Microsoft\Windows\Currentversion\Policies\System dengan nama data DisableTaskMGR, type REG_DWORD, dan nilai data = 1, dan akan memblock task manager.

pada uses tambahkan "registry".

..

Search