从.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文件中
获取字符的方法
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进行异或操作,或者倒取反
值...具体的要看你怎么实现了.总之,本文章只抛砖引玉罢了.