本文整理自网络,侵删。
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 判断uefi与 legacy bios启动模式
Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>
Delphi2007-Delphi2010 程序不出现在任务栏的方法
更多相关阅读请进入《Delphi》频道 >>