Console und registry ?

[k4ni]

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?