Console und registry ?

[k4ni]

Hey leute, ich will eine console application machen die zwei registry einträge löscht.


Ich hab das benützt: (In einer normalen delphi Form)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var regist: TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Runonce', true);
  regist.DeleteValue('Ad-killer');
  regist.free;
  regist.RootKey:=HKEY_LOCAL_MACHINE;
  regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Runonce', true);
  regist.DeleteValue('Ad-killer');
  regist.free;
end;

und dann hab ich den code in der console appliction so:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Registry;

var regist: TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Runonce', true);
  regist.DeleteValue('Ad-killer');
  regist.free;
  regist.RootKey:=HKEY_LOCAL_MACHINE;
  regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Runonce', true);
  regist.DeleteValue('Ad-killer');
  regist.free;
  writeln('done');
  readln;
end.

Doch der compiler gibt mir den error:

Delphi-Quellcode:

[Error] Project2.dpr(11): Undeclared identifier: 'HKEY_CURRENT_USER'
[Error] Project2.dpr(15): Undeclared identifier: 'HKEY_LOCAL_MACHINE'

Ich versteh ihn eigentlich schon, doch was kann ich machen damit es geht?