WindowsXPでVB6.0でプログラムを組んでますが、その中であるEXEファイルを起動するようにしています。しかし、そのEXEが起動している場合は二重起動を避けるようにしたいのです。
使っているPCで起動されているいくつかのEXEから目的のEXEが起動しているかどうかを知りたいです。
FindWindowを使うには開いているファイル名まで変数の中に渡さなければならないため使えません。(開いているファイル名は不明として下さい)
タスクマネージャーの「プロセス」タブのイメージ名に出てくるexeファイル名を取得できればいいのですが、方法をご存知の方おられませんか?
No.2ベストアンサー
- 回答日時:
ご参考にしてください。
Sub ProcessID()
Dim objSet
Dim obj
Dim Locator
Dim Server
'
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Server = Locator.ConnectServer
Set objSet = Server.ExecQuery("Select * From Win32_Process")
'
For Each obj In objSet
MsgBox "プロセス名=" & obj.Caption
Next
Set objSet = Nothing
Set obj = Nothing
Set Server = Nothing
Set Locator = Nothing
End Sub
No.3
- 回答日時:
こんにちは。
> FindWindowを使うには開いているファイル名まで変数の中に渡さなければ
> ならないため使えません。(開いているファイル名は不明として下さい)
FindWindow の第1引数はクラス名を、第2引数にはウインドウタイトルを
渡します。ファイル名が不明であっても特定された EXE ならクラス名は固定
だと思いますので、問題ないと思いますよ。
FindWindow ではハンドルが取得できないものなのでしょうか?
■ WMI を使った方法(#2 ご回答にあるとおり)
動作環境を Win2000/XP/Vista(?) 等に限定すれば、WMI の Win32_Process
クラスが使えます。Win9x 系, NT4.0 で WMI を利用するには、別途でイン
ストールが必要になります。
http://www.microsoft.com/downloads/details.aspx? …
■ API を使った方法
Win95, NT5.0以降 で動作させる必要があるなら、API を使います。
こんな感じです。
Option Explicit
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" ( _
ByVal dwFlags As Long, _
ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32.dll" ( _
ByVal hSnapshot As Long, _
ByRef lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32.dll" ( _
ByVal hSnapshot As Long, _
ByRef lppe As PROCESSENTRY32) As Long
Private Const TH32CS_SNAPPROCESS As Long = &H2
Sub EnumProcessSample()
Dim hSnap As Long
Dim rc As Long
Dim pe As PROCESSENTRY32
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
pe.dwSize = LenB(pe)
rc = Process32First(hSnap, pe)
Do While CBool(rc > 0)
' // process id
Debug.Print "0x" & Right$("00000000" & Hex$(pe.th32ProcessID), 8);
Debug.Print vbTab;
' // file name
Debug.Print Left$(pe.szExeFile, InStr(pe.szExeFile, vbNullChar) - 1)
rc = Process32Next(hSnap, pe)
Loop
End Sub
■ トリッキーな方法
Word.Application の Tasks コレクションを利用します。
参考URL [ Office TANAKA - Excel VBA(実行中のタスク一覧(非API)) ]
http://officetanaka.net/excel/vba/tips/tips61.htm
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(IT・Webサービス) エクセルの実行ファイルについての質問です。 1 2023/05/04 03:58
- その他(セキュリティ) exeファイルの個人情報について 3 2023/06/29 17:36
- Windows 10 exeファイルが起動しない 4 2022/06/05 16:13
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- 労働相談 合意済み仕様の商品納入後における仕様変更要求への対応について 5 2023/04/19 09:41
- フリーソフト TJA-Player3 Develop Rewhite 2 2023/05/04 21:24
- マルウェア・コンピュータウイルス pcがウィルス感染しているかもしれません。変な声が聞こえます。 1 2022/05/03 00:43
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- アプリ アプリケーションが見つかりません 2 2022/07/13 21:07
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBプログラムの終了
Visual Basic(VBA)
-
ウィンドウのタイトルからプロセス取得
Visual Basic(VBA)
-
VB6.0 SHELLで起動したプログラムを終了さしたいのですが
Visual Basic(VBA)
-
-
4
プロセスIDの取得方法について
Visual Basic(VBA)
-
5
VBの画面サイズについて
Visual Basic(VBA)
-
6
配列を関数に渡す方法
Visual Basic(VBA)
-
7
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
8
コマンドプロンプト
Visual Basic(VBA)
-
9
起動中のアプリ、ソフトの取得
Visual Basic(VBA)
-
10
VB6で呼び出し元の情報を取得する方法について
Visual Basic(VBA)
-
11
VB6.0でコンピュータ名の取得
Visual Basic(VBA)
-
12
VB6.0-整数と余りを求める
Visual Basic(VBA)
-
13
vb6で異なるのプロジェクト間で、値を渡したい
Visual Basic(VBA)
-
14
VBでクリックイベントを発生させたいです
Visual Basic(VBA)
-
15
ExcelVBAにてアプリをタスクマネージャーから強制終了させたいのですが
Visual Basic(VBA)
-
16
[VB6] フォームを閉じる方法について
Visual Basic(VBA)
-
17
VB6のWScript.Shellについて
Visual Basic(VBA)
-
18
モーダルフォームとモードレスフォーム
Visual Basic(VBA)
-
19
他のアプリケーションとの連携
Visual Basic(VBA)
-
20
VB6にてメールを送信する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows上のプログラム。「予め...
-
アウトルックが起動しているか...
-
VBSから別のVBS起動するとき変...
-
MSDOS(バッチファイル)でプロセ...
-
ASPでPMT関数が使いたい...
-
宛先ナシでメールソフトを起動...
-
「FindWindow」、ウィンドウハ...
-
HTMLタグの中にDLLを埋め込む事...
-
ACCESS VBAで別のACCESS(mdb)を...
-
VBによる複数バージョンのEXCEL...
-
VBAでSeleniumからChromeを起動...
-
フォームの最前面が効かない
-
WinSCPで画像のように puttyを...
-
VBで別のプログラムを起動し他...
-
VBで実行中のEXEファイルの情報...
-
エクセル起動時別プロセスで開く
-
VB6で呼び出し元の情報を取得す...
-
mscomm32.ocxの登録方法
-
Process.Startで起動したアプリ...
-
Internet ExplorerをC言語プロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アウトルックが起動しているか...
-
VBAでOutlookを終了させたい Ex...
-
VBSから別のVBS起動するとき変...
-
Windows上のプログラム。「予め...
-
VBSで起動したアプリが前面表示...
-
VBで実行中のEXEファイルの情報...
-
キー操作 (WSH:コピー&ペー...
-
EXCEL VBAから他アプリケーショ...
-
Process.Startで起動したアプリ...
-
VBAでSeleniumからChromeを起動...
-
64bitで作ったEXEを32bitで起動...
-
ACCESS VBAで別のACCESS(mdb)を...
-
「FindWindow」、ウィンドウハ...
-
VBAでIEが起動しているか...
-
Shellで起動したプログラムのウ...
-
VBSでExcelのUserFormをエクス...
-
Vba アプリケーションが立ち上...
-
exeファイルを実行するとすぐに...
-
フォームの最前面が効かない
-
別アプリの起動、終了について
おすすめ情報