procedure TFrmMain.FormCreate(Sender: TObject);
var
MyReg:TRegistry;
begin
MyReg := TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.KeyExists('Software\MyDelphi') then
begin
if MyReg.CreateKey('Software\MyDelphi') then
begin
if MyReg.OpenKey('Software\MyDelphi',true ) then
begin
MyReg.WriteString('yjw','yuanjiwu');
end;
end;
end
else
if MyReg.OpenKey('Software\MyDelphi',true ) then
begin
MyReg.WriteString('yjw','yuanjiwu');
end;
MyReg.CloseKey;//關閉主鍵
MyReg.Destroy;//釋放記憶體
end;
uj5u.com熱心網友回復：
必須以管理員身份運行程式轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74586.html
標籤：語言基礎/算法/系統設計