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日 18:55 発信者：M.M
題名：RE(4):PBはGetEnviroment関数でOSの識別ができます
「JBS」さん「にしやん」さん「Air Hawk」さん、こんばんは。
＞みなさんこんにちはJBSです
＞Windosのバージョンを認識するためAPIでGetVersionExを使用して、95orNTの判断
＞をさせようとしています。
横から割り込んで失礼！
とりあえずWinAPIの方の問題は解決されたようですね。
しかしWindowsAPIはレベルが高いので、PBの関数でOSを識別する方法を紹介します。
見栄えをよくするため、全角空白を行の先頭に使用しています。
コピーする時は注意して下さい。
???????????????????????????????????
//Enviromentオブジェクトを使用して、OSの識別を行う
environment env
integer rtn
rtn = GetEnvironment(env)
If rtn <> 1 Then
MessageBox(\"\",\"OS識別時にエラーが発生しました\")
Return
End If
Choose Case env.OSType
Case Macintosh!
MessageBox(\"\",\"OSはMacOSです\")
Case Windows!
If env.OSMajorRevision=3 Then
MessageBox(\"\",\"OSはWindow3.1です\")
ElseIf env.OSMajorRevision=4 Then
MessageBox(\"\",\"OSはWindows95です\")
End If
Case WindowsNT!
MessageBox(\"\",\"OSはWindowsNTです\")
Case Else
Return
End Choose
???????????????????????????????????
付加情報：
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.