Hola Eze32 , bienvenido a
Club Delphi
Como a todos los ingresan te invitamos a que leas nuestra
guía de estilo.
Código Delphi
[-]
...
procedure TForm1.FormCreate(Sender: TObject);
var
l,t,w,h: Integer;
begin
with TFileStream.Create(ExtractFilePath(Application.ExeName)+'Config.dat', fmOpenRead) do
try
Seek(0, soFromBeginning);
Read(l, SizeOf(integer));
Read(t, SizeOf(integer));
Read(w, SizeOf(integer));
Read(h, SizeOf(integer));
Left := l;
Top := t;
Width := w;
Height := h
finally
Free
end;
end;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with TFileStream.Create(ExtractFilePath(Application.ExeName)+'Config.dat', fmCreate) do
try
Write(Left, SizeOf(integer));
Write(Top, SizeOf(integer));
Write(Width, SizeOf(integer));
Write(Height, SizeOf(integer))
finally
Free
end;
end;
...
Saludos.
Edito: ¿ No te resulta mas sencillo hacerlo con el registro de windows ?