سوال درموردلینک مشخصات کامل درایوها (HDD,USB....)

[khanboloky]

با سلام ازین تابع استفاده کردم وهمانطورکه توضیح داده شده بود توانستم شماره سریال ونام فلش رابرگردانم حال اگریک دستگاه کارت ریدر به کامپیوتر توسط USBمتصل کنم چطور می توانم نام وشماره سریال آنرابرگردانم یا به عبارتی طبق کد نویسی زیربجای H چه بنویسم؟

procedure TForm1.Button1Click(Sender: TObject);
var
hDevice: NativeInt;
Status: BOOLEAN;
ReturnedLength: ULONG;
DevDesc: TSTORAGE_DEVICE_DESCRIPTOR;
begin
hDevice := CreateFile(PChar('\\.\H:'), GENERIC_READ + GENERIC_WRITE,
FILE_SHARE_READ + FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
Status := DeviceIoControl(hDevice, $002D1400, @query, sizeof(query), @DevDesc,
512, cardinal(ReturnedLength), nil);
if Status then
begin
with ListBox1.Items do
begin
Add(Translate_Value(DevDesc, DevDesc.VendorIdOffset));
Add(Translate_Value(DevDesc, DevDesc.ProductIdOffset));
Add(Translate_Value(DevDesc, DevDesc.ProductRevisionOffset));
Add(Translate_Value(DevDesc, DevDesc.SerialNumberOffset));
end;
end;