karnell32エラー(訂正：EXE間でデータを受け渡し時の～) ２
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
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
タイマー時イベントは使ったことがなかったので、この機会に挑戦してみます。ありがとうございました。