Código para Pegar Serial Fisico em Pascal

program GetIDEHDDInfo;

uses
  CRT, DOS;

type
  ArraySTR = array[0..255] of Byte;

const
  WhichDrv: array[1..2] of Word = ($A0, $B0);

var
  NumDrv: Word absolute $0040: $0075; { BIOS info on how many HDD you have }
  Regs: Registers;
  Data: ArraySTR;
  DataOff: Byte;
  Loop: Integer;

function GetString(InData: ArraySTR; OffStart, OffEnd: Byte): string;
var
  TempSTR: string;
  I: Byte;
begin
  TempSTR := ´´;
  for I := OffStart to OffEnd do
    TempSTR := TempSTR + Char(InData[I]);
  GetString := TempSTR;
end;

begin
  ClrScr;
  WriteLn(´You have ´, NumDrv, ´ Hard Disk(s).´);
  for Loop := 1 to NumDrv do
  begin
    WriteLn(´  Info on Hard Disk ´, NumDrv, ´ is:´);
    while Port[$01F7] <> $50 do ; { Wait For controller not busy }
    Port[$01F6] := WhichDrv[Loop]; { Get first/second drive }
    Port[$01F7] := $EC; { Get drive info data }
    while Port[$01F7] <> $58 do ; { Wait for data ready }
    for DataOff := 0 to 255 do { Read "sector" }
      Data[DataOff] := Port[$01F0];
    WriteLn(´    Model Number: ´, GetString(Data, 27, 46));
    WriteLn(´    Serial Number: ´, GetString(Data, 10, 19));
  end;
end.