バージョン情報ダイアログボックスを表示          <TOP>

ShellAbout 標準の「バージョン情報」ダイアログボックスを表示

ExtractIcon EXE･DLLからアイコンを取得

　

第一引数：ウィンドウハンドル

第二引数：タイトル

第三引数：Copyright (C) 1981-2001 Microsoft Corporation の後に続く文字列

第四引数：アイコンのハンドル

メモ帳のバージョン情報の例

　

'================================================================
'= バージョン情報ダイアログボックスを表示
'=    (ShellAbout.bas)
'================================================================

' EXE･DLLからアイコンを取得
Declare Function Api_ExtractIcon& Lib "shell32" Alias "ExtractIconA" (ByVal hInst&, ByVal Path$, ByVal Index&)

' バージョン情報ダイアログボックスを表示
Declare Function Api_ShellAbout& Lib "shell32" Alias "ShellAboutA" (ByVal hWnd&, ByVal szApp$, ByVal szOtherStuff$, ByVal hIcon&)

Var hIcon As Long
Var Ret As Long

hIcon = Api_ExtractIcon(GethWnd, "C:\_FB_API_E\_ApiViewer\ApiViewer.exe", 0)

Ret = Api_ShellAbout(GethWnd, "ApiViewer", "After Copyright", hIcon)

Stop
End