home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / SYSINFO.ZIP / SYINFDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-14  |  2KB  |  69 lines
  1. unit SyInfDlg;
  2. {---------------------------------------------------------------------------------}
  3. {                                                                                 }
  4. { TSystemInformationDialog                                                        }
  5. {                                                                                 }
  6. { A dialogue that shows some information about the current system.                }
  7. {                                                                                 }
  8. { Freeware.  Use it at your own risk.                                             }
  9. {                                                                                 }
  10. { S Armstrong     13/1/96                                                         }
  11. { 100717.3531@compuserve.com                                                      }
  12. {---------------------------------------------------------------------------------}
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, SysInfo;
  19.  
  20. type
  21.   TSystemInformationDlg = class(TForm)
  22.     Panel2: TPanel;
  23.     Panel3: TPanel;
  24.     Label7: TLabel;
  25.     Label8: TLabel;
  26.     Panel4: TPanel;
  27.     Label9: TLabel;
  28.     Label10: TLabel;
  29.     Panel5: TPanel;
  30.     Label14: TLabel;
  31.     Bevel1: TBevel;
  32.     BitBtn1: TBitBtn;
  33.     Panel1: TPanel;
  34.     Label1: TLabel;
  35.     Label2: TLabel;
  36.     SystemInfo1: TSystemInfo;
  37.     SystemInfo2: TSystemInfo;
  38.     SystemInfo3: TSystemInfo;
  39.     SystemInfo4: TSystemInfo;
  40.     SystemInfo5: TSystemInfo;
  41.     SystemInfo6: TSystemInfo;
  42.     SystemInfo7: TSystemInfo;
  43.     Label3: TLabel;     
  44.     SystemInfo10: TSystemInfo;
  45.     Label4: TLabel;
  46.     SystemInfo11: TSystemInfo;                                     
  47.     Label5: TLabel;
  48.     SystemInfo12: TSystemInfo;
  49.     Panel6: TPanel;
  50.     Label6: TLabel;
  51.     Label16: TLabel;
  52.     Label11: TLabel;
  53.     Label12: TLabel;
  54.     SystemInfo15: TSystemInfo;
  55.     SystemInfo14: TSystemInfo;
  56.     SystemInfo9: TSystemInfo;
  57.     SystemInfo13: TSystemInfo;
  58.   private
  59.     { Private declarations }
  60.   public
  61.     { Public declarations }
  62.   end;
  63.  
  64. implementation
  65.  
  66. {$R *.DFM}
  67.  
  68. end.
  69.