バージョン情報ダイアログボックスを表示          <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