自分自身(実行ファイル)を示すファイルパスを取得。
Posted: 2006年9月19日(火) 22:05
自分自身(実行ファイル)を実行しようとしたときなんかに使っています。
[ここをクリックすると内容が表示されます]
コード: 全て選択
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)