procedure TMainForm.SetAutoRun(ok: boolean);
var
Reg:TRegistry; //首先定義一個TRegistry類型的變量Reg
begin
Reg:=TRegistry.Create;
try //創(chuàng)建一個新鍵
Reg.RootKey:=HKEY_LOCAL_MACHINE; //將根鍵設(shè)置為HKEY_LOCAL_MACHINE
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//打開一個鍵
if ok then begin
Reg.WriteString('SMS服務(wù)',ExpandFileName(ParamStr(0))); //在Reg這個鍵中寫入數(shù)據(jù)名稱和數(shù)據(jù)數(shù)值
ShowMessage('注冊成功！');
end
else begin
reg.DeleteValue('SMS服務(wù)');
ShowMessage('刪除成功！')
end;
Reg.CloseKey; //關(guān)閉鍵
finally
Reg.Free;
end;
end;