掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
指定したEXEが起動中かどうかの判断 (ID:39475)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
プロセスをカウントする方法ではどうでしょうか？ サンプル Delphi 7 返ってきた値が0であれば実行していない。 --------------------------------------------------------------- function GetExeCount(sExeName:string):integer; Var hProcesss : integer; P32 : TPROCESSENTRY32 ; i : integer; begin result := 0; i := 0; hProcesss := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); P32.dwSize := Sizeof(TPROCESSENTRY32); If Process32First(hProcesss, @P32) <> 0 Then begin repeat if sExeName = (P32.szExeFile) then inc(i) Until(Process32Next(hProcesss, @P32) = 0); end; CloseHandle(hProcesss) ; result := i; end; --------------------------------------------------------------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.