PDA

View Full Version : تعیین نوع سیستم عامل



amir_king2_2
سه شنبه 29 مهر 1382, 17:57 عصر
سلام.
چطور میشه فهمید که سیستم عامل من 98 هست یا me یا 2000 یا xp ؟

با تشکر : امیر

said ali
سه شنبه 29 مهر 1382, 18:22 عصر
با سلام
از رجیستری استفاده کنی ساده تری روش.

SReza1
چهارشنبه 30 مهر 1382, 18:14 عصر
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
چهارشنبه 30 مهر 1382, 19:32 عصر
آقا رضا (SReza1) لطفا اگر از کدبرنامه نویسی استفاده میکنید از Tag Code برای مارک کردن استفاده کنید
روش کارشم خیلی راحت هست با Select کردن محلی که میخواید Tag Code قرار بگیرد و زدن دکمه Code اون قسمت رو به صورت بالا در بیارید !
انجمن تست برای اینجور کاراست !

SReza1
چهارشنبه 30 مهر 1382, 23:35 عصر
:wink: :wink:

saman020
پنج شنبه 08 آبان 1382, 12:06 عصر
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;