تعیین نوع سیستم عامل

[amir_king2_2]

سلام.
چطور میشه فهمید که سیستم عامل من 98 هست یا me یا 2000 یا xp ؟

با تشکر : امیر

[said ali]

با سلام
از رجیستری استفاده کنی ساده تری روش.

[SReza1]

OSVersionInfo: TOSVersionInfo;

OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
GetVersionEx(OSVersionInfo); // if Win95 96 97 then Register
if (OSVersionInfo.dwMajorVersion < 5 ) then // this is win 2000
...........................
و به همین منوال ویندوزهای دیگر را!!! یه نگاهی هم به MSDN بنداز!! :oops:

این متن توسط مشاطان اصلاح شد.

[Mashatan]

آقا رضا (SReza1) لطفا اگر از کدبرنامه نویسی استفاده میکنید از Tag Code برای مارک کردن استفاده کنید
روش کارشم خیلی راحت هست با Select کردن محلی که میخواید Tag Code قرار بگیرد و زدن دکمه Code اون قسمت رو به صورت بالا در بیارید !
انجمن تست برای اینجور کاراست !

[SReza1]

:wink: :wink:

[saman020]

function TfmMain.ChkVersion:string;
var dwVersion,dwWindowsMajorVersion,dwWindowsMinorVers ion:DWORD;
s1:string;
begin
dwVersion := GetVersion();

// Get major and minor version numbers of Windows

dwWindowsMajorVersion := DWORD(LOBYTE(LOWORD(dwVersion)));
dwWindowsMinorVersion := DWORD(HIBYTE(LOWORD(dwVersion)));

// Get build numbers for Windows NT or Win32s

if dwWindowsMinorVersion = 0 then // Windows NT
s1:='WinNT/2000'
else
if (dwWindowsMajorVersion <= 4) then // Win32s
s1:='Win98';
Result:=s1;
end;