ايران ويج

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

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

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

مثال

کد: 
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:\') ;

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

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

The.Ghost

lord_viper

The.Ghost

lord_viper