Moin Yheeky,
Du solltest aber auch prüfen, ob die jeweiligen Aufrufe auch erfolgreicht waren, ausserdem fehlen die Resourcenschutzblöcke, z.b. so:
Delphi-Quellcode:
// Anwendung in die Registry eintragen...
procedure DoAppToRun(RunName, AppName: string);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then exit;
try
Reg.WriteString(RunName, AppName);
finally
Reg.CloseKey;
end;
finally
FreeAndNil(Reg);
end;
end;
Ausserdem gehören solche Registrierungen auch ins Setup, und nicht ins Programm
