質問編集履歴
2
ソースコード追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,9 +12,11 @@
|
|
|
12
12
|
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwAccess As Long, ByVal fInherit As Integer, ByVal hObject As Long) As Long
|
|
13
13
|
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
|
|
14
14
|
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
|
|
15
|
+
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
|
|
15
16
|
|
|
16
17
|
Private Const WM_CLOSE = &H10
|
|
17
18
|
Private Const SYNCHRONIZE = &H100000
|
|
19
|
+
Private Const PROCESS_TERMINATE = &H1
|
|
18
20
|
|
|
19
21
|
Private lngPid As Long
|
|
20
22
|
Private lngWid As Long
|
|
@@ -32,6 +34,14 @@
|
|
|
32
34
|
|
|
33
35
|
End Sub
|
|
34
36
|
|
|
37
|
+
' 2016/06/01 16:58 追記
|
|
38
|
+
Private Sub btnTerminateProcess_Click()
|
|
39
|
+
lngPid = Shell("notepad.exe", vbNormalFocus)
|
|
40
|
+
lngWid = OpenProcess(SYNCHRONIZE Or PROCESS_TERMINATE, True, lngPid)
|
|
41
|
+
Call TerminateProcess(lngWid, 0&)
|
|
42
|
+
|
|
43
|
+
End Sub
|
|
44
|
+
|
|
35
45
|
###環境
|
|
36
46
|
Windows7 x64
|
|
37
47
|
Access2010 x84(OS 64bit環境にOffice32bit版をインストールしています)
|
1
若葉マーク
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|