delphi 설정 자동 시작 함수 구체 적 실현

일부 프로그램 은 켜 기 시작 으로 설정 해 야 하기 때문에 스스로 함 수 를 써 서 사용 하기에 편리 합 니 다.참고 하 시기 바 랍 니 다
 
procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; // TRegistry Reg
begin
Reg:=TRegistry.Create;
try //
Reg.RootKey:=HKEY_LOCAL_MACHINE; // HKEY_LOCAL_MACHINE
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//
if ok then begin
Reg.WriteString('SMS ',ExpandFileName(ParamStr(0))); // Reg
ShowMessage(' !');
end
else begin
reg.DeleteValue('SMS ');
ShowMessage(' !')
end;
Reg.CloseKey; //
finally
Reg.Free;
end;
end;
예:SetAutoRun(true);/등록 시작 SetAutoRun(false);/시작 삭제

좋은 웹페이지 즐겨찾기