となっていましたが、この定義だけでいいのでしょうか？--------------------------------------------------------------------------------
定義
Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" ( ) As BytePtr
戻り値
コマンドライン文字列が格納されているバッファへのポインタが返ります。
環境情報
インクルード ファイル: api_system.sbp 内で定義済み
DLLファイル: kernel32.dll
コード: 全て選択
Declare Function PathGetArgs Lib "shlwapi" Alias "PathGetArgsA" (psz As BytePtr) As BytePtr
Dim pArg As *Byte
pArg = PathGetArgs(GetCommandLine())
MessageBox(0, pArg, "", MB_OK)コード: 全て選択
Dim buffer As String
Dim hTop As Long
Dim hEnd As Long
buffer=GetCommandLine()
MessageBox(0,buffer,"コマンドライン引数",MB_OK)
hTop=InStr(2,buffer,Ex"\q")-2
MessageBox(0,Mid$(buffer,2,hTop),"自己ファイル名",MB_OK)
hTop=InStr(hTop,buffer,Ex"\q")+3
hEnd=InStr(hTop,buffer,Ex"\q")
MessageBox(0,Mid$(buffer,hTop,hEnd-hTop),"落されたファイル名",MB_OK)
Endファイルの場所を知るのが目的ではなかったんですか？> いろんな方が書き込まれていますが、一応、どのコードもやってみました。
> しかし、ファイルのある場所を示すだけで、そのもともとのプログラムは作動しません。
はい、不十分だと思います。でも最初のうちはこんなもんでしょう。> 説明が不十分だったかもしれませんが、
これまでの話の内容を組み合わせれば動作すると思いますど、> 関連付けされている（参考にしたOrangeArchiverなら、.oar）のファイルをダブルクリックすると、プログラムが作動して、エディットボックス１にその内容をセットする、そのようなコードが私はほしかったのですが、、、
別に高望みが悪いわけではありません。> すいません、高望みしすぎですか。。。
コード: 全て選択
Dim buffer As String
Dim hTop As Long
Dim hEnd As Long
buffer=GetCommandLine()
hTop=InStr(2,buffer,Ex"\q")-2
hTop=InStr(hTop,buffer,Ex"\q")+3
hEnd=InStr(hTop,buffer,Ex"\q")
SetDlgItemText(hMainWnd,EditBox1,Mid$(buffer,hTop,hEnd-hTop))