procedure RunOnStartup(
sProgTitle, // naziv programa
sCmdLine : string; // komanda kojom se program pokrece
// (navedi apsolutnu putanju do exe)
bRunOnce : boolean ); // True ako program treba samo jednom da se startuje
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then
sKey := 'Once'
else
sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
'Software\Microsoft'
+ '\Windows\CurrentVersion\Run'
+ sKey + #0,
sProgTitle,
sCmdLine );
reg.Free;
end;