delphi樹立、讀取、存貯INI文件的辦法《二》。本站提示廣大學習愛好者:(delphi樹立、讀取、存貯INI文件的辦法《二》)文章只能為提供參考,不一定能成為您想要的結果。以下是delphi樹立、讀取、存貯INI文件的辦法《二》正文
從.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停止異或操作,或許倒取反
值...詳細的要看你怎樣完成了.總之,本文章只拋磚引玉而已.