السلام عليكم ورحمة الله
حاولت اعادة بناء ملف الريسورس بواسطة lazres كما هو موضح في موقع ميكروزفت والنتيجة بالمرفقات ملف تنفيذي بانتظار التجربة لأني حاليا استخدم windows 7 ولايوجد مساحة على الhard disk لvirtual os
وقمت بكتابة حل آخر باستخدام الفئة tprocess لإرسال أمر الحصول على بيانات النظام الحالي و استقبال الناتج في مكون label في انتظار تقييمك
أرفقت الملفات بالسورس للحل الجديد وكل عام وانتم جميعا بخير
و عليكم السلام و رحمة الله
للأسف اخي piratewar لم يتم دمج ملف Configuration الخاص في التطبيق الذي ارفقت مما ادى الى اظهار رسالة تقول ان اصدار النظام 6.
2
صورة لتطبيقك:
و من المفروض ان تظهر بعد اضافة ملف الــ Configuration هكذا:
اما بخصوص التطبيق الثاني anotherWay فانه يظهر رسالة الخطأ التالية، سواء تم التنفيذ asUser او asAdmin:
إقتباس :Failed to execute cmd ver: 2
الله لا يهينك سويت واحد أن شاء الله يعمل على 8
جربه ورد لي خبر .. شكرا لك على ملاحظتك اخي Insid3Code ..(نظامي 7)
PHP كود :
http://www.gulfup.com/?vPJo4P
ما هو باص فك الضغط اخي الكريم ؟
للأسف التطبيق لا يرجع رقم الاصدار الصحيح الخاص بــ Windows 8.1 - 6.
3
![[صورة: attachment.php?attachmentid=4487&stc=1&d=1406711458]](http://www.delphi4arab.net/forum/attachment.php?attachmentid=4487&stc=1&d=1406711458)
السلام عليكم و رحمة الله
معذرة على التأخير، و آسف على هذا الرذ السريع....
![[صورة: attachment.php?attachmentid=4582&stc=1&d=1416212950]](http://delphi4arab.net/forum/attachment.php?attachmentid=4582&stc=1&d=1416212950)
اوامر الفحص:
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;
}
1- نقوم بتعريف و تهيئة الــ Structure التي سوف يتم ملءها بمعلومات الفحص
osVersionInfoExA
2- نمرر المعلومات التي نريد فحصها، رقم اصدار النظام 10 في اعضاء الــ Structure
3- نستدعي الدالة VerifyVersionInfoA و نضيف قاعدة التحققVER_MAJORVERSION | VER_MINORVERSION و نفحص ما ترجعه..
4- اظهار نتيجة الفحص في حالة تحقق الفحص.
ملاحظة:
المثال فوق مكتوب بالسي بلص بلص و يمكن ترجمته بكل سهولة الى لغة دلفي
...
من فهمه يشاركنا بكود 100% دلفي...