OLD FoxBoard
foxboard Home FoxBoard



ยินดีต้อนรับ Guest ลงทะเบียน Login ค้นหากระทู้ แสดงรายชื่อสมาชิก
 หัวข้อสนทนาทั้งหมด
  Tips & Tricks Foxpro
 
ชื่อเรื่อง #04561 หัวข้อ: การค้นหา OS ของ WINDOWS เชิญถาม-ตอบปัญหาได้ที่นี่ครับ ตั้งชื่อกระทู้ใหม่
ส่งข้อความโดย shaw วันที่ 03 ก.ย. 2559 เวลา 22:21 น. - IP Logged
มุมมอง shaw's ประวัติส่วนตัว ประวัติส่วนตัว   ค้นหากระทู้อื่นๆ shaw ค้นหา   Quote shaw Quote   Send Private Message ส่งข้อความ  
shaw
Avatar
Gold Member
Gold Member

21 พ.ย. 2549
260 Posts
คำสั่งที่ใช้ในการค้นหา OS ของ WINDOWS

lcOS = OS(1)
DO CASE
CASE "6.02" $ lcOS AND OS(11) = "1"
     lcPlatform = "WIN8"
CASE "6.01" $ lcOS AND OS(11) = "1"
     lcPlatform = "WIN7"
CASE "6.01" $ lcOS
     lcPlatform = "WIN2008R2"
CASE "6.00" $ lcOS AND OS(11) = "1"
     lcPlatform = "VISTA"
CASE "6.00" $ lcOS
     lcPlatform = "WIN2008"
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 = "(Unknown)"
ENDCASE

DECLARE Long GetModuleHandle IN WIN32API STRING lpModuleName
DECLARE Long GetProcAddress IN WIN32API Long hModule, String lpProcName
llIsWow64ProcessExists = (GetProcAddress(GetModuleHandle("kernel32"),"IsWow64Process") <> 0)
llIs64BitOS = .F.
IF llIsWow64ProcessExists
     DECLARE Long GetCurrentProcess IN WIN32API
     DECLARE Long IsWow64Process IN WIN32API Long hProcess, Long @ Wow64Process
     lnIsWow64Process = 0
     * IsWow64Process function return value is nonzero if it succeeds
     * The second output parameter value will be nonzero if VFP application is running under 64-bit OS
     IF IsWow64Process( GetCurrentProcess(), @lnIsWow64Process) <> 0
          llIs64BitOS = (lnIsWow64Process <> 0)
     ENDIF     
ENDIF     
lcPlatform = lcPlatform+" "+IIF(llIs64BitOS,"(64-bit)","(32-bit)")

? lcPlatform



ที่มา : http://fox.wikis.com/wc.dll?Wiki~VFPFunctionOS

-------------
ทุกคนมีเวลาเท่ากัน แล้วแต่ว่าใครจะเลือกใช้ทำอะไร

ส่งข้อความโดย shaw วันที่ 03 ก.ย. 2559 เวลา 22:58 น. - IP Logged
มุมมอง shaw's ประวัติส่วนตัว ประวัติส่วนตัว   ค้นหากระทู้อื่นๆ shaw ค้นหา   Quote shaw Quote   Send Private Message ส่งข้อความ  
shaw
Avatar
Gold Member
Gold Member

21 พ.ย. 2549
260 Posts
ฟังชั่น OS() ของ VFP ได้แก่ OS(1) , OS(5) , OS(11) ชึ่งจะคืนค่า ชื่อและเวอร์ชั่นของ OS ของ WINDOWS กลับมาให้







ที่มา : http://fox.wikis.com/wc.dll?Wiki~VFPFunctionOS

-------------
ทุกคนมีเวลาเท่ากัน แล้วแต่ว่าใครจะเลือกใช้ทำอะไร

ถ้าท่านต้องการตอบคำถามที่นี่ ท่านควรจะ  Login
ถ้าท่านยังไม่ได้ลงทะเบียน ท่านควรจะ  ลงทะเบียน

กระโดดไป เชิญถาม-ตอบปัญหาได้ที่นี่ครับ ตั้งชื่อกระทู้ใหม่
พิมพ์รายงาน พิมพ์รายงาน

Powered by Vfoxware Forums ver. 1.0
Copyright ©2006-2010 Vfoxware Guide