ＥＸＥファイル以外を実行させるには？ (ID:104364)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 どうしたことでしょう？ 半角スペースもなく間違っていないと思われるのですが… もちろん、『ttermpro.exe』をダブルクリックすれば ソフトは起動します。 Private Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long Private Const SW_SHOW = 5 'ウインドウをアクティブにする Private Sub Command1_Click() Dim Ret As Long Ret = ShellExecute(Me.hWnd, "Open", "Calc.exe", "c:\windows\", "", SW_SHOW) End Sub Private Sub Command2_Click() Dim Ret As Long Ret = ShellExecute(Me.hWnd, "Open", "ttermpro.exe", "C:\Program Files\TTERMPRO\", "", SW_SHOW) End Sub