• 45 Vote(s) - 2.58 Average
  • 1
  • 2
  • 3
  • 4
  • 5
بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی)
#1
درود
در سورس زیر که با دلفی نوشته شده است میتونید با API  GetLogicalDriveStrings   لیست درایورهای موجود بر روی سیستم رو بدست اورید بدون نیاز به ابزار با چند خط کد
سورس کد :
PHP Code:
procedure GetDriveLetters(AListTStrings);
var
  
vDrivesSizeCardinal;
  
vDrives    : array[0..128of 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(vDriveSizeOf(vDrive));
    
end;
  finally
    
AList.EndUpdate;
  
end;
end
دانلود سورس کد :

.zip   GetDriveLetters(www.parsicoders.com).zip (Size: 9.96 KB / Downloads: 27)
 

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  دلفی و تلگرام h_mohamadi 2 2,204 04-24-2017، 12:14 AM
Last Post: shilanaseri
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 3,596 08-14-2014، 06:11 PM
Last Post: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 6,531 07-30-2014، 05:45 PM
Last Post: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 27,367 01-31-2014، 04:27 PM
Last Post: Amin_Mansouri
  بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) Amin_Mansouri 2 8,525 08-23-2013، 10:06 PM
Last Post: mo_coders
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 5,264 08-17-2013، 09:44 AM
Last Post: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 3,617 08-17-2013، 09:35 AM
Last Post: Amin_Mansouri
  سورس کد بازی بیلیارد به زبان دلفی Amin_Mansouri 0 7,580 06-16-2013، 08:36 PM
Last Post: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 3,504 06-11-2013، 08:21 PM
Last Post: Amir AMS
  نحوه نصب کامپوننت ها در دلفی Amin_Mansouri 2 9,169 05-25-2013، 11:40 PM
Last Post: Amin_Mansouri

Forum Jump:


Users browsing this thread: 1 Guest(s)