从.INI文件中获取字符串

var

strResult:pchar;

begin

GetPrivateProfileString(

´windows´,//[]中标题的名字

´NullPort´,//=号前的名字

´NIL´,//如果没有找到字符串时，返回的默认值

strResult,//存放取得字符

100,//取得字符的允许最大长度

´c:forwin95win.ini´//调用的文件名

);

edit1.text:=strResult;//显示取得字符串

从.INI文件中获取整数

edit1.text:=inttostr(GetPrivateProfileInt(

´intl´,//[]中标题的名字

´iCountry´,//=号前的名字

0,//如果没有找到整数时，返回的默认值

´c:forwin95win.ini´//调用的文件名

));

向.INI文件写入字符串

WritePrivateProfileString(

´windows´,//[]中标题的名字

´load´,//要写入“=”号前的字符串

´accca´,//要写入的数据

´c:forwin95win.ini´//调用的文件名

);

向.INI文件写入整数

WritePrivateProfileSection(

´windows´,//[]中标题的名字

´read=100´,//要写入的数据

´c:forwin95win.ini´//调用的文件名

);

上面的方法是调用API函数，下面介绍另一种不用API从.INI文件中

获取字符的方法

varMyIni:TIniFile;

begin

MyIni:=TIniFile.Create(´WIN.INI´);//调用的文件名

edit1.text:=MyIni.ReadString(´Desktop´,´Wallpaper´,´´);//

取得字符

end;

向.INI文件中写入字符的方法

varMyIni:TIniFile;

begin

MyIni:=TIniFile.Create(´WIN.INI´);//调用的文件名

DelphiIni.WriteString(´Desktop´,´Wallpaper´,´c:a.bmp´);

end;

当然,这十分容易并破解,你可以用XOR进行异或操作,或者倒取反

值...具体的要看你怎么实现了.总之,本文章只抛砖引玉罢了.