• 104 Vote(s) - 2.34 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)
 
  Reply


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

Forum Jump:


Users browsing this thread: 1 Guest(s)