API读写ini文件

 

1. unit Unit1;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, StdCtrls;
9. type
10. TForm1 = class(TForm)
11.     Memo1: TMemo;
12.     Button1: TButton;
13.     Button2: TButton;
14.     Button3: TButton;
15.     procedure Button1Click(Sender: TObject);
16.     procedure Button2Click(Sender: TObject);
17.     procedure Button3Click(Sender: TObject);
18. end;
20. var
21. Form1: TForm1;
23. implementation
25. {$R *.dfm}
27. const
28. FilePath = 'C:/Temp/My.ini';
30. //写入 Ini 文件, 如果指定文件路径不存在会自动建立
31. procedure TForm1.Button1Click(Sender: TObject);
32. begin
33. WritePrivateProfileString('段1', 'Key1', '值1', PChar(FilePath));
34. WritePrivateProfileString('段1', 'Key2', '值2', PChar(FilePath));
36. WritePrivateProfileString('段2', 'Key1', '值1', PChar(FilePath));
37. end;
39. //把写入结果显示在 Memo 看看
40. procedure TForm1.Button2Click(Sender: TObject);
41. begin
42. if not FileExists(FilePath) then Exit;
43. Memo1.Lines.LoadFromFile(FilePath);
44. end;
46. //读取测试
47. procedure TForm1.Button3Click(Sender: TObject);
48. var
49. buf: array[Byte] of Char; {准备接受缓冲区}
50. begin
51. GetPrivateProfileString('段1', 'Key2', '默认值', buf, Length(buf), PChar(FilePath));
52. ShowMessage(buf);
53. end;
55. end.