|
分類:[VB.NET/VB2005 以降]
AccessのVBAにて開発されたプログラムをVB.netへ移行する作業を行っておりますが、CreateProcessというAPI関数？を移行できません。
ネットで検索してもなかなか良いサンプルが見つからず、恐れ入りますがお力をお貸し頂けないでしょうか。
環境
Win10 64bit
VisualStudio2019
以下がAccessのVBAのコードです。
--------------------------------------------------------------
※クラスで宣言している変数
Dim pInfo2 As PROCESS_INFORMATION
Dim sInfo2 As STARTUPINFO
--------------------------------------------------------------
Dim lngTaskID As Long
Dim lngProcHandle As Long
Dim lngExitCode As Long
Dim lngReturnCode As Long
Dim RetWork As String * 254
Dim lStTime As Date
Dim lIntTime As Date
Dim ErrMess As String
Dim strStatus As String
lngProcHandle = CreateProcess(vbNullString, _
cEOS_PRG_PATH, _
ByVal 0&, _
ByVal 0&, _
1&, _
NORMAL_PRIORITY_CLASS, _
ByVal 0&, _
vbNullString, _
sInfo2, _
pInfo2 _
)
※補足
cEOS_PRG_PATH ⇒ 実行するEXEフルパス
--------------------------------------------------------------
※API関数部分
Public Declare Function CreateProcess Lib "kernel32" _
Alias "CreateProcessA" ( _
ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
lpProcessAttributes As Any, _
lpThreadAttributes As Any, _
ByVal bInheritHandles As Long, _
ByVal dwCreationFlags As Long, _
lpEnvironment As Any, _
ByVal lpCurrentDriectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION _
) As Long
--------------------------------------------------------------
|