+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : تمرين: معرفة اصدار نظام التشغيل. (/showthread.php?tid=6322)
الصفحات:
1
2
تمرين: معرفة اصدار نظام التشغيل. - piratewar - 27-07-2014
السلام عليكم ورحمة الله
حاولت اعادة بناء ملف الريسورس بواسطة lazres كما هو موضح في موقع ميكروزفت والنتيجة بالمرفقات ملف تنفيذي بانتظار التجربة لأني حاليا استخدم windows 7 ولايوجد مساحة على الhard disk لvirtual os
وقمت بكتابة حل آخر باستخدام الفئة tprocess لإرسال أمر الحصول على بيانات النظام الحالي و استقبال الناتج في مكون label في انتظار تقييمك
أرفقت الملفات بالسورس للحل الجديد وكل عام وانتم جميعا بخير
تمرين: معرفة اصدار نظام التشغيل. - Insid3Code - 28-07-2014
و عليكم السلام و رحمة الله
للأسف اخي piratewar لم يتم دمج ملف Configuration الخاص في التطبيق الذي ارفقت مما ادى الى اظهار رسالة تقول ان اصدار النظام 6.2
صورة لتطبيقك:
و من المفروض ان تظهر بعد اضافة ملف الــ Configuration هكذا:
اما بخصوص التطبيق الثاني anotherWay فانه يظهر رسالة الخطأ التالية، سواء تم التنفيذ asUser او asAdmin:
إقتباس :Failed to execute cmd ver: 2
تمرين: معرفة اصدار نظام التشغيل. - ANAS AL OTAIBI - 28-07-2014
الله لا يهينك سويت واحد أن شاء الله يعمل على 8
جربه ورد لي خبر .. شكرا لك على ملاحظتك اخي Insid3Code ..(نظامي 7)
PHP كود :
http://www.gulfup.com/?vPJo4P
تمرين: معرفة اصدار نظام التشغيل. - Insid3Code - 29-07-2014
ما هو باص فك الضغط اخي الكريم ؟
تمرين: معرفة اصدار نظام التشغيل. - ANAS AL OTAIBI - 29-07-2014
Insid3Code كتب :ما هو باص فك الضغط اخي الكريم ؟
اعذرني لقد نسيته
pass:ANAS
تمرين: معرفة اصدار نظام التشغيل. - Insid3Code - 30-07-2014
للأسف التطبيق لا يرجع رقم الاصدار الصحيح الخاص بــ Windows 8.1 - 6.3
تمرين: معرفة اصدار نظام التشغيل. - Insid3Code - 17-11-2014
السلام عليكم و رحمة الله
معذرة على التأخير، و آسف على هذا الرذ السريع....
اوامر الفحص:
PHP كود :
#include <windows.h>
#include <stdio.h>
#define WIN_10 0x0604
int iWinMain() {
OSVERSIONINFOEXA osVersionInfoExA = {0};
osVersionInfoExA.dwMajorVersion = HIBYTE(WIN_10);
osVersionInfoExA.dwMinorVersion = LOBYTE(WIN_10);
if (VerifyVersionInfoA(
&osVersionInfoExA,
VER_MAJORVERSION | VER_MINORVERSION,
NULL))
printf("Windows 10 Found!\n");
getchar();
return 0;
}
osVersionInfoExA
2- نمرر المعلومات التي نريد فحصها، رقم اصدار النظام 10 في اعضاء الــ Structure
3- نستدعي الدالة VerifyVersionInfoA و نضيف قاعدة التحققVER_MAJORVERSION | VER_MINORVERSION و نفحص ما ترجعه..
4- اظهار نتيجة الفحص في حالة تحقق الفحص.
ملاحظة:
المثال فوق مكتوب بالسي بلص بلص و يمكن ترجمته بكل سهولة الى لغة دلفي
...من فهمه يشاركنا بكود 100% دلفي...