var
Myini:TiniFile;
-------
procedure TFrmSystemSet.FormActivate(Sender: TObject);//读取
begin
Myini:=TiniFile.Create(FrmMain.IniName);
if Myini.ReadString('系统设置','本机类别','')='前台' then
RadioButton1.Checked:=True;
if Myini.ReadString('系统设置','本机类别','')='后台' then
RadioButton2.Checked:=True;
Edit1.Text:=Myini.ReadString('系统设置','远程目录','');
Edit5.Text:=Myini.ReadString('系统设置','系统年份',Formatdatetime('yyyy',now));
end;
-------------
procedure TFrmSystemSet.BitBtn1Click(Sender: TObject);//修改
begin
if RadioButton1.Checked=True then
Myini.WriteString('系统设置','本机类别','前台');
if RadioButton2.Checked=True then
Myini.WriteString('系统设置','本机类别','后台');
Myini.WriteString('系统设置','远程目录',Trim(Edit1.Text));
MessageDlg('更新成功,注意不能设置错误哦!'+#13+#13+
'下次启动程序时生效!',mtInformation,[mbOK],0);
end;