ab.com コミュニティ

Sinryow様、レスありがとうございます。
試してみたんですが結局ダメでした。

あの後いじっていたら、リリースビルドのときは異常終了するが、デバッグビルドのときは異常終了しないことが分かり、わけ分かんなくなってしまいました。

こんな自分ですがよろしくお願いします。

	If Fol=0 Then
		shRet=ShellExecute(NULL,NULL,P,"",CFName,SW_SHOW)
	Else
		shRet=ShellExecute(NULL,"open",CFName,"",CFName,SW_SHOW)

	_splitpath(P,DName,FName,NULL,NULL)
	wsprintf(CFName,"%s%s",DName,FName)

実際に試していないので分かりませんが，
[code] If Fol=0 Then
shRet=ShellExecute(NULL,NULL,P,"",CFName,SW_SHOW)
Else
shRet=ShellExecute(NULL,"open",CFName,"",CFName,SW_SHOW)[/code]
ShellExecute関数の第４引数を，「""」ではなくNULLにしてみるといいかもしれません。
実行ファイルでないファイルを開く場合は，NULLでなければならないようです。

[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shellexecute.asp[/url]（英語）より
[quote]lpParameters
[in] If the lpFile parameter specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb that is to be invoked. [u]If lpFile specifies a document file, lpParameters should be NULL.[/u]
（訳）もしlpFileが実行ファイルである場合，lpParametersは，そのアプリケーションに渡す，ヌル文字で終わる文字列を指定する。その文字列の形式は呼び出される動詞（訳注：lpOperationで指定した動作）によって決まる。[u]もしlpFileがドキュメントファイルである場合，lpParametersはNULLでなければならない。[/u][/quote]
※余談ですが
[code] _splitpath(P,DName,FName,NULL,NULL)
wsprintf(CFName,"%s%s",DName,FName)[/code]
PとCFNameは同じくなるのではないでしょうか？

Sub MainWnd_CommandButton1_Click()
　　　　Exef(1)
End Sub

Sinryow様レスありがとうございます。
[quote]どこでエラーが出るのかが分からないので，何とも言えないのですが・・・
それは分かってらっしゃるのでしょうか？[/quote]
どうも、「If Fol=0 Then...」でエラーになってるようです。(Fol=0だと発生しない。)
また、
[quote]この関数の呼び出し元はどのようになっているのでしょうか？[/quote]
についてですが、[code]
Sub MainWnd_CommandButton1_Click()
　　　　Exef(1)
End Sub[/code]
となっております。

よろしくお願いします。

どこでエラーが出るのかが分からないので，何とも言えないのですが・・・
それは分かってらっしゃるのでしょうか？

それと，この関数の呼び出し元はどのようになっているのでしょうか？

Sub Exef(No As Long)
	Dim Str[256] As Byte
　　　　Dim P     [256] As Byte
	Dim CFName[256] As Byte
　　　　Dim SECTION[18] As Byte
	wsprintf(Str,"BTN%d",No)
	GetPrivateProfileString(SECTION,Str,"",P,256,Path)
	If lstrcmp(P,"")=0 Then 
		MessageBox(0,"NG1","",MB_OK)
		End
	End If
	_splitpath(P,DName,FName,NULL,NULL)
	wsprintf(CFName,"%s%s",DName,FName)
	If Fol=0 Then
		shRet=ShellExecute(NULL,NULL,P,"",CFName,SW_SHOW)
	Else
		shRet=ShellExecute(NULL,"open",CFName,"",CFName,SW_SHOW)
	EndIf
	If shRet<32 As HINSTANCE  Then MessageBox(0,"NG2","",MB_OK)
End Sub

はじめまして。
早速ですが助けてください。
ランチャーを作っているんですが、以下の関数を実行すると、異常終了してしまうんです。

[code]
Sub Exef(No As Long)
Dim Str[256] As Byte
　　　　Dim P [256] As Byte
Dim CFName[256] As Byte
　　　　Dim SECTION[18] As Byte
wsprintf(Str,"BTN%d",No)
GetPrivateProfileString(SECTION,Str,"",P,256,Path)
If lstrcmp(P,"")=0 Then
MessageBox(0,"NG1","",MB_OK)
End
End If
_splitpath(P,DName,FName,NULL,NULL)
wsprintf(CFName,"%s%s",DName,FName)
If Fol=0 Then
shRet=ShellExecute(NULL,NULL,P,"",CFName,SW_SHOW)
Else
shRet=ShellExecute(NULL,"open",CFName,"",CFName,SW_SHOW)
EndIf
If shRet<32 As HINSTANCE Then MessageBox(0,"NG2","",MB_OK)
End Sub[/code]
ただ、この関数、他のプロジェクトにコピーすると正常に動作します。

バージョンは、4.12.01、OSは、WindowsXP Home SP2です。
よろしくお願いします。