home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / utility / applau13 / resource.pas < prev    next >
Pascal/Delphi Source File  |  1996-02-14  |  2KB  |  68 lines

  1. unit Resource;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   TResourceForm = class(TForm)
  11.     Timer1: TTimer;
  12.     Panel1: TPanel;
  13.     Date: TLabel;
  14.     Time: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     Label5: TLabel;
  18.     User: TLabel;
  19.     GDI: TLabel;
  20.     Sys: TLabel;
  21.     Mem: TLabel;
  22.     procedure Timer1Timer(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   ResourceForm: TResourceForm;
  32.  
  33. implementation
  34.  
  35. uses Main;
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TResourceForm.Timer1Timer(Sender: TObject);
  40. const
  41.   MonthName : array[1..12] of String[3] = ('Jan','Feb','Mar','Apr','May','Jun',
  42.                                            'Jul','Aug','Sep','Oct','Nov','Dec');
  43. var
  44.   MyNow   : TDateTime;
  45.   dy, dm,
  46.   dd, dw  : Word;
  47. begin
  48.   MyNow := Now;
  49.  
  50.   DecodeDate(MyNow,dy,dm,dd);
  51.   dw := DayOfWeek(MyNow);
  52.  
  53.   User.Caption := Format('%.2d%%',[GetFreeSystemResources(GFSR_UserResources)]);
  54.   GDI.Caption := Format('%.2d%%',[GetFreeSystemResources(GFSR_GDIResources)]);
  55.   Sys.Caption := Format('%.2d%%',[GetFreeSystemResources(GFSR_SystemResources)]);
  56.   Mem.Caption := Format('%dk',[GetFreeSpace(0) div 1024]);
  57.   Date.Caption := Format('%.2d-%s-%.2d',[dd,MonthName[dm],dy mod 100]);
  58.   Time.Caption := TimeToStr(MyNow);
  59. end;
  60.  
  61. procedure TResourceForm.FormClose(Sender: TObject;
  62.   var Action: TCloseAction);
  63. begin
  64.   MainForm.Toggle1.Checked := False;
  65. end;
  66.  
  67. end.
  68.