سریال هارد

[negaryes1363555]

سلام
من در برنامه ام احتیاج به گرفتن سریال هارد دارم برام مهمه هارد از نوعSATA باشه اگر سورس این برنامه را دارید برام بفرستید
با تشکر

[nice boy]

قبلا بارها بحث شده، باید جستجو کنی. ولی چون اولین پست شماست راهنماییت می کنم
از کامپوننت HddInfo استفاده کن می تونی از آدرس زیر دانلود کنی .
http://artsoft.nm.ru/
نمونه کد:


function HDDSerial():string;
var
ii: integer;
begin
DMMain.HDD.Method := gimAuto;
for ii :=0 to 7 do
begin
try
case ii of
0:DMMain.HDD.Drive:=dPrimaryMaster;
1:DMMain.HDD.Drive:=dPrimarySlave;
2:DMMain.HDD.Drive:=dQuaternaryMaster;
3:DMMain.HDD.Drive:=dQuaternarySlave;
4:DMMain.HDD.Drive:=dSecondaryMaster;
5:DMMain.HDD.Drive:=dSecondarySlave;
6:DMMain.HDD.Drive:=dTertiaryMaster;
7:DMMain.HDD.Drive:=dTertiarySlave;
end;
case DMMain.HDD.HDDType of
dtFixed:
if DMMain.HDD.isIDE then
if DMMain.HDD.Serial[1] <> #0 then
if Trim(DMMain.HDD.Serial)<>'' then
begin
Result:=DMMain.HDD.Serial;
Break;
end;
end;
except
end;
end;

end;

[Delphi Coder]

تمامی کدهایی که در net برای این کار وجود دارند با ویندوز ویستا به مشکل میخورن که یا باید به شکل Run as administrator اجرا بشه یا باید یه manifest به ریسورسش اضافه کنید که پیش فرض تو این مد اجرا بشه. البته این هم باز توی بعضی از ویستاها جواب نمیده که اکثرا رو سیستمهای labtop هست حدود 6~9% اونها و میشه گفت روش مطمئنی که رو همه ویندوزهای ویستا جواب بده وجود نداره.
در ضمن رو ویندوز سرور 2003 با هارد sci من هیچ کدی ندیدم که جواب بده.

[MSHService]

سلام
با اجازه بزرگان
شما میتونید از کامپوننته Disk Control -> Disk info استفاده کنید.
من تو Vista چک نکردم ببینم جواب میده یا نه!!
موفق باشید.

[nice boy]

تمامی کدهایی که در net برای این کار وجود دارند با ویندوز ویستا به مشکل میخورن
کامپوننت و کدی رو که معرفی کردم روی سیستمهای مختلف از جمله lobtop امتحان کردم و جواب داده، در ویندوزهای مختلف مثل Vista و حتی Windows7 هم امتحان کردم درست کار میکنه.
هاردهای sata و sata2 رو هم ساپورت میکنه.:خجالت:
هنوز روی windows server2003 و هاردهای scsi امتحان نکردم.:متفکر:

[Delphi Coder]

پستی که من تو این تاپیک داشتم نتیجه تست روی هزاران PC و Labtop بود با انواع سورس و کامپوننت ها از delphi و c اگر فکر می کنید درست نیست نادیده بگیرید. براتون آرزوی موفقیت دارم.

[mossaferin]

http://barnamenevis.org/forum/showthread.php?t=144785

این کد رو هم من همه جوره تست کردم البته بجز هاردهای scsi

[nice boy]

این هم یک کامپوننت جدیده که تازه پیداش کردم قابلیتهای زیادی داره. حتما دانلود کنید پشیمون نمیشید. علاوه بر سریال هارد اطلاعاتی از دیگر سخت افزارها هم میده :لبخندساده:
http://www.magsys.co.uk/delphi/magwmi.asp