diskinfo.pas

这是一个古语软硬件信息好程序

unit DiskInfo;

interface
    uses windows;
type
  DISK_INFO = record
    stController      : array[0..49] of char;
    stIDEDrive        : array[0..39] of char;
    stModelNumber     : array[0..99] of char;
    stSerialNumber    : array[0..99] of char;
    stControllerRevisionNumber : array[0..99] of char;
    dwBufferSize      : DWORD;
    stDriveType       : array[0..29] of char;
    dwCylinders       : DWORD;
    dwHeads           : DWORD;
    dwSectorsPerTrack : DWORD;
    iSectors          : int64;
	iBytes            : int64;
  end;
  PDISK_INFO = ^DISK_INFO;

  function  GetDiskCount():integer; stdcall;
  procedure GetComputerID(pstComputerID:PChar); stdcall;
  procedure GetControllerType(pstControllerType:PChar); stdcall;
  procedure GetDiskInfo(pDiskInfo:PDISK_INFO; piDiskIndex:integer = 1); stdcall;
  
implementation
  const DLL_NAME = 'DiskInfo.dll';
  function  GetDiskCount;       external DLL_NAME name 'GetDiskCount';
  procedure GetComputerID;      external DLL_NAME name 'GetComputerID';
  procedure GetControllerType;  external DLL_NAME name 'GetControllerType';
  procedure GetDiskInfo;        external DLL_NAME name 'GetDiskInfo';
end.