[ここをクリックすると内容が表示されます]
コード: 全て選択
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使い方 [ここをクリックすると内容が表示されます]
関数が成功した場合、バッファにコピーされた文字列の文字数がバイト数で返ります。失敗した場合、0が返ります。コード: 全て選択
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)