Ver Mensaje Individual
  #2  
Antiguo 31-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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 ?
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 31-05-2013 a las 17:22:32.
Responder Con Cita