HSPTV!掲示板

任意のプログラムが実行されているかどうか？を調べる方法を教えて下さい。
但し、任意のプログラムで分かっていることはファイル名（xxxx.exe)だけです。

二重起動防止の仕組みを応用すればできると思います、たぶん

http://yokohama.cool.ne.jp/chokuto/urawaza/index.html

すいません、↑のは自分で作ったプログラムしかだめでした
これは大丈夫ですが、Program Files に入ってるプログラムはアクセス拒否されます

#uselib "kernel32.dll"
#func CreateFile "CreateFileA" sptr ,sptr ,sptr ,sptr ,sptr ,sptr ,sptr
#func CloseHandle "CloseHandle" sptr
#cfunc GetLastError "GetLastError"


dialog "",16
path = refstr
mes path+"\n"

CreateFile varptr(path) ,0x40000000 ,0x2 ,0 ,0x3 ,0 ,0
hFile = stat
	
	switch GetLastError()
	case 32
		mes "実行中" :swbreak
	case 5
		mes "アクセス拒否" :swbreak
	case 0
		mes "実行されてません" :swbreak
	default
		mes "調べてません(^^;)" :swbreak
	swend

CloseHandle hFile

たこさん、ありがとございます。

最終的には二重起動防止なのですが自分自身ではないので質問させてもらいました。
ご提示頂いたスクリプトでほぼOK です。Program Files にあるMS系ソフトがアクセス拒否
されるようですね。他のプログラムはOKでした。

CreateFile varptr(path) ,0x40000000 ,0x2 ,0 ,0x3 ,0 ,0

↑このAPIがいまいち理解できていないので何をしているのかかいつまんで説明してもらえませんか？
CreateFile（A)の説明は読みましたが難しくて・・・

CreateFile は何をしているのかというと、ファイルに何か書き込もうとしているわけです
実行中のファイルは変更されないように守られているのでエラーが出るわけです
第２引数は今から書き込むって宣言です
第３引数は 0 でもいいです
第４引数はファイルを開くって意味です
飛ばしたのは特に重要じゃないから

>実行中のファイルは変更されないように守られているのでエラーが出るわけです

なるほどこれは納得です。
他はよく理解できませんがありがとうございました。