استغلال Sript VBS في الدلفي لاستخراج الرقم التسلسلي للقرص

[me_delphi]

هناك دالة اسمها GetVolumeInformation وهي تجلب لنا عدة معلومات من بينها الرقم التسلسلي وهدا مثال
لطريقة استعمالها

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  VolSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
  SerialNumber: string;
begin
  GetVolumeInformation('h:\',
                       nil,
                       0,
                       @VolSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := IntToHex(HiWord(VolSerialNumber), 4) +
                  '-' +
                  IntToHex(LoWord(VolSerialNumber), 4);
  ShowMessage(SerialNumber);
end;