في البداية السلام عليكم
دالة لمن يرد معرفة النظام المنصب عنده
كود :
function GetWinVersion: String;
var
osVerInfo: TOSVersionInfo;
majorVersion, minorVersion: Integer;
begin
Result := 'Unknown';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo) ;
if GetVersionEx(osVerInfo) then
begin
minorVersion := osVerInfo.dwMinorVersion;
majorVersion := osVerInfo.dwMajorVersion;
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
begin
if majorVersion <= 4 then
Result := 'WinNT'
else if (majorVersion = 5) and (minorVersion = 0) then
Result := 'Win2000'
else if (majorVersion = 5) and (minorVersion = 1) then
Result := 'WinXP'
else if (majorVersion = 6) then
Result := 'WinVista';
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
if (majorVersion = 4) and (minorVersion = 0) then
Result := 'Win95'
else if (majorVersion = 4) and (minorVersion = 10) then
begin
if osVerInfo.szCSDVersion[1] = 'A' then
Result := 'Win98SE'
else
Result := 'Win98';
end
else if (majorVersion = 4) and (minorVersion = 90) then
Result := 'WinME'
else
Result := 'Unknown';
end;
end;
end;
end;
بالتوفيق للجميع
و السلام.
وعليكم السلام ورحمة الله وبركاته
بارك الله لك أخي MjIrIm.
هذا التابع مفيد جدا لكنه يحتاج Update لحالة WindowsSeven
يمكن مبدئيا يمكن استخدام المفتاح:
كود :
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
نعم لاحظت ذلك منذ قبل
لكني وضعتها للافادة لمن يريد المحاولة و البحث
في الحقيقة عندي مجموعة من المواضيع و المشاركات كنت
سابقا مبرمج أن توضع منذ 3 أشهر تقريبا لكن لكثرة المشاغل
لم أستطع, أحاول الان متابعة ما فاتني من مواضيع هامة
و المشاركة ولو بالقليل
بارك الله فيك أخي kachwahed
و السلام.
المصدر الرسمي من عند Microsoft لدالة تحديد النظام مكتوبة بـ #C
كود :
http://msdn.microsoft.com/en-us/library/ms724429%28VS.85%29.aspx
أيضا يمكن استخدام الوحدة JclSysInfo من المكتبة العملاقة JEDI Code Library
شكرا كثيرا أخي الكريم.
قمت بتجربة جميع الاكواد السابقه تتطلب الفتح بالادمن هذا الكود نجح معي
كود :
function getwinversion: String;
begin
result:='unbekannte version';
case win32platform of
1:// 9x-reihe
if win32majorversion=4 then begin
case win32minorversion of
0: Result:='windows 95';
10: Result:='windows 98';
90: Result:='windows me';
end;
end;
2: // nt-reihe
case win32majorversion of
3:if win32minorversion=51 then
result:='windows nt 3.51';
4:if win32minorversion=0 then
result:='windows nt 4';
5:case win32minorversion of
0: Result:='windows 2000';
1: Result:='windows xp';
2: Result:='windows .net server';
end;
6:case win32minorversion of
0: Result := 'windows vista';
1: Result := 'windows 7';
end;
end;
end;
//win32csdversion enthält informationen zu servicepacks
if win32csdversion<>'' then
result:=result +' '+ win32csdversion;
end;
procedure tform1.button1click(sender: Tobject);
begin
label1.caption:= getwinversion;
end;
ينصب في بيئة Windows فقط!
OK، لكن أي إصدار Windows؟ 3.11، 95، 98، NT2003، 2000NT، Win7، WinXP...
شيء آخر هذا لمعرفة على أي نظام يعمل برنامجك وليس على أي نظام تم تنصيب دلفي فيه!
للعلم، يمكن تشغيل معظم برامج Winodws على توزيعات أخرى في وضع محاكاة (مثال Wine الشهير في Linux)
ويمكن العكس أيضا...
إضافة طفيفة على الوحدة التي وضعها أخي kachwahed في المشاركة رقم 4
لدعم Windows 8 مبدئيا حتى إشعار اخر من msdn
تم دعم النسخ التالية Pro, Enterprise تم تجريب على Windows 8 Pro
إضافة دعم Windows 8.1 حتى إشعار آخر من msdn
كود :
var
hDWMDLL: Cardinal = 0;
DwmIsCompositionEnabled: function(pfEnabled: Pbool): HRESULT; stdcall;
function IsWindowsAero: Boolean;
var
R: longbool;
begin
Result := false;
if hDWMDLL <> 0 then
begin
if @DwmIsCompositionEnabled <> nil then
begin
DwmIsCompositionEnabled(@R);
Result := R;
end;
end;
end;
كود :
procedure GetWindowsVersion(var Major, Minor: Integer);
var
Ver : Longint;
begin
Ver := GetVersion;
Major := LoByte(LoWord(Ver));
Minor := HiByte(LoWord(Ver));
end;
function IsW7: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := (major = 6) and (minor = 1);
end;
function Is9XOS: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := (major < 5);
end;
function IsW8: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := ((major = 6) and (minor = 2)) or (major > 6);
end;
function IsVistaOs: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := (major >= 6);
end;
function CheckWXP: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := (major > 5) or ((major = 5) and (minor = 1));
end;
function CheckW2kWXP: Boolean;
var
Major, Minor : Integer;
begin
GetWindowsVersion(major, minor);
Result := (major > 5) or ((major = 5) and ((minor = 0) or (minor = 1) or (minor = 2)));
end;