كيف استطيع محاكاة نافذة send to الخاصة بالويندوز عن طريق دلفي ؟

[you_per7]

الصورة توضح رسالة الخطأ

[Najy Ibraheem]

السلام عليكم...

السبب هو الاختلاف في تفسير Char بين نسختي دلفي. لديك أحد حلين:

1. أضف حرف W على نهاية اسم الدالة GetVolumeInformation لتصبح GetVolumeInformationW.

2. أو استعمل Char بدل WideChar و PChar بدل PWideChar (في تعريف المتغيرات و في سطر استدعاء الدالة GetVolumeInformation).

* أعتقد أن الطريقة الأولى (إضافة حرف W) أنجح مع Delphi 7.

سلام.

[you_per7]

الصورة تظهر البرنامج بعد حل الاشكال السابق
لا أدري أين الخلل.... فالاسم لا يظهر

الصورة الثانية لخلل عند تشغيل البرنامج ... و قد قمت بحذف السطر كي يعمل البرنامج.... و لست أدري ان كان له دور هام

[محمد عبد العزيز]

الحل الثاني احسن

كود :

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);

[you_per7]

حل الاشكال ...................كل شيء تمام
بارك الله فيك أخي B.M.AbdelAziZ و الشكر موصول للأخ Najy Ibraheem

[محمد عبد العزيز]

تأكد أكثر
جرب برنامجك باصدارات ويندوز مختلفة
Windows XP/7/8 و 32/64Bits

[you_per7]

شكرا على التنبيه.........
سيتم التأكد من باقي الاصدارات لاحقا