نام درایو

[The.Ghost]

با سلام
می خواستم از دوستان بپرسم کسی میدونه که نام درایو باید چطوری در دلفی پیدا کرد؟؟
منظورم این هست که برای مثال: فلش من Silicon Power هست بعد از این که وصل کردم به کامپیوتر یک تابع ای می خواهم که اسم درایو بدم بعد اون تابع اسم فلش که Silicon Power هست برگردونه؟؟ حالا اگه شماره سریال هم بگردونه که چه بهتر میشه.

لطفا دوستان در این زمینه راهنمایی کنید؟

[lord_viper]

خب اینها رو باید با استفاده از توابع ویندوز انجام بدین

مثال

کد:

function FindVolumeSerial(const Drive : PChar) : string;
var
   VolumeSerialNumber : DWORD;
   MaximumComponentLength : DWORD;
   FileSystemFlags : DWORD;
   SerialNumber : string;
begin
   Result:='';

   GetVolumeInformation(
        Drive,
        nil,
        0,
        @VolumeSerialNumber,
        MaximumComponentLength,
        FileSystemFlags,
        nil,
        0) ;
   SerialNumber :=
         IntToHex(HiWord(VolumeSerialNumber), 4) +
         ' - ' +
         IntToHex(LoWord(VolumeSerialNumber), 4) ;

   Result := SerialNumber;
end; (*FindVolumeSerial*)

~~~~~~~~~~~~~~~~~~~~~~~~~

Usage is simple:

~~~~~~~~~~~~~~~~~~~~~~~~~

کد:

var
   C_DriveSerNumber : string;
...
C_DriveSerNumber := FindVolumeSerial('c:\') ;

[The.Ghost]

این کد من قبلا هم امتحان کردم، درسته ولی وقتی فلش فرمت می کنی کدی که قبلا داده تغییر می کنه؟

[lord_viper]

قطعا تغییر میکنه
شماره سریال فیزیکی هارد رو میتونی با استفاده از دستورات WMI بدست بیاری کلاس و وابع آمادش برای دلفی هست