- 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文件
最新推荐文章于 2022-10-19 10:15:24 发布