Program som service

unit UWinProcesses;

interface

uses
  SysUtils, Classes, Windows, TlHelp32;

function IsProcess(aExename: string): Boolean;
procedure GetProcesses(aProcessList: TStringList);

implementation

function IsProcess(aExename: string): Boolean;
var
  found: boolean;
  lSnapShot: cardinal;
  foundname: string;
  rProcess: TProcessEntry32W;
begin
  Result := False;
  aExeName := UpperCase(aExeName);
  lSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if lSnapShot <> 0 then
  begin
    rProcess.dwSize := SizeOf(rProcess);
    found := TlHelp32.Process32First(lSnapShot, rProcess);
    while found do
    begin
      foundname := string(rProcess.szExeFile);
      if Pos(aExeName, UpperCase(foundname)) <> 0 then
      begin
        Result := True;
        Break;
      end;
      found := Process32Next(lSnapShot, rProcess);
    end;
    CloseHandle(lSnapShot);
  end;
end;

procedure GetProcesses(aProcessList: TStringList);
var
  Found: boolean;
  lSnapShot: cardinal;
  rProcess: TProcessEntry32W;
begin
  aProcessList.BeginUpdate;
  try
    aProcessList.Clear;
    lSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if lSnapShot <> 0 then
    begin
      rProcess.dwSize := SizeOf(rProcess);
      Found := Process32First(lSnapShot, rProcess);
      while Found do
      begin
        aProcessList.Add(rProcess.szExeFile);
        Found := Process32Next(lSnapShot, rProcess);
      end;
      CloseHandle(lSnapShot);
    end;
  finally
    aProcessList.EndUpdate;
  end;
end;

function IsProcess(aExename: string): Boolean;
var
  OK: boolean;
  lSnapShot: cardinal;
  rProcess: TProcessEntry32W;
begin
  result := false;
  aExeName := UpperCase(aExeName);

  lSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if lSnapShot = 0 then
    exit;
  try
    rProcess.dwSize := SizeOf(rProcess);
    OK := TlHelp32.Process32First(lSnapShot, rProcess);
    while OK and not result do
    begin
      result := Pos(aExeName, UpperCase(string(rProcess.szExeFile))) > 0;
      if not result then
        OK := Process32Next(lSnapShot, rProcess);
    end;
  finally
    CloseHandle(lSnapShot);
  end;
end;