+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ (/showthread.php?tid=4671)
الصفحات:
1
2
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - you_per7 - 30-10-2012
الصورة توضح رسالة الخطأ
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - Najy Ibraheem - 30-10-2012
السلام عليكم...
السبب هو الاختلاف في تفسير Char بين نسختي دلفي. لديك أحد حلين:
1. أضف حرف W على نهاية اسم الدالة GetVolumeInformation لتصبح GetVolumeInformationW.
2. أو استعمل Char بدل WideChar و PChar بدل PWideChar (في تعريف المتغيرات و في سطر استدعاء الدالة GetVolumeInformation).
* أعتقد أن الطريقة الأولى (إضافة حرف W) أنجح مع Delphi 7.
سلام.
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - you_per7 - 30-10-2012
الصورة تظهر البرنامج بعد حل الاشكال السابق
لا أدري أين الخلل.... فالاسم لا يظهر
الصورة الثانية لخلل عند تشغيل البرنامج ... و قد قمت بحذف السطر كي يعمل البرنامج.... و لست أدري ان كان له دور هام
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - محمد عبد العزيز - 30-10-2012
الحل الثاني احسن
كود :
VolName: array[0..MAX_PATH] of [color=red]Ansi[/color]Char;
PVolName: P[color=red]Ansi[/color]Char;كود :
GetVolumeInformation[color=Red]A[/color](P[color=red]Ansi[/color]Char(AList[Idx]), PVolName, MAX_PATH + 1, nil, MaxCompLen, FSFlags, nil, 0);كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - you_per7 - 30-10-2012
حل الاشكال ...................كل شيء تمام
بارك الله فيك أخي B.M.AbdelAziZ و الشكر موصول للأخ Najy Ibraheem
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - محمد عبد العزيز - 30-10-2012
تأكد أكثر
جرب برنامجك باصدارات ويندوز مختلفة
Windows XP/7/8 و 32/64Bits
كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟ - you_per7 - 30-10-2012
شكرا على التنبيه.........
سيتم التأكد من باقي الاصدارات لاحقا