Zitat von
Thorben86:
Einfach so:
Nun ja. Von Fehler abfangen und Ressourcen schützen hältst du wohl nicht viel.
Delphi-Quellcode:
reg:=TRegistry.Create;
try
reg.rootKey:=HKEY_LOCAL_MACHINE;
if reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then // OpenKey ist eine Funktion!!!
begin
reg.writestring('name',verzeichnis+Programmname);
reg.closeKey;
end
else
ShowMessage(SysErrorMessage(GetLastError));
finally
FreeAndNil(reg);
end;
Zu beachten ist noch, das nicht jeder beliebige Benutzer Schreibrechte in
HKLM hat.