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 := '';