Zitat von
mkinzler:
Binde mal noch Windows ein.
Bin ich dumm...hät ich selber drauf kommen können...DANKE!
Zitat von
dominikkv:
oder du erstellst 2 neue constanten:
Delphi-Quellcode:
const
HKEY_CURRENT_USER = DWORD($80000001);
HKEY_LOCAL_MACHINE = DWORD($80000002);
Mhh jetzt kommt das DWORD unbekannt ist, ich glaub man braucht auch Windows
unit für DWORD. Danke trotzdem.
Nur jetzt noch ne kleine frage.
Das ist jetzt mein kompletter code:
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows;
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 er macht das nur kurz auf und beachtet das writeln oder/und readln nicht. Wieso?