欢迎来到入门教程网!

Delphi

当前位置:主页 > 软件编程 > Delphi >

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

来源:本站原创|时间:2020-01-10|栏目:Delphi|点击:


从.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;

当然,这十分容易并破解,你可以用XOR进行异或操作,或者倒取反
值...具体的要看你怎么实现了.总之,本文章只抛砖引玉罢了. 

上一篇:插件管理框架 for Delphi(二)

栏    目:Delphi

下一篇:delphi 正弦曲线图

本文标题:delphi建立、读取、存贮INI文件的方法《二》

本文地址:https://www.xiuzhanwang.com/a1/Delphi/8669.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有