کتابخانه تابع GetPhysicalDriveModelName

[loo30fer]

با سلام
من از این تابع GetPhysicalDriveModelName تو برنامم میخوام استفاده کنم ولی دلفی روی این تابع خطا میگیره فکرم میکنم که این به خاطر نبود Uses مربوطش باشه ممنون میشم راهنمایی کنید که اشکال از چیست اگرم از کتابخانش هست ممنون میشم نام کتابخانش رو بگین. با تشکر

[یوسف زالی]

سلام.
فکر می کنم این تابع در VB باشه و در دلفی چیزی مثل GetDriveType ...
اگر زبان مبدا رو بگید راحت تر میشه نظر داد.

[loo30fer]

راستش من این کد رو توی یکی از انجمن های خارجی برای تشخیص درایوهای Virtual پیدا کردم.
function IsVirtualDrive: Boolean;
var
sModelNames: Array[0..3] of String;
sDriveModelName: String;
I: Integer;
begin
sDriveModelName := GetPhysicalDriveModelName;
sModelNames[0] := 'VBOX HARDDRIVE';
sModelNames[1] := 'QEMU HARDDISK';
sModelNames[2] := 'VMWARE VIRTUAL IDE HARD DRIVE';
sModelNames[3] := 'VIRTUAL HD';
for i := 0 to 3 do
if UpperCase(sDriveModelName) = sModelNames[i] then
Result := True; //Virtual Drive Found :eek::eek:
end;

[یوسف زالی]

به نقل از Google:
http://designcode.chforum.net/t141-vb6detect-vmware-virtualbox-virtualpc-qemu-anubis-and-threat-expert

به زبان VB.
فکر کنم راحت بشه تبدیلش کرد.