ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
 serial:dword;
 tmp:dword;
begin
 if GetVolumeInformation('c:\', 0, 0, @serial, tmp, tmp, 0, 0) then
  showmessage(inttohex(serial, 8));

uses ComObj, ActiveX;

function CoInitialize(pvReserved: Pointer): HResult; stdcall;  external 'ole32.dll' name 'CoInitialize';

function GetHDDSerialNum():string;
var
  locator:variant;
  service:variant;
  properties:variant;
  p:IUnknown;
  p1:Olevariant;
  Enum:IEnumVariant;
  Value: Cardinal;
begin
  CoInitialize(nil);
  locator := CreateOleObject('WbemScripting.SWbemLocator');
  service := locator.ConnectServer('.');
  properties := service.ExecQuery('SELECT * FROM Win32_PhysicalMedia');

  p := properties._NewEnum;
  p.QueryInterface(IEnumVariant, Enum);
  Enum.Next(1, p1, Value);
  result := p1.SerialNumber;
  locator := Unassigned;
end;

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