[Amin_Mansouri]

درود
در سورس زیر که با دلفی نوشته شده است میتونید با API  GetLogicalDriveStrings   لیست درایورهای موجود بر روی سیستم رو بدست اورید بدون نیاز به ابزار با چند خط کد
سورس کد :

کد پی‌اچ‌پی:

procedure GetDriveLetters(AList: TStrings);
var
  vDrivesSize: Cardinal;
  vDrives    : array[0..128] of Char;
  vDrive     : PChar;
begin
  AList.BeginUpdate;
  try
    // clear the list from possible leftover from prior operations
    AList.Clear;
    vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
    if vDrivesSize=0 then Exit; // no drive found, no further processing needed

    vDrive := vDrives;
    while vDrive^ <> #0 do
    begin
      AList.Add(StrPas(vDrive));
      Inc(vDrive, SizeOf(vDrive));
    end;
  finally
    AList.EndUpdate;
  end;
end; 


دانلود سورس کد :

  GetDriveLetters(www.parsicoders.com).zip (اندازه 9.96 KB / تعداد دانلود: 27)