+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) (/showthread.php?tid=3328)
بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) - Amin_Mansouri - 08-17-2013
درود
در سورس زیر که با دلفی نوشته شده است میتونید با 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)