procedure Form1.SaveParms(fForm: TForm);
var
MemoryStream: TMemoryStream;
FormRect: TRect;
begin
MemoryStream := TMemoryStream.Create;
FormRect := Bounds(fForm.Left, fForm.Top, fForm.Width, fForm.Height);
MemoryStream.Write(FormRect, SizeOf(FormRect));
MemoryStream.WriteAnsiString(lEditFile.Text);
MemoryStream.Position := 0;
sFilename := ExtractFilePath(ParamStr(0)) + ChangeFileExt({$I %FILE%}, '.parm');
MemoryStream.SaveToFile(sFilename);
MemoryStream.Free;
end;
procedure Form1.ReadParms(fForm: TForm);
var
MemoryStream: TMemoryStream;
FormRect: TRect;
sFilename: String;
begin
sFilename := ExtractFilePath(ParamStr(0)) + ChangeFileExt({$I %FILE%}, '.parm');
if FileExists(sFilename) = False then Exit;
MemoryStream := TMemoryStream.Create;
MemoryStream.LoadFromFile(sFilename);
MemoryStream.Position := 0;
MemoryStream.Read(FormRect, SizeOf(FormRect));
fForm.SetBounds(FormRect.Left, FormRect.Top, FormRect.Width, FormRect.Height);
lEditFile.Text := MemoryStream.ReadAnsiString;
MemoryStream.Free;
end;