実行の自モジュールフルパス名を取得          <TOP>


GetModuleFileName ロードされている実行モジュールのフルパス名を取得

 

 

'================================================================
'= 実行モジュールのフルパス名を取得

'=    (GetModuleFileName.bas)
'================================================================
#include "Windows.bi"

' ロードされている実行モジュールのフルパス名を取得
Declare Function Api_GetModuleFileName& Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule&, ByVal lpFileName$, ByVal nSize&)

Var Buffer As String
Var FileName As String
Var Ret As Long

Buffer = string$(260, Chr$(0))

Ret = Api_GetModuleFileName(0, Buffer, len(Buffer))

FileName = left$(Buffer, instr(Buffer, Chr$(0)) - 1)

Print "FileName : ";FileName

Stop
End