本文整理自网络，侵删。
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls;
type
TForm7 = class(TForm)
Button1: TButton;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
FileHandle: Integer;
implementation
{$R *.dfm}
procedure TForm7.FormDestroy(Sender: TObject);
begin
FileClose(FileHandle);
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
FileHandle := FileOpen('C:\test.ini',
fmOpenWrite or fmShareDenyNone);
end;
procedure TForm7.Button1Click(Sender: TObject);
var
FIni: TIniFile;
begin
FIni := TIniFile.Create('C:\test.ini');
try
FIni.WriteString('ddd', 'dsadsa', 'dsadsadsadsasada');
finally
FIni.Free;
end;
end;
end.
相关阅读 >>
Delphi idhttpserver接收http get请求解码问题
更多相关阅读请进入《Delphi》频道 >>
