Fa تشخیص 32 , 64 بیتی ویندوز

Singular

Singular

Active Member
سلام..
من میخوام هم در ویندوز اکس پی و هم سون از 32 یاا 64 بیتی آن مطلع شوم

و نوع ویندوز اکس پی هست یا سون..

ممنون میشم نمونه مثالی به اشتراک بزارید.


البته این کد دارم که درست تشخیص نمیده

C++ Code:
env$ = '%PROGRAMFILES(X86)%'
file$ = 'value.txt'
dastor$= 'HIDE,WAIT /C echo ' + env$ + ' > "%TEMP%\\' + file$ + '"'
Run("cmd","dastor$")
**************************************************************
path$ = '<Temp>\\' + file$
LoadText("value$","FILE:path$")
count = LEN(env$)
value$ = StrCopy(value$,1,count)
**************************************************************
If (value$ = env$) Then
Message("32-bit","")
Else
Message("64-bit","")
End
 
booyebaran

booyebaran

Well-Known Member
سلام . دستور زیر نوع ویندوز رو تشخیص میده.


[PHPS]/*
********** ********** **********
Windows 95
var$='4.00.950'
********** ********** **********
Windows 95 SP1
var$='4.00.(>950) / 4.00.(<=1080)'
********** ********** **********
Windows 95 OSR2
var$='4.(<10).(>1080)'
********** ********** **********
Windows 98
var$='4.10.1998'
********** ********** **********
Windows 98 SP 1
var$='4.10.(>1998) / 4.10.(<2183)'
********** ********** **********
Windows 98 SE
var$='4.10.(>=2183)'
********** ********** **********
Windows Me
var$='4.90.3000'
********** ********** **********
Windows NT 3.51
var$='3.51.1057'
********** ********** **********
Windows NT 4.0
var$='4.00.1381'
********** ********** **********
Windows 2000
var$='5.00.2195'
********** ********** **********
Windows XP/SP1
var$='5.01.2600'
********** ********** **********
Windows Vista
var$='6.00.6000'
********** ********** **********
Windows Seven
var$='6.01.7600'
********** ********** **********
Windows Seven
var$='6.01.7601'
********** ********** **********
Windows 8
var$='6.01.7600'
********** ********** **********
*/
var$=WinVer()
If (var$='4.00.950') Then
Message("Windows 95","")
Else
If (var$='4.00.(>950) / 4.00.(<=1080)') Then
Message("Windows 95 SP1","")
Else
If (var$='4.(<10).(>1080)') Then
Message("Windows 95 OSR2","")
Else
If (var$='4.10.1998') Then
Message("Windows 98","")
Else
If (var$='4.10.(>1998) / 4.10.(<2183)') Then
Message("Windows 98 SP 1","")
Else
If (var$='4.10.(>=2183)') Then
Message("Windows 98 SE","")
Else
If (var$='4.90.3000') Then
Message("Windows Me","Windows Me")
Else
If (var$='3.51.1057') Then
Message("Windows NT 3.51","")
Else
If (var$='4.00.1381') Then
Message("Windows NT 4.0","")
Else
If (var$='5.00.2195') Then
Message("Windows 2000","")
Else
If (var$='5.01.2600') Then
Message("Windows XP/SP1","")
Else
If (var$='6.00.6000') Then
Message("Windows Vista","")
Else
If (var$='6.01.7600') Then
Message("Windows Seven","")
Else
If (var$='6.01.7601') Then
Message("Windows Seven","")
Else
If (var$='6.01.7600') Then
Message("Windows 8","")
End
End
End
End
End
End
End
End
End
End
End
End
End
End
End

[/PHPS]
 
Singular

Singular

Active Member
تشکر از آقای booyebaran


---------------------------------------------------------------
نوع 32 و 64 بیتی ویندوز هم دوستانی کمک کنند ممنون میشم
---------------------------------------------------------------
 
Singular

Singular

Active Member
سلاااااامممممممممممم


:|||||||||||||||||||||||||||||||||||||||

یعنی هیچ کس تو این انجمن نیست جواب سوال منو بده؟؟؟

همیشه انجمن چک میکنم و معمولا تا هرچقدر در توانم باشه پاسخگو دوستانی که سوال میکنن هستم ..ولی نمیدونم چرا کسی ژاسخ گو سوال بنده نیست..
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا