Microsoft Plusがインストールされているか調べる

● Microsoft Plusがインストールされているか調べる ●

今となっては使用する機会はない。Microsoft Plus ってまだあるの？

Private 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

Private Const SPI_GETWINDOWSEXTENSION = 92

'-----------------------------------------------------------------------
' 関数名 ： IsInstalledPlus
' 機能   ： Microsoft Plusがインストールされているか調べる
' 引数   ： なし
' 戻り値 ： MS Plusがインストールされている：True  されていない：False
'-----------------------------------------------------------------------
Private Function IsInstalledPlus() As Boolean
    IsInstalledPlus = (SystemParametersInfo(SPI_GETWINDOWSEXTENSION, 1, ByVal 0&, 0) <> False)
End Function

戻る