Zitat von
sakura:
Delphi-Quellcode:
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
if not Reg.ValueExists('Walli') then
Reg.WriteString('Walli', ParamStr(0));
finally
Reg.Destroy;
end;
Die Katze hat ihren Code korrigiert
Greetz
alcaeus