怎样编写一个程序判断某个程序正在被使用?万分火急，哪位大哥能帮我的忙？

Question

1 怎样判断某个程序正在被使用?
比如：我打开了我的一个程序名字叫 "a.exe"，怎样编写一个程序来判断"a.exe"正在被使用？如果正在被使用给出一个提示，如果"a.exe"使用完后被关闭就删除它。即编写一个程序在后台监视。请各位能帮我一下，小弟在此万分感激。是否您能分别编一个程序发到我的信箱？
2 你有关于API的资料吗？如有能送给我吗？
Email:  [email protected]

Answer 1

我只能做到你的a.exe是否已启动，不能得知正在使用：
h:hwnd;
h:=findwindow(nil,你的应用程序名）；
if h<>null then showmessage('你已经运行了这个程序');

Answer 2

有这方面的API的。就相当与WINDOWS的任务管理器一样啊!好象要四个API!
不过我不记得了!

Answer 3

用FindWindow函数检测该进程的窗体句柄，如果返回为非零，则表示进程在运行。

Answer 4

function IsFileInUse(Const AFileName: String): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(AFileName) then
    exit;
  HFileRes := CreateFile(pchar(AFileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
end;

Answer 5

先找判断是否运行FindWindow
再用勾子判断是否使用中？
勾子通街都有，自己找

Answer 6

进程表里面查找是否有该进程——a.exe

Answer 7

楼上的大哥，请问
怎样，用程序查找是否有该进程——a.exe

Answer 8

首先创建系统进程快照，然后遍历之，查询其中是否有‘a.exe’有则提示，无则不提示。说白了，就是创建系统进程快照的问题