ab.com コミュニティ

コード: 全て選択

Dim path[MAX_PATH] As Byte
	GetModuleFileName(NULL,path,MAX_PATH)

コード: 全て選択

Function GetOneselfFileName(ByVal lpPath As LPSTR) As Long
	GetOneselfFileName=GetModuleFileName(NULL,lpPath,MAX_PATH)
End Function

コード: 全て選択

Dim path[MAX_PATH] As Byte
'Dim lpPath As LPSTR

	'lpPath=malloc(MAX_PATH)

	GetOnselftFileName(path)
	'GetOnselftFileName(lpPath)

	ShellExecute(hMainWnd,"open",path,NULL,NULL,SW_SHOWNORMAL)
	'ShellExecute(hMainWnd,"open",lpPath,NULL,NULL,SW_SHOWNORMAL)

	'free(lpPath)

コード: 全て選択

Function GetOneselfFileNameStr() As String 
	Dim buf[MAX_PATH] As Byte
	Dim length As Long
	length=GetModuleFileName(NULL,buf,MAX_PATH)
	GetOneselfFileNameStr=ZeroString(length)
	memcpy(StrPtr(GetOneselfFileNameStr),buf,length)
End Function