INICIALIZAÇÃO DO WINDOWS

vIA REG. DO WINDOWS:

procedure AdicWin;
var S,s2, GFr:string;
Reg: TRegIniFile;
begin
Reg:=TRegIniFile.Create(´Soft´);
S := ExtractFileDir(Application.ExeName);
S2 := ExtractFileName(Application.ExeName);
GFr:= S;

S := S+´\´+S2;
reg.RootKey := HKEY_USERS;
reg.Openkey(´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Sistema de XXX´, s);
reg.CloseKey;
reg.Free;
End;