Über Delphi zu Windows Register??

[mkinzler]

Ändere den Code mal so ab

Delphi-Quellcode:

procedure RunOnStartup(sTitel, sBefehl: String; bEinmalig: Boolean);
var   sKey: String;
begin
  if bEinmalig then sKey := 'RunOnce'
  else sKey := 'Run';
  With TRegistry.Create do begin
    Access := KEY_ALL_ACCESS;
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\' + sKey, false);
    WriteString(sTitel, sBefehl);
    free;
  end;
end;