- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm1 = class(TForm)
- Memo1: TMemo;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- const
- FilePath = 'C:/Temp/My.ini';
- //寫入 Ini 文件, 如果指定文件路徑不存在會自動建立
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- WritePrivateProfileString('段1', 'Key1', '值1', PChar(FilePath));
- WritePrivateProfileString('段1', 'Key2', '值2', PChar(FilePath));
- WritePrivateProfileString('段2', 'Key1', '值1', PChar(FilePath));
- end;
- //把寫入結果顯示在 Memo 看看
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- if not FileExists(FilePath) then Exit;
- Memo1.Lines.LoadFromFile(FilePath);
- end;
- //讀取測試
- procedure TForm1.Button3Click(Sender: TObject);
- var
- buf: array[Byte] of Char; {準備接受緩衝區}
- begin
- GetPrivateProfileString('段1', 'Key2', '默認值', buf, Length(buf), PChar(FilePath));
- ShowMessage(buf);
- end;
- end.
API讀寫ini文件
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.