08-17-2013، 09:56 AM
درود
در سورس زیر که با دلفی نوشته شده است میتونید با API GetLogicalDriveStrings لیست درایورهای موجود بر روی سیستم رو بدست اورید بدون نیاز به ابزار با چند خط کد
سورس کد :دانلود سورس کد :
[attachment=460]
در سورس زیر که با دلفی نوشته شده است میتونید با 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;
[attachment=460]