ab.com コミュニティ

ありがとうございます。
感動しました。。。

１日で解決するなんて珍しいですね。。。

Declare Function PathGetArgs Lib "shlwapi" Alias "PathGetArgsA" (psz As BytePtr) As BytePtr
Dim pszCmdLine As BytePtr
pszCmdLine = PathGetArgs(GetCommandLine())
''MessageBox(0, pszCmdLine, "", MB_OK)	'全てのパラメータを表示する
If(InStr(1,pszCmdLine,"-t")>0)Then		'-tがある場合にメッセージを表示
	MessageBox(0,"Hello World","",MB_OK)
End If
End

以下の過去ログを参考にすると、コマンドラインのパラメータを取得できます。
[url]http://www.discoversoft.net/forum/viewtopic.php?t=168&highlight=%A5%B3%A5%DE%A5%F3%A5%C9%A5%E9%A5%A4%A5%F3[/url]

[code]
Declare Function PathGetArgs Lib "shlwapi" Alias "PathGetArgsA" (psz As BytePtr) As BytePtr
Dim pszCmdLine As BytePtr
pszCmdLine = PathGetArgs(GetCommandLine())
''MessageBox(0, pszCmdLine, "", MB_OK) '全てのパラメータを表示する
If(InStr(1,pszCmdLine,"-t")>0)Then '-tがある場合にメッセージを表示
MessageBox(0,"Hello World","",MB_OK)
End If
End
[/code]

早速ですが、ウィンドウズ標準で、「ファイル名を指定して実行」と
言うのがありますよね。
それで、「explorer c:」と入力するとc:が開きますよね。

それを、ActiveBasicでやりたいのですが。。。
可能ですか？

たとえば、私が作ったプログラムのショートカットを作成し、
ショートカットのリンク先を「xxx.exe -t」と入力して、
ショートカットを実行すると、画面に「Hello World」と表示
させるサンプルが欲しいのですが。。。

返信、お願い致します。