実行ファイルの種類を表示(VB)

キーワード:

GetBinaryType

サンプルコード:

' c:\windows\notepad.exeの種類を表示
Private Sub DispFileType()

	Dim BinType As Long
	Dim lResult As Long

	'種類を取得
	lResult = GetBinaryType("c:\windows\notepad.exe", BinType)

	'エラーなら、終了
	If lResult = 0 Then
		MsgBox "Error:" & Err.LastDllError
		Exit Sub
	End If

	'種類の表示
	Select Case BinType
		Case SCS_32BIT_BINARY
			MsgBox "Win32"

		Case SCS_DOS_BINARY
			MsgBox "Dos"

		Case SCS_OS216_BINARY
			MsgBox "OS2 16bit"

		Case SCS_PIF_BINARY
			MsgBox "PIF"

		Case SCS_POSIX_BINARY
			MsgBox "POSIX"

		Case SCS_WOW_BINARY
			MsgBox "Win16"
	End Select

End Sub
(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。