unit1.~pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DiskInfo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Button4: TButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetDiskCount()));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  s : string;
begin
  setLength(s, 30);
  GetComputerID(PChar(s));
  ShowMessage(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  diskInfo : DISK_INFO;
begin
  GetDiskInfo(@diskInfo, StrToIntDef(Edit1.Text, 1));
  Memo1.Clear;
  Memo1.Lines.Add('Controller:'+ diskInfo.stController + '   ' + diskInfo.stIDEDrive);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Drive Model:  ' + diskInfo.stModelNumber);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Drive Serial ID:  ' + diskInfo.stSerialNumber);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Drive Controller Revision ID:  ' + diskInfo.stControllerRevisionNumber);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Drive Type:  ' + diskInfo.stDriveType);
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Controller Buffer Size on Drive:  ' + IntToStr(diskInfo.dwBufferSize) + ' B');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Physical Geometry:');
  Memo1.Lines.Add('    Cylinders:  ' + IntToStr(diskInfo.dwCylinders));
  Memo1.Lines.Add('    Heads:  ' + IntToStr(diskInfo.dwHeads));
  Memo1.Lines.Add('    Sectors per track:  ' + IntToStr(diskInfo.dwSectorsPerTrack));
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Sectors: ' + IntToStr(diskInfo.iSectors));
  Memo1.Lines.Add('');
  Memo1.Lines.Add('Drive size: ' + IntToStr(diskInfo.iBytes div 1024 div 1024));

end;

procedure TForm1.Button4Click(Sender: TObject);
var
  s : string;
begin
  setLength(s, 30);
  GetControllerType(PChar(s));
  ShowMessage(s);
end;

end.