+- 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)
+---- موضوع: سورس کد بدست اوردن لیست درایوهای موجود (دلفی) (/showthread.php?tid=2164)
سورس کد بدست اوردن لیست درایوهای موجود (دلفی) - Amin_Mansouri - 04-23-2012
با سرس زیر میتونید راحت لیست درایوهای سستمتن رو بدست بیارید برای استفاده از تابع زیر نیاز به استفاده از یونیت windows , SysUtils , Classes میباشد.
سورس کد :
کد:
procedure ListDrives(const List: Classes.TStrings);
var
Drives: PChar; // buffer for list of drives
BufSize: Integer; // size of drive buffer
begin
// Get buffer size and allocate it
BufSize := Windows.GetLogicalDriveStrings(0, nil);
GetMem(Drives, BufSize * SizeOf(Char));
try
// Get #0 delimited drives list and convert to string list
if Windows.GetLogicalDriveStrings(BufSize, Drives) = 0 then
SysUtils.RaiseLastOSError;
MultiSzToStrings(Drives, List);
finally
FreeMem(Drives);
end;
end;RE: سورس کد بدست اوردن لیست درایوهای موجود (دلفی) - momtazan - 12-06-2012
سلام و عرض خسته نباشید
سیستم از این ایراد میگیره MultiSzToStrings
پیغام Undiclared identifire
باید چیکار کنم ؟
RE: سورس کد بدست اوردن لیست درایوهای موجود (دلفی) - Amin_Mansouri - 12-06-2012
درود
سلامت باشی
یه مثال دیگه :
drives-validdrives(www.parsicoders.com).zip (اندازه 2.04 KB / تعداد دانلود: 9)