procedure AtorunSktsrvr(RunFileName, RunKey: string);
var
RegFile: TRegistry;
begin
RegFile:=TRegistry.Create();
try
RegFile.RootKey:=HKEY_LOCAL_MACHINE;
if RegFile.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',false) then
RegFile.WriteString(RunKey,RunFileName);
finally
RegFile.CloseKey;
RegFile.Free;
end;
end;
var
RegFile: TRegistry;
begin
RegFile:=TRegistry.Create();
try
RegFile.RootKey:=HKEY_LOCAL_MACHINE;
if RegFile.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',false) then
RegFile.WriteString(RunKey,RunFileName);
finally
RegFile.CloseKey;
RegFile.Free;
end;
end;