取得硬盘序列号

function tform1.GetHDSerialNumber: LongInt;    

    {$IFDEF WIN32}

    var

      pdw : pDWord;

      mc, fl : dword;

    {$ENDIF}

    begin

      {$IfDef WIN32}

      New(pdw);

      GetVolumeInformation('c:\',nil,0,pdw,mc,fl,nil,0);

      Result := pdw^;

      dispose(pdw);

     {$ELSE}

      Result := GetWinFlags;

      {$ENDIF}

    end;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

      edit1.Text:=inttostr(gethdserialnumber);

    end;