判断*.exe 程序是否运行？

Question

我用shellexecute函数调用外部的a.exe程序，在 调用前首先判断a.exe是否运行，请问怎么办？
还有我不想让用delphi编的b.exe程序打开两个，即当b.exe正在执行的时候，不能再次打开b.exe？

Answer 1

贴一个函数给你试一下：
function THSFile.IsFileInUse(FName: string): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FName) then
    Exit;
  HFileRes := CreateFile(PChar(FName), 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;