试一试以下的办法:
var ini :TIniFile;
begin
ini := TIniFile.Create(GetCurrentDir+'\'+'abc.ini');
Label1.Caption := ini.ReadString('NameInfo','Name','');
ini.Free;
end;
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }