关于INI文件的检测,高手请进! 你用Getprivateprofileint这个函数 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 varStrResult: array[0..256] of Char;beginGetPrivateProfileString('windows', 'run', nil, strresult, 256, 'c:\windows\win.ini'); Edit1.text := StrResult; 其中windows是[]中标题的名字nullport是=号前的名字nil是在没找到值的情况下返回的值strresult是存放取得的字符256是最大长度 首先在Uses 中添加 IniFiles单元;function GetDEF:boolean;var MyIni:TIniFile;begin MyIni:=TIniFile.Create('XXXX.ini'); GetDEF:=MyIni.ReadBool('ABC', 'DEF', True); MyIni.Free;end;值为1时,GetDEF函数返回True值为0时,GetDEF函数返回False ListView和TreeView相互拖拉问题 关于combobox change事件发生后光标的位置的问题 delphi2006控件集合! 关于报表的问题,高手指点下 ★★★§§ODAC安装的问题 急!急!急!(在线等待)§§★★★ 使用断点续传的问题,急 ̄ ̄ 怎样制做安装程序 有谁知道传奇的服务器地址是怎样获取的?? 定时器的问题 想做一段公用程序计算任何三个数想乘,是做成组件好还是函数好? 使用radiogroup组件怎么获取被选中的一项的内容?急!!! 200大分求教!
StrResult: array[0..256] of Char;
begin
GetPrivateProfileString('windows', 'run', nil, strresult, 256, 'c:\windows\win.ini');
Edit1.text := StrResult;
nullport是=号前的名字
nil是在没找到值的情况下返回的值
strresult是存放取得的字符
256是最大长度
var MyIni:TIniFile;
begin
MyIni:=TIniFile.Create('XXXX.ini');
GetDEF:=MyIni.ReadBool('ABC', 'DEF', True);
MyIni.Free;
end;值为1时,GetDEF函数返回True
值为0时,GetDEF函数返回False