VFP 愛用者社區

[ckp6250]

在 Win 7 底下的
? OS()
怎麼是秀出 Windows 6.01 ?

廣告不實?

[syntech]

"WINDOWS 7 " 是產品名稱.

[CCB2000]

參攷一下：

m_windowsversion_90 db "Windows Version 9.x",0
m_windowsversion_80 db "Windows Version 8.x",0
m_windowsversion_70 db "Windows Version 7.x",0
m_windowsversion_7 db "Windows 7",0
m_windowsversion_vista db "Windows Vista",0
m_windowsversion_xp db "Windows XP",0
m_windowsversion_2000 db "Windows 2000",0
m_windowsversion_40 db "Windows NT 4.0",0
m_windowsversion_351 db "Windows NT 3.51",0
m_windowsversion_nt db "Windows NT",0
m_windowsversion_me db "Windows Me",0
m_windowsversion_98 db "Windows 98",0
m_windowsversion_95 db "Windows 95",0
m_windowsversion_9x db "Windows 9x",0

f_getwindowsversion proc

invoke GetVersion
.IF (eax & 80000000h)
.IF (al>=4)
.IF (ah>=90)
lea eax,m_windowsversion_me
.ELSEIF (ah>=10)
lea eax,m_windowsversion_98
.ELSE
lea eax,m_windowsversion_95
.ENDIF
.ELSE
lea eax,m_windowsversion_9x
.ENDIF
.ELSE
.IF (al>=9)
lea eax,m_windowsversion_90
.ELSEIF (al>=
lea eax,m_windowsversion_80
.ELSEIF (al>=7)
lea eax,m_windowsversion_70
.ELSEIF (al>=6)
.IF (ah>=1)
lea eax,m_windowsversion_7
.ELSE
lea eax,m_windowsversion_vista
.ENDIF
.ELSEIF (al>=5)
.IF (ah>=1)
lea eax,m_windowsversion_xp
.ELSE
lea eax,m_windowsversion_2000
.ENDIF
.ELSEIF (al>=4)
lea eax,m_windowsversion_40
.ELSEIF (al>=3)
.IF (ah>=51)
lea eax,m_windowsversion_351
.ELSE
lea eax,m_windowsversion_nt
.ENDIF
.ELSE
lea eax,m_windowsversion_nt
.ENDIF
.ENDIF
ret

f_getwindowsversion endp

[ckp6250]

[张三]

lcOS = Os(1)
Do Case
Case "6.01" $ lcOS
lcPlatform = "Windows7"
Case "6.00" $ lcOS
Do Case
Case Os(5) = "6002"
Do Case
Case Os(11) = "1"
lcPlatform = "VistaSP2"
Case Inlist(Os(11),"2","3")
lcPlatform = "Win2008SP2"
Otherwise
lcPlatform = "(不知道)"
Endcase
Case Os(5) = "6001"
Do Case
Case Os(11) = "1"
lcPlatform = "VistaSP1"
Case Inlist(Os(11),"2","3")
lcPlatform = "Win2008"
Otherwise
lcPlatform = "(不知道)"
Endcase
Otherwise
lcPlatform = "(不知道)"
Endcase

Case Os(5) = "6000"
lcPlatform = "VISTA"

Case "5.02" $ lcOS
lcPlatform = "WIN2003"
Case "5.01" $ lcOS
lcPlatform = "WINXP"
Case "5.0" $ lcOS
lcPlatform = "WIN2000"
Case "NT" $ lcOS
lcPlatform = "WINNT"
Case "4.0" $ lcOS Or "3.9" $ lcOS
lcPlatform = "WIN95"
Case "4.1" $ lcOS
lcPlatform = "WIN98"
Case "4.9" $ lcOS
lcPlatform = "WINME"
Case "3." $ lcOS
lcPlatform = "WIN31"
Otherwise
lcPlatform = "(不知道)"
Endcase
? lcPlatform

[ckp6250]

哇，有點軟把版本搞這麼複雜?
感謝張三指點。

[syntech]

其實只要這樣:

[张三]

其實只要這樣:
代碼:
*
? Iif( "6.01" = Os(1), "Windows 7", "過期系統無法辨識")
*
- 谢谢

[ckp6250]

真正的用意是

代碼:
*
? Iif( "6.01" $ Os(1), "Windows 7", "過期系統無法辨識，請付費升級！")
*
- 謝謝

[whh]

全部怒刪！！

這題我會　我會∼∼

我去google查過！


http://fox.wikis.com/wc.dll?Wiki~VFPFunctionOS

windows　幾乎全系列都有＠＠

[syntech]

樓上引的那篇,其實就是 張三 兄的做法.