getmachineid.dpr

Delphi源码：获取计算机系统的逻辑硬盘号、物理硬盘号、Cpu号、Bios号等等。

program GetMachineID;

uses
  Forms,
  uMain in 'uMain.pas' {Form1},
  GetDSN in 'GetDSN.pas',
  VersionId in 'VersionId.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.