Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


48337 / 76732 ←次へ | 前へ→

【33331】Re:ShellExecuteとCreateObject("Wscript.Shell")
回答  Kein  - 06/1/9(月) 14:19 -

引用なし
パスワード
   ↓このようなコードでテストしてみましたが、うまくいきましたよ。

Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function ShellExecute Lib "shell32" Alias _
"ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, _
ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long
Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal PROCESS As Long, lpExitCode As Long) As Long

Const SW_SHOW = 5

Sub Test_同期処理()
  Dim hWnd As Long, INST As Long, PROCESS As Long
  Dim MODORITI As Long, ENDWORK As Long
  Const F_name As String = _
  "C:\Documents and Settings\User\My Documents\Test.txt"

  hWnd = GetForegroundWindow()
  INST = ShellExecute(hWnd, "Open", "Notepad.exe", F_name, "", SW_SHOW)
  PROCESS = OpenProcess(1024 Or 1048576, True, INST)
  Do While 1
   MODORITI = GetExitCodeProcess(PROCESS, ENDWORK)
   If ENDWORK <> 259 Then Exit Do
  Loop
  MsgBox "同期処理は成功しました", 64
End Sub

0 hits

【33300】ShellExecuteとCreateObject("Wscript.Shell") よっちゃん 06/1/8(日) 2:50 質問
【33309】Re:ShellExecuteとCreateObject("Wsc... Kein 06/1/8(日) 17:39 発言
【33320】Re:ShellExecuteとCreateObject("Wsc... よっちゃん 06/1/9(月) 4:29 発言
【33321】Re:ShellExecuteとCreateObject("Wsc... よっちゃん 06/1/9(月) 4:58 発言
【33331】Re:ShellExecuteとCreateObject("Wsc... Kein 06/1/9(月) 14:19 回答
【33356】Re:ShellExecuteとCreateObject("Wsc... よっちゃん 06/1/9(月) 17:23 質問
【33367】Re:ShellExecuteとCreateObject("Wsc... Kein 06/1/9(月) 18:59 発言
【33376】Re:ShellExecuteとCreateObject("Wsc... よっちゃん 06/1/10(火) 1:34 発言
【33382】Re:ShellExecuteとCreateObject("Wsc... Kein 06/1/10(火) 12:27 発言
【33405】謎 よっちゃん 06/1/11(水) 6:01 質問
【33406】Re:謎 こたつねこ 06/1/11(水) 10:19 発言
【33407】Re:謎 awu 06/1/11(水) 12:05 発言
【33436】Re:謎 よっちゃん 06/1/12(木) 2:42 お礼
【33438】Re:謎 こたつねこ 06/1/12(木) 8:53 発言
【33520】Re:ShellExecuteとCreateObject("Wsc... ichinose 06/1/13(金) 19:49 発言
【33523】Re:ShellExecuteとCreateObject("Wsc... よっちゃん 06/1/14(土) 4:05 回答

48337 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free