17-11-2014, 09:47 AM
السلام عليكم و رحمة الله
معذرة على التأخير، و آسف على هذا الرذ السريع....
![[صورة: attachment.php?attachmentid=4582&stc=1&d=1416212950]](http://delphi4arab.net/forum/attachment.php?attachmentid=4582&stc=1&d=1416212950)
اوامر الفحص:
1- نقوم بتعريف و تهيئة الــ Structure التي سوف يتم ملءها بمعلومات الفحص
osVersionInfoExA
2- نمرر المعلومات التي نريد فحصها، رقم اصدار النظام 10 في اعضاء الــ Structure
3- نستدعي الدالة VerifyVersionInfoA و نضيف قاعدة التحققVER_MAJORVERSION | VER_MINORVERSION و نفحص ما ترجعه..
4- اظهار نتيجة الفحص في حالة تحقق الفحص.
ملاحظة:
المثال فوق مكتوب بالسي بلص بلص و يمكن ترجمته بكل سهولة الى لغة دلفي
...
من فهمه يشاركنا بكود 100% دلفي...
معذرة على التأخير، و آسف على هذا الرذ السريع....
اوامر الفحص:
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% دلفي...
