Fehler bei in Registry schreiben

[turboPASCAL]

Eher so:

Delphi-Quellcode:

program KonsoleXYZ;

uses
  Windows, SysUtils, Registry;  // <--<< HKEY_CURRENT_USER in Windows.pas !

var
  Reg: TRegistry;

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    // Application.Exename <--<< das selbe nur ohne Forms.pas
    // >>--> ExtractFileName(ParamStr(0))
    Reg.WriteString(ExtractFileName(ParamStr(0)), ParamStr(0));
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end.

// Edit: Ach menno Christian... hättest du auch vor meinem Cacheupdate schreiben können.