还是修改注册表吧。
在 HKEY_CURRENT_USER/ControlPanel/International
下面,是关于注册表的读写操作:
procedure TF_cshcssz.SpeedButton1Click(Sender: TObject);
var
reg:Tregistry;
begin
//////////////////////////////
Reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/Software/QHMIS',False) then//如果已经存在键值
begin
Reg.WriteString('ODBC别名',combobox1.text);
Reg.WriteString('数据库用户名',edit1.text);
Reg.WriteString('数据库密码',maskedit1.text);
end
else//如果不存在,就新增一个
begin
Reg.CreateKey('/Software/QHMIS');
Reg.OpenKey('/Software/QHMIS',False);
Reg.WriteString('ODBC别名',combobox1.text);
Reg.WriteString('数据库用户名',edit1.text);
Reg.WriteString('数据库密码',maskedit1.text);
end;
//////////////////////////