Registry Einträge unter Vista

[DeddyH]

Schreib das mal ein wenig um und steppe dann durch, dann solltest Du sehen, wo es hakt:

Delphi-Quellcode:

procedure DoAppToRun(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then
      begin
        WriteString(RunName, AppName);
        CloseKey;
      end;
  finally
    Free;
  end;
end;

Ungetestet.