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