| php3man معلومات المنتدى |
| إنضم إلينا : |
05-02-2010 |
| آخر زيارة |
02-03-2017, 10:37 PM |
| إجمالي المشاركات : |
41 (0.01 مشاركات في اليوم الواحد | 0.08 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
|
| اجمالي المواضيع : |
22 (0 مواضيع في اليوم | 0.23 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
|
| فترة البقاء متصل : |
2 ساعات, 17 دقائق, 19 ثواني |
| الأعضاء المحالين: |
0 |
|
4 (0 0.04 per day | 11074 percent of total 0.04)
( — )
|
|
0 (0 0 per day | 11106 percent of total 0)
|
|
|
|
|
|
|
| كاشف USB Drive |
11-02-2010, 10:46 PM |
3 |
|
|
| كاشف USB Drive |
منتديات دلفي التقنية
دلفي والتعامل مع النظام و الذاكرة
|
|
| بسم الله الرحمن الرحيم
يوم بعد يوم نتقدم باللغه
أنصح كل مبتدأ بالدوره
دورة دروس دلفي للعرب (http://www.delphi4arab.net/forum/forumdisplay.php?f=27)
اليوم نستعرض برنامج صغير يقوم بكشف اذا كان يو أس بي متواجد بنظام
كود :
--
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
علي حسب المراد
أستكشاف الدريافات كلها
أسكتشاف السي دي روم وما الي ذلك
كود :
--
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}
DRIVE_CDROM = 5;
...
|
|
