Ich habs jetzt so gemacht, danke für die Windowsunit, genau an der lags:
Delphi-Quellcode:
program Project1;
uses
Registry, Windows;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('Start', ParamStr(0){<-außerdem ist das hier der Wert für den Registryeintrag;)});
Reg.CloseKey;
finally
Reg.Free;
end;
end.
Mir hat ParamStr(0) gereicht, ExtractFileName brauch ich nicht, oder?