04-23-2012، 04:44 PM
با سورس زیر که با زبان دلفی نوشته شده است میتونید سریال درایور مورد نظرتون رو بدیست بیارید برای استفاده از تابع زیر نیاز به استفاده از یونیت windows هست.
کد:
function HardDiskSerial(const Drive: string): Windows.DWORD;
var
Unused: Windows.DWORD; // unused parameters
PrevErrorMode: Windows.UINT; // stores Windows error mode
begin
// Inhibit system dialog appearing on error
PrevErrorMode := Windows.SetErrorMode(
Windows.SEM_FAILCRITICALERRORS
);
try
Result := 0;
Windows.GetVolumeInformation(
PChar(Drive), nil, 0, @Result, Unused, Unused, nil, 0
);
finally
// Restore old error mode
Windows.SetErrorMode(PrevErrorMode);
end;
end;