delphi建立、读取、存贮INI文件的方法《二》
<br>从.INI文件中获取字符串<br>var<br>strResult:pchar;<br>begin<br>GetPrivateProfileString(<br>´windows´, // []中标题的名字<br>´NullPort´, // =号前的名字<br>´NIL´, // 如果没有找到字符串时，返回的默认值<br>strResult, //存放取得字符<br>100, //取得字符的允许最大长度<br>´c:\forwin95\win.ini´ // 调用的文件名<br>);<br>edit1.text:=strResult; //显示取得字符串<br>从.INI文件中获取整数<br>edit1.text:=inttostr(GetPrivateProfileInt(<br>´intl´, // []中标题的名字 <br>´iCountry´, // =号前的名字<br>0,// 如果没有找到整数时，返回的默认值<br>´c:\forwin95\win.ini´ // 调用的文件名<br>));<br>向.INI文件写入字符串<br>WritePrivateProfileString(<br>´windows´, // []中标题的名字<br>´load´, // 要写入“=”号前的字符串<br>´accca´, //要写入的数据<br>´c:\forwin95\win.ini´ // 调用的文件名<br>);<br>向.INI文件写入整数<br>WritePrivateProfileSection(<br>´windows´, // []中标题的名字<br>´read=100´, // 要写入的数据<br>´c:\forwin95\win.ini´ // 调用的文件名<br>);<br>上面的方法是调用API函数，下面介绍另一种不用API从.INI文件中<br>获取字符的方法 <br>var MyIni: TIniFile;<br>begin<br>MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名<br>edit1.text:=MyIni.ReadString(´Desktop´, ´Wallpaper´, ´´);//<br>取得字符<br>end;<br>向.INI文件中写入字符的方法<br>var MyIni: TIniFile;<br>begin<br>MyIni := TIniFile.Create(´WIN.INI´);//调用的文件名<br>DelphiIni.WriteString(´Desktop´, ´Wallpaper´, ´c:\a.bmp´);<br>end;<br><br>当然,这十分容易并破解,你可以用XOR进行异或操作,或者倒取反<br>值...具体的要看你怎么实现了.总之,本文章只抛砖引玉罢了. <div class="art_xg">
<b>您可能感兴趣的文章:</b><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>
<!--endmain-->
頁:
[1]