TITLE:  [186] eVBで外部プログラムを実行する方法　その２
DATE : 2002-08-12 16:20:00
--------------------------------------------------
☆前の続きです

そして、この関数を使って、電卓を実行させて見ますね。
まず、新しいプロジェクトを作って、上の定義を貼り付けておいてくだ
さい。
そしたら、フォーム上にコマンドボタンを１つ作って、次の命令を追加
してください。
----------------------------------------------------------------
Private Sub Command1_Click()
  Dim RetVal As Long

  RetVal = CreateProcess("Calc", "", 0, 0, 0, 0, 0, "", 0, 0)

  If RetVal = 1 Then
    Me.Caption = "実行成功！"
  Else
    Me.Caption = "うむ、失敗ですな"
  End If

End Sub
----------------------------------------------------------------
そしたら、動かしてみましょう。
無事動けば、キャプションバーに「実行成功！」と表示されて、電卓が
起動されたことと思います。

CreateProcess関数の引数についてですが、１番目が実行させるexeの名
前です。２番目がオプションです。そして後から３番目の""となってい
るところが、実行させるときのディレクトリ名です。

いかがでしょうか？
#これ使うと、簡単にランチャーソフトできますね！

by Kenji Sato/KEN. (08/12/02 15:59:51)