delphi建立、读取、存贮INI文件的方法《三》

王米米 發表於 2008-3-15 18:14:36

delphi建立、读取、存贮INI文件的方法《三》

从.INI文件中获取字符串 　　var 　　strResult:pchar; 　　begin 　　GetPrivateProfileString( 　　´windows´, // []中标题的名字 　　´NullPort´, // =号前的名字 　　´NIL´, // 如果没有找到字符串时，返回的默认值 　　strResult, //存放取得字符 　　100, //取得字符的允许最大长度 　　´c:\forwin95\win.ini´ // 调用的文件名 　　); 　　edit1.text:=strResult; //显示取得字符串 　　从.INI文件中获取整数 　　edit1.text:=inttostr(GetPrivateProfileInt( 　　´intl´, // []中标题的名字 　　´iCountry´, // =号前的名字 　　0,// 如果没有找到整数时，返回的默认值 　　´c:\forwin95\win.ini´ // 调用的文件名 　　)); 　　向.INI文件写入字符串 　　WritePrivateProfileString( 　　´windows´, // []中标题的名字 　　´load´, // 要写入“=”号前的字符串 　　´accca´, //要写入的数据 　　´c:\forwin95\win.ini´ // 调用的文件名 　　); 　　向.INI文件写入整数 　　WritePrivateProfileSection( 　　´windows´, // []中标题的名字 　　´read=100´, // 要写入的数据 　　´c:\forwin95\win.ini´ // 调用的文件名 　　); 　　上面的方法是调用API函数，下面介绍另一种不用API从.INI文件中获取字符的方法 　　var MyIni: TIniFile; 　　begin 　　MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名 　　edit1.text:=MyIni.ReadString(´Desktop´, ´Wallpaper´, ´´);//取得字符 　　end; 　　向.INI文件中写入字符的方法 　　var MyIni: TIniFile; 　　begin 　　MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名 　　DelphiIni.WriteString(´Desktop´, ´Wallpaper´, ´c:\a.bmp´); 　　end;

 <div class="art_xg">
 您可能感兴趣的文章:<ul><li>Delphi实现木马文件传输代码实例</li><li>Delphi用TActionList实现下载文件的方法</li><li>Delphi中判断文件是否为文本文件的函数</li><li>Delphi建立、读取、存贮INI文件的方法《一》</li><li>delphi建立、读取、存贮INI文件的方法《二》</li><li>delphi制作wav文件的方法</li></ul>
 </div>

 </div>

頁: [1]

琼殿技术论坛's Archiver

delphi建立、读取、存贮INI文件的方法《三》