php3man
(مبرمج جديد)
**

تاريخ الإنتساب : 05-02-2010
تاريخ الميلاد : 01-01-1987 (32 العمر)
التوقيت المحلي : 21-10-2020 في 03:50 PM
الحالة : غير متصل

php3man معلومات المنتدى
إنضم إلينا : 05-02-2010
آخر زيارة 02-03-2017, 10:37 PM
إجمالي المشاركات : 41 (0.01 مشاركات في اليوم الواحد | 0.09 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 22 (0.01 مواضيع في اليوم | 0.25 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 2 ساعات, 17 دقائق, 19 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 4 (0 0.06 per day | 7249 percent of total 0.06)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 0 (0 0 per day | 7269 percent of total 0)
(Find All Thanked ThreadsFind All Thanked Posts)
  
كاشف USB Drive‏ 3
كاشف USB Drive‏ دلفي والتعامل مع النظام و الذاكرة
[align=center]بسم الله الرحمن الرحيم

يوم بعد يوم نتقدم باللغه
أنصح كل مبتدأ بالدوره

دورة دروس دلفي للعرب

اليوم نستعرض برنامج صغير يقوم بكشف اذا كان يو أس بي متواجد بنظام

كود :
procedure TForm1.Button1Click(Sender: TObject);
var Flash : Char ;
begin
for Flash := 'A' To 'Z' do
if GetDriveType(Pchar(Flash + ':\')) = 2 Then
  Memo1.Lines.Add(Flash + ':\');
end;

end.

هنا الكود

بتقدر تغير بدل

if GetDriveType(Pchar(Flash + ':\')) = 2 Then

تجعها

if GetDriveType(Pchar(Flash + ':\')) = 3 Then
او

if GetDriveType(Pchar(Flash + ':\')) = 4 Then

علي حسب المراد
أستكشاف الدريافات كلها
أسكتشاف السي دي روم وما الي ذلك

[CODE] DRIVE_UNKNOWN = 0;
{$EXTERNALSYM DRIVE_UNKNOWN}
DRIVE_NO_ROOT_DIR = 1;
{$EXTERNALSYM DRIVE_NO_ROOT_DIR}
DRIVE_REMOVABLE = 2;
{$EXTERNALSYM DRIVE_REMOVABLE}
DRIVE_FIXED = 3;
{$EXTERNALSYM DRIVE_FIXED}
DRIVE_REMOTE = 4;
{$EXTERNALSYM DRIVE_REMOTE}
...