28-10-2011, 09:59 PM
كود :
var
Reg: TRegistry;
TheKey: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
if RunOnce then TheKey := TheKey + 'Once';
// Open key, or create it if it doesn't exist
Reg.OpenKey(TheKey, True);
Reg.WriteString(ApTitle, ApPathFile);
Reg.CloseKey;
Reg.Free;
end;
.................................
Examples:
RunOnWinStart('TestProgram', 'c:\test\testprog.exe', True);
RunOnWinStart('Calculator', 'calc.exe', False);