No Money No Honey

程式範例

uses
     inifiles;

procedure TForm1.btn3Click(Sender: TObject);
var
   inifile: TInifile;
   iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
   //獲取當前程式的路徑
   //sAppPath:=ExtractFilePath(Application.ExeName);
   iniFileName:='testset.ini'; //設定ini檔案儲存名稱

  inifile:=TInifile.Create('INI\'+iniFileName); //執行目錄下的 INI目錄內建立 testtest.ini

  //寫配置資訊
   inifile.writeString('TESTSET','123','Pictures'); // 大標籤[TESTSET] , 底下的 123=Picture 參數
   inifile.writeString('TESTSET','456','Music');

  //讀取配置資訊
   sImageDir:=inifile.readString('TESTSET','123',''); //讀取[TESTSET]底下 123='' 的''字串值
   sMusicDir:=inifile.readString('TESTSET','456','');

end;