일부 프로그램은 부팅 시 시작되도록 설정해야 하므로 나중에 참고할 수 있도록 함수를 작성했습니다.
다음과 같이 코드 코드를 복사합니다.
절차 TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //먼저 TRegistry 유형의 변수 Reg를 정의합니다.
시작하다
등록:=TRegistry.Create;
try //새 키 만들기
Reg.RootKey:=HKEY_LOCAL_MACHINE; //루트 키를 HKEY_LOCAL_MACHINE으로 설정합니다.
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//키 열기
괜찮다면 시작해 보세요
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Reg 키에 데이터 이름과 데이터 값을 씁니다.
ShowMessage('등록이 완료되었습니다!');
끝
그렇지 않으면 시작하다
reg.DeleteValue('SMS 서비스');
ShowMessage('삭제 성공!')
끝;
Reg.CloseKey; //키 닫기
마지막으로
등록무료;
끝;
끝;
예:
SetAutoRun(true); //등록 시작
SetAutoRun(false); //시작 삭제