var
faceIni: TIniFile;
......
faceini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
//读取内容
HostName:=faceIni.ReadString('Host','HostName','');
Path:=faceIni.ReadString('face','facePath','');
bTopItem:=faceIni.ReadBool('face','TopItem',false);
sOperatorName:=faceIni.ReadString('face','OperatorName','');
try
WinIni:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
//写入内容
WinIni.WriteString('face','facePath',ComboBox1.Text);
WinIni.WriteBool('face','Caption',ManProForm.ToolBar1.ShowCaptions);
WinIni.WriteBool('face','TopItem',ManProForm.bTopItem);
finally
WinIni.Free;
Close;
end;
faceIni: TIniFile;
......
faceini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
//读取内容
HostName:=faceIni.ReadString('Host','HostName','');
Path:=faceIni.ReadString('face','facePath','');
bTopItem:=faceIni.ReadBool('face','TopItem',false);
sOperatorName:=faceIni.ReadString('face','OperatorName','');
try
WinIni:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
//写入内容
WinIni.WriteString('face','facePath',ComboBox1.Text);
WinIni.WriteBool('face','Caption',ManProForm.ToolBar1.ShowCaptions);
WinIni.WriteBool('face','TopItem',ManProForm.bTopItem);
finally
WinIni.Free;
Close;
end;
解决方案 »
- DElphi7做的闹钟怎么打包??急!!!!
- TIniFile很慢吗?
- TSocketConnection组件联接远程计算机提示无效的类别字符串如何解决 (
- F1Book显示图片的问题,有VB的代码,哪位高手能翻译成DELPHI的??
- 流的方式拷贝文件的问题,在线等待.......
- 我想把网站上的论坛内容打包供别人下载,离线浏览,所以想做一个类似行舟做的CSDN的离线浏览器,大家出出主意!
- 请问delphi如何编写手机游戏?
- 请问测试数据库程序时,如何迅速获得海量的数据,是否有专用生成工具呢?
- 看看错在那里?
- 硬件高手请进:
- 关于DELPHI中调用API的问题!
- 如何格式化字符串2002-4-9 7:12:30
lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar)WritePrivateProfileStringA(lpAppName, lpKeyName, lpString, lpFileName: PAnsiChar)
建议使用TiniFile
再 var
iniDb:TIniFile;
USER,PASS,DataSource:String;
begin iniDb := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\db.ini');
USER := iniDb.ReadString('db','user','');
PASS := iniDb.ReadString('db','pass','');
DataSource := iniDb.ReadString('db','DataSource','');
iniDb.Free;