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?