指定した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; --------------------------------------------------------------