1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function IsProcess(ExeName: string): Boolean;
(*
** This routine examines Windows processes currently running to see if a
** certain program is running.
**
** sExe  : The executable name of the program to check.
** Result: True if the program is running, False otherwise.
*)
var
  liI, lSnapShot: Longint;
  rProcess      : TProcessEntry32;
begin
  Result := False;
  ExeName := UpperCase(ExeName);
  lSnapShot := CreateToolHelpSnapShot(TH32CS_SNAPPROCESS, 0);
  if lSnapShot <> 0 then begin
    rProcess.iSize := SizeOf(rProcess);
    liI := ProcessFirst(lSnapShot, rProcess);
    while liI <> 0 do begin
      if Pos(ExeName, UpperCase(rProcess.aExeFile)) <> 0 then begin
        Result := True;
        Break;
      end;
      liI := ProcessNext(lSnapShot, rProcess);
    end;
    CloseHandle(lSnapShot);
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

TProcessEntry32 = packed record
  iSize,
  iUsage,
  iProcessID,
  iDefaultHeapId,
  iModuleId,
  iThreads,
  iParentProcessId,
  iPriClassBase,
  iFlags: Integer;
  aExeFile: array[0..MAX_PATH] of AnsiChar;
end;                    

1:

    szExeFile: array[0..MAX_PATH - 1] of WChar;