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;