- mettez Registry dans use
- Procedure RunOnStartUp (SProgTitle,sCmdLine: string;bRunOnce :Boolean);
- var
- sKey :String;
- Reg: TRegIniFile;
- begin
- if ( bRunOnce ) then
- sKey := 'once'
- else
- sKey := '' ;
- Reg := TRegIniFile.Create ('');
- Reg.RootKey := HKEY_LOCALMACHINE;
- Reg.writeString('SOFTWARE\Microsoft'+'\WINDOWS\CurentVersion\Run'+ SKey +#0,sProgTitle,sCmdLine);
- Reg.free;
- Procedure TForm1.FormCreate(Sender:TObject);
- begin
- RunOnStartUp('Hello World','C:\HelloWorld.exe');
- end;
mettez Registry dans use
Procedure RunOnStartUp (SProgTitle,sCmdLine: string;bRunOnce :Boolean);
var
sKey :String;
Reg: TRegIniFile;
begin
if ( bRunOnce ) then
sKey := 'once'
else
sKey := '' ;
Reg := TRegIniFile.Create ('');
Reg.RootKey := HKEY_LOCALMACHINE;
Reg.writeString('SOFTWARE\Microsoft'+'\WINDOWS\CurentVersion\Run'+ SKey +#0,sProgTitle,sCmdLine);
Reg.free;
Procedure TForm1.FormCreate(Sender:TObject);
begin
RunOnStartUp('Hello World','C:\HelloWorld.exe');
end;