home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / D34 / MSYSINFO.ZIP / MSysInfo.int < prev   
Text File  |  1999-01-26  |  4KB  |  130 lines
  1. // MiTeC SysInfo 2.2 - ⌐ 1997-99, MichaL MutL
  2. // Delphi 3,4 Non-visual component
  3. // providing system information
  4.  
  5.  
  6.  
  7. unit MSysInfo;
  8.  
  9. interface
  10.  
  11.  
  12. type
  13.   TMSysInfo = class(TComponent)
  14.   public
  15.       constructor Create(AOwner:TComponent); override;
  16.       destructor Destroy; override;
  17.  
  18.       function GetCPUSpeed :extended;
  19.       function GetIPAddress :string;
  20.       function LocalIP :string;
  21.       function GetCPUArc(CPUArchitecture :word) :string;
  22.       function GetCPUType(CPUType :dword) :string;
  23.       function GetMediaType(MediaType :dword) :string;
  24.       function GetOSName(PlatformID :dword) :string;
  25.       function GetLocalIPList :TStrings;
  26.       function GetBootTimeInfo(var LastBoot :tdatetime) :double;
  27.       function GetTicksPerSecond(Iterations :Word) :Comp;
  28.       function GetTimeStamp :_LARGE_INTEGER;
  29.       function GetPriority(p :longword) :string;
  30.       function GetWinLangName: string;
  31.       function FormatSeconds(TotalSeconds :comp; WholeSecondsOnly, DisplayAll, DTFormat :Boolean) :String;
  32.  
  33.       procedure Refresh;
  34.    published
  35.       property About :string;
  36.  
  37. FIXED      property cmpName :string;
  38.       property cmpIPAddress :string;
  39.       property cmpLastBoot :string;
  40.       property cmpBootTime :string;
  41.  
  42.       property cpuArchitecture : WORD;
  43.       property cpuType : DWORD;
  44.       property cpuActiveMask : DWORD;
  45.       property cpuNumber : DWORD;
  46.       property cpuLevel : Word;
  47.       property cpuRevision : Word;
  48.       property cpuVendor : string;
  49.       property cpuVendorID : string;
  50.       property cpuSpeed :extended;
  51.  
  52.       property osMajorVersion: DWORD;
  53.       property osMinorVersion: DWORD;
  54.       property osBuildNumber: WORD;
  55.       property osPlatformId: DWORD;
  56.       property osCSDVersion: string;
  57.       property osMinApplicationAddress: DWORD;
  58.       property osMaxApplicationAddress: DWORD;
  59.       property osVersionName :string;
  60.       property osUser :string;
  61.       property osSerial :string;
  62.       property osRegOrg : string;
  63.       property osRegUser : string;
  64. NEW      property osTimeZone :string;
  65.  
  66.       property vidAdapter :string;
  67.       property vidDAC :string;
  68.       property vidChip :string;
  69.       property vidMemory :integer;
  70.       property vidHorzRes :integer;
  71.       property vidVertRes :integer;
  72.       property vidColorDepth :integer;
  73.  
  74.       property sndAdapter :string;
  75.       property sndWaveIn :string;
  76.       property sndWaveOut :string;
  77.       property sndMIDIIn :string;
  78.       property sndMIDIOut :string;
  79.       property sndAUX :string;
  80.       property sndMixer :string;
  81.  
  82.       property prnName :string;
  83.  
  84.       property monName :string;  //only W95/98
  85.  
  86.       property memTotalPhys : DWORD;
  87.       property memFreePhys : DWORD;
  88.       property memTotalVirtual : DWORD;
  89.       property memFreeVirtual : DWORD;
  90.       property memTotalPageFile : DWORD;
  91.       property memFreePageFile : DWORD;
  92.       property memMemUsage : DWORD;
  93.       property memPageSize : DWORD;
  94.       property memAllocationGranularity : DWORD;
  95.  
  96.       property dskMediaPresent :boolean;
  97.       property dskDiskCount :word;
  98.       property dskSign : char;
  99.       property dskFreeSpace : extended;
  100.       property dskTotalSpace : extended;
  101.       property dskCompressed :boolean;
  102.       property dskSectorsPerCluster :dword;
  103.       property dskBytesPerSector :dword;
  104.       property dskTotalClusters :dword;
  105.       property dskFileSystem :string;
  106.       property dskSerialNumber :dword;
  107.       property dskVolumeLabel :string;
  108.       property dskMediaType :integer;
  109.       property dskAvailableDisks :string;
  110.  
  111.       property biosName :string;
  112.       property biosCopyright :string;
  113.       property biosExtendedInfo :string;
  114.       property biosDate :string read;
  115.       property biosVideoVersion :string;
  116.       property biosVideoDate :string;
  117.  
  118. FIXED      property drxVersion :string;  //in development
  119.  
  120.       property netAdapter :string;
  121.  
  122. NEW      property dbODBCVersion :string;
  123. NEW      property dbBDEVersion :string;
  124.  
  125.       property Name;
  126.       property Tag;
  127. end;
  128.  
  129.  
  130.