Public Function gfExecChildProcessAndWait(ByRef frmForm As Form, ByVal strExeFileName As String, _
ByVal blnFlgParentFormUnload As Boolean) As Boolean
Dim lngProcessId As Long
Dim lngProcessHandle As Long
Dim lngWin32apiResultCode As Long
Dim lngProcessExitCode As Long
On Error GoTo SysErr_gfExecChildProcessAndWait:
gfExecChildProcessAndWait = True
lngProcessExitCode = 0
' 実行可能ファイルを起動(コマンドライン引数付き)
lngProcessId = Shell(strExeFileName, vbNormalFocus)
' プロセスオブジェクトのハンドルを取得
lngProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION, False, lngProcessId)
' 新しいプロセスを作成できた場合は
If lngProcessHandle <> 0 Then
'呼び出し元のフォームをアンロード(あるいはHide)
If (blnFlgParentFormUnload = True) Then
Unload frmForm
Else
frmForm.Hide
End If
' ポーリング
Do
' プロセスの終了状態を取得し、モジュールレベル変数に格納
lngWin32apiResultCode = GetExitCodeProcess(lngProcessHandle, lngProcessExitCode)
' オペレーティングシステムに制御を渡す
DoEvents
Loop While lngProcessExitCode = STILL_ACTIVE ' プロセスが終了していない間ループ
Else
Call gsLogWrite("gfExecChildProcessAndWait", "プロセスハンドルの取得に失敗しました。")
gfExecChildProcessAndWait = False
End If
' プロセスオブジェクトのハンドルをクローズ
lngWin32apiResultCode = CloseHandle(lngProcessHandle)
Exit Function
SysErr_gfExecChildProcessAndWait:
gfExecChildProcessAndWait = False
Exit Function
End Function
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
これで私は出来ました。
(VB6.0)試してみて下さい。
では。
(標準モジュール)
'関数の宣言
Public Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Public Const PROCESS_QUERY_INFORMATION = &H400&
Public Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, _
lpExitCode As Long) As Long
Public Const STATUS_PENDING = &H103&
Public Const STILL_ACTIVE = STATUS_PENDING
Public Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
'アプリケーションを起動し、終了するまで待機する関数
Public Sub WaitShell(AppPath As String, Optional SizeFocusmode As Integer = vbNormalFocus)
Dim AppID As Long 'Shell関数の戻り値
Dim Process As Long 'OpenProcess関数の戻り値
Dim ExitCode As Long '終了コード
Dim rc As Long
AppID = Shell(AppPath, SizeFocusmode)
Process = OpenProcess(PROCESS_QUERY_INFORMATION, 1, AppID)
'プロセスが終了していない間はDoEvents関数でOSに制御を戻す
Do
rc = GetExitCodeProcess(Process, ExitCode)
DoEvents
Loop While ExitCode = STILL_ACTIVE
rc = CloseHandle(Process)
End Sub
(フォームモジュール)
前部略
Dim koAppPath As String '子EXEファイルのフルパス
中略
oyaForm.Enabled = False '親フォーム使用不可
WaitShell koAppPath
oyaForm.Enabled = True '親フォーム使用可
後部略
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ADOでアクセスのレコードに...
-
iPodの取り外しの際のエラーメ...
-
プロセスのアタッチ・デタッチ...
-
誤ってプロセスの終了をしてし...
-
アダルトサイトに引っかかって...
-
他のアプリケーションの操作に...
-
C#でのbatファイル実行結果取得
-
怪しいプロセス教えてください。
-
VB.NET 自プログラムのプロセス...
-
バックグラウンドのプロセスの...
-
ノートPCの熱が・・・
-
Macターミナルで実行中のプログ...
-
「ヒープサイズの設定」て何?
-
HTA(HTMLアプリケーション)にて...
-
StrConvの使い方について教えて...
-
C# シリアル通信でデータ受信...
-
Arduino nano(アルドゥイーノ ...
-
マイコンからプログラムを読み...
-
C言語 再帰処理のメリットとデ...
-
分を時間に変換するプログラム
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バックグラウンドのプロセスの...
-
タスクマネージャーのプロセス...
-
explorer.exeが異様にメモリを食う
-
プロセスのアタッチ・デタッチ...
-
C#でのbatファイル実行結果取得
-
プロセスIDからウィンドウハ...
-
VB6.0 SHELLで起動...
-
非表示になったエクセルは?
-
SendMessageが失敗するときがある
-
ADOでアクセスのレコードに...
-
c言語でプロセスIDを調べたい
-
Process.Startの戻り値を後で取得
-
OSPFでプロセスを分ける意義に...
-
セマフォとmutexの違いは?
-
Visual C++からpingを実行して...
-
プロセスIDの取得方法について
-
Linuxでのスレッド間メッセージ...
-
怪しいプロセス教えてください。
-
ウィンドウのタイトルからプロ...
-
別のプロセスの関数を呼び出す...
おすすめ情報