🚀 go-pugleaf

Takeshi Shigihara wrote:
>WIN32 API の SystemParametersInfo に SPI_GETWINDOWSEXTENSION
>というフラグがあります。
>
>私は、ＶＢを知らないので、ＶＢでの宣言を記述することができません。
>とりあえず、オンラインマニュアルからＣ言語での関数宣言を引き写し
>ておきます。


レスありがとうございました。
早速試してみました。結果はＯＫです。
これから悩むかもしれない方(いないかも)のために実験したコードを
紹介しておきます。ＶＢでの宣言も次の通りです。

Public Const SPI_GETWINDOWSEXTENSION = 92
Declare Function SystemParametersInfo Lib "user32" _
　　Alias "SystemParametersInfoA" ( _
　　ByVal uAction As Long, _
　　ByVal uParam As Long, _
　　ByVal lpvParam As Any, _
　　ByVal fuWinIni As Long) As Long

'PLus!のインストールを判定する関数例(Windows 95 Only)
Public Function IsInstalledPlus() As Boolean
　　If SystemParametersInfo(SPI_GETWINDOWSEXTENSION, _
　　　　1, ByVal 0&, 0) <> False Then
　　　　IsInstalledPlus = True
　　End If
End Sub

IsInstalledPlus関数を呼び出して、インストールされていたらTrueを、
インストールされていなかった場合にはFalseを返します。

今回は有り難うございました。

後藤あきら (foxlum@cyborg.or.jp)