+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعل برنامحي يعمل على نسخة الويندوز xp (/showthread.php?tid=7002)
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - hamou1982 - 16-05-2015
السلام عليكم
كيف اجعل برنامجي بعمل على نسخ الويندوز xp فما تحت فقط
وشكر
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - محمد عبد العزيز - 16-05-2015
وعليكم السلام
أولا معرفة اصدار النظام، راجع
http://delphi4arab.net/forum/showthread.php?tid=10820
فان كان احدث من XP لا يعمل برنامجك
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - hamou1982 - 16-05-2015
اشكرك اخي على هذا الرابط المفيد
لكن كل ما احتاجه هو عدم تنفيذ البرنامج عي جهاز لا يحتوي على احد نسخ الويندوز التالية
إذا لم يكن احد هذه النسخ مثيت على الجهاز لايتم تنفيذه
Windows Server 2003 R2 5.2
Windows Server 2003 5.2
Windows XP 64-Bit Edition 5.2
Windows XP 5.1
Windows 2000 5.0
يعني لا يعمل على النسخ
ويندوز7، فيستا، ويندوز8
مع الشرح اين اضع الكود في برنامجي
وبارك الله فيكم
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - Houdini - 16-05-2015
كل نظام له رقم محدد يكون عادة تصاعدي.من نطام الاقدم الي الاحدث
كل ما عليك انك تحصل علي رقم اصدارة نظام و تقارنه مع رقم اخر نسخة يدعمها برنامج
ادا كان اكبر اغلق برنامج او اطهر رسالة تنبيه او.....
ادا كان اصغر شغل برنامج عادي
يمكنك ان تصعها في حدث oncreate مثلاا للفورم رءيسي
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - Agmcz - 16-05-2015
كود :
var
dwVersion: DWORD;
dwMajorVersion: DWORD;
dwMinorVersion: DWORD;
begin
dwVersion := GetVersion;
dwMajorVersion := LoByte(LOWORD(dwVersion));
dwMinorVersion := HiByte(LOWORD(dwVersion));
if not ((dwMajorVersion = 5) and ((dwMinorVersion = 0) or (dwMinorVersion = 1) or (dwMinorVersion = 2))) then
ExitProcess(0);
end;يمكنك وضع الكود قبل إنشاء الفورم.
كيف اجعل برنامحي يعمل على نسخة الويندوز xp - hamou1982 - 17-05-2015
بارك الله فيكم