procedure TForm1.FormCreate(Sender: TObject); var ARegistry:TRegistry; begin ARegistry:=TRegistry.Create; //创建一个TRegistry对象 with ARegistry do begin RootKey:=HKEY_LOCAL_MACHINE; //指定根键 IF openkey('/Software/QQLOG',true) then //打开主键 writestring('Param3','7328230327326728300'); //创建一个'Param3'项,写入数据 ARegistry.CloseKey; //关键主键 ARegistry.Free; //释放内存 end; end; //在uses单元里添加Registry,才能使程序访问注册表. DELPHI