윈도우 레지스트리 키 중에 Run 이라는 키값이 있습니다. 여기에 실행하고자 하는 프로그램을 등록하면 됩니다.
아래 function을 만들고 불러다 쓰세여.........
function RegisterRun(FileName, FilePath: string): Boolean;
var
Reg: TRegistry;
begin
result := False;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', False) then Exit;
Reg.WriteString(FileName, FilePath);
finally
Reg.Free;
end;
Result := True;
end;
아래 function을 만들고 불러다 쓰세여.........
function RegisterRun(FileName, FilePath: string): Boolean;
var
Reg: TRegistry;
begin
result := False;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', False) then Exit;
Reg.WriteString(FileName, FilePath);
finally
Reg.Free;
end;
Result := True;
end;