unit Sistema;

interface

uses Windows, Messages,Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, SysUtils, FileCtrl;

type
  TFormaSistema = class(TForm)
    OKButton: TButton;
    ProgramIcon: TImage;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    PhysMem: TLabel;
    Label4: TLabel;
    FreeRes: TLabel;
    Shape1: TShape;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Panel2: TPanel;
    Label1: TLabel;
    Label5: TLabel;
    Espacio: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaSistema: TFormaSistema;

implementation

{$R *.DFM}

procedure TFormaSistema.FormCreate(Sender: TObject);
var
  MS: TMemoryStatus;
begin
  GlobalMemoryStatus(MS);
  PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
  FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
  Espacio.caption:=FormatFloat('###,###,###,""',DiskFree(0) div 1024) + ' Kbytes.';


  end;


procedure TFormaSistema.Panel2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaSistema.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close;
end;

procedure TFormaSistema.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaSistema.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaSistema.Label6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaSistema.Handle, WM_SYSCOMMAND, $F012, 0);
end;

end.