PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 5263 | 99/02/26 18:55:28 | RE(4):PBはGetEnviroment関数でOSの識別ができます By M.M |
| 5253 | 99/02/26 14:20:25 | RE(3):PB6: GetVersionExについて By JBS |
| 5251 | 99/02/26 13:48:13 | RE(2):PB6: GetVersionExについて By Air Hawk |
| 5250 | 99/02/26 13:46:56 | RE(1):PB6: GetVersionExについて By にしやん |
| 5249 | 99/02/26 13:18:06 | PB6: GetVersionExについて By JBS |
カテゴリ：スクリプトの記述
日付：1999年02月26日 13:18 発信者：JBS
題名：PB6: GetVersionExについて
みなさんこんにちはJBSです
Windosのバージョンを認識するためAPIでGetVersionExを使用して、95orNTの判断をさせようとしています。
しかし、実行するとPB60j.exeでアクセス違反が発生します
下記に実際にテストしているスクリプトを記載しますのでどなたかアドバイスお願いします
外部関数 FUNCTION ULong GetVersionEx(ref ustr_osversioninfo osversioninfo) &
library \"kernel32.dll\" Alias For \"GetVersionExA\"
構造体(ustr_osversioninfo)
unsignedlong dwOSVersionInfoSize
unsignedlong dwMajorVersion
unsignedlong dwMinorVersion
unsignedlong dwBuildNumber
unsignedlong dwPlatformId
string szCSDVersion
スクリプト
ustr_osversioninfo lstr_osinfo
lstr_osinfo.szCSDVersion = space(128)
lstr_osinfo.dwOSVersionInfoSize = 148
Constant long VER_PLATFORM_WIN32s = 0
Constant long VER_PLATFORM_WIN32_WINDOWS = 1
Constant long VER_PLATFORM_WIN32_NT = 2
messagebox(\"Ver\",GetVersionEx(lstr_osinfo))
messagebox(\"dwMajorVersion\",lstr_osinfo.dwMajorVersion)
messagebox(\"dwMinorVersion\",lstr_osinfo.dwMinorVersion)
messagebox(\"dwBuildNumber\",lstr_osinfo.dwBuildNumber)
messagebox(\"dwPlatformId\",lstr_osinfo.dwPlatformId)
messagebox(\"szCSDVersion\",lstr_osinfo.szCSDVersion)
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.