Mein Programm beim Windowsstart Automatisch starten

[arbu man]

Delphi-Quellcode:

uses Registry;
var  regist:tregistry;

Aufruf

Delphi-Quellcode:

regist:=tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
regist.WriteString('Prog',application.ExeName);