Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
gfx	[ DIR ]	drwxrwxrwx	2024-07-26 17:36
locale	[ DIR ]	drwxrwxrwx	2024-07-26 17:36
VersInfo.pas	42.97 KB	-rw-rw-rw-	2015-11-12 17:13
default.po	32.22 KB	-rw-rw-rw-	2015-11-12 17:13
ggexclude.cfg	227 B	-rw-rw-rw-	2015-11-12 17:13
gnugettext.pas	114.84 KB	-rw-rw-rw-	2015-11-12 17:13
ignore.po	7.28 KB	-rw-rw-rw-	2015-11-12 17:13
sonar-project.properties	464 B	-rw-rw-rw-	2015-11-12 17:13
uApache.pas	15.79 KB	-rw-rw-rw-	2015-11-12 17:13
uBaseModule.pas	2.25 KB	-rw-rw-rw-	2015-11-12 17:13
uConfig.dfm	14.81 KB	-rw-rw-rw-	2015-11-12 17:13
uConfig.pas	4.43 KB	-rw-rw-rw-	2015-11-12 17:13
uConfigUserDefined.dfm	14.73 KB	-rw-rw-rw-	2015-11-12 17:13
uConfigUserDefined.pas	3.36 KB	-rw-rw-rw-	2015-11-12 17:13
uExceptionDialog.dcu	32.71 KB	-rw-rw-rw-	2015-11-12 17:13
uExceptionDialog.dfm	2.08 KB	-rw-rw-rw-	2015-11-12 17:13
uExceptionDialog.pas	27.37 KB	-rw-rw-rw-	2015-11-12 17:13
uFileZilla.pas	14.85 KB	-rw-rw-rw-	2015-11-12 17:13
uGetWinVersionInfo.dcu	8.09 KB	-rw-rw-rw-	2015-11-12 17:13
uGetWinVersionInfo.pas	11.13 KB	-rw-rw-rw-	2015-11-12 17:13
uHelp.dfm	3.18 KB	-rw-rw-rw-	2015-11-12 17:13
uHelp.pas	1.81 KB	-rw-rw-rw-	2015-11-12 17:13
uJclSysInfo.pas	22.05 KB	-rw-rw-rw-	2015-11-12 17:13
uLanguage.dfm	12.95 KB	-rw-rw-rw-	2015-11-12 17:13
uLanguage.pas	2 KB	-rw-rw-rw-	2015-11-12 17:13
uLogOptions.dfm	6.42 KB	-rw-rw-rw-	2015-11-12 17:13
uLogOptions.pas	2.1 KB	-rw-rw-rw-	2015-11-12 17:13
uMain.dfm	217.14 KB	-rw-rw-rw-	2015-11-12 17:13
uMain.pas	39.26 KB	-rw-rw-rw-	2015-11-12 17:13
uMercury.pas	11.42 KB	-rw-rw-rw-	2015-11-12 17:13
uMySQL.pas	13.95 KB	-rw-rw-rw-	2019-06-03 13:40
uNetstat.dfm	3.53 KB	-rw-rw-rw-	2015-11-12 17:13
uNetstat.pas	7.95 KB	-rw-rw-rw-	2015-11-12 17:13
uNetstatTable.pas	7.58 KB	-rw-rw-rw-	2016-12-14 12:45
uProcesses.pas	6.25 KB	-rw-rw-rw-	2015-11-12 17:13
uProcesses_new.pas	2.14 KB	-rw-rw-rw-	2019-03-07 14:14
uServiceSettings.dfm	16.89 KB	-rw-rw-rw-	2015-11-12 17:13
uServiceSettings.pas	8.26 KB	-rw-rw-rw-	2015-11-12 17:13
uServices.pas	6.14 KB	-rw-rw-rw-	2015-11-12 17:13
uTomcat.pas	15.9 KB	-rw-rw-rw-	2015-11-12 17:13
uTools.pas	26.61 KB	-rw-rw-rw-	2021-04-06 11:38
xampp_control3.dpr	2.21 KB	-rw-rw-rw-	2015-11-12 17:13
xampp_control3.dproj	30.26 KB	-rw-rw-rw-	2021-04-06 11:38
xampp_control3.dproj.local	38.45 KB	-rw-rw-rw-	2015-11-12 17:13
xampp_control3.drc	78.46 KB	-rw-rw-rw-	2015-11-12 17:13
xampp_control3.dres	37.08 KB	-rw-rw-rw-	2015-11-12 17:13
xampp_control3.identcache	1.29 KB	-rw-rw-rw-	2015-11-12 17:13
xampp_control3.stat	170 B	-rw-rw-rw-	2015-11-12 17:13
xampp_control3Resource.rc	341 B	-rw-rw-rw-	2015-11-12 17:13
xampp_control3_project.tvsconfig	72 B	-rw-rw-rw-	2015-11-12 17:13

Rename

unit uProcesses_new;

interface

uses GnuGettext, Classes, SysUtils, Windows, uTools, PsAPI, JCLSysInfo, Variants;

type
  TQueryFullProcessImageName = function(hProcess: Thandle; dwFlags: DWORD; lpExeName: PChar; nSize: PDWORD): BOOL; stdcall;
  tProcesses = class
  public
    ProcessList2: TStrings;
    function GetProcessPath(PID: Cardinal): string;
    function GetProcessName(PID: Cardinal): string;
    procedure UpdateList;
    constructor Create;
    destructor Destroy; override;
  end;

var
  Processes: tProcesses;

implementation

{ tProcessList }

constructor tProcesses.Create;
begin
  ProcessList2 := TStringList.Create;
end;

destructor tProcesses.Destroy;
begin
  ProcessList2.Clear;
  FreeAndNil(ProcessList2);
  inherited;
end;

function tProcesses.GetProcessName(PID: Cardinal): string;
var
  name: string;
  index: integer;
begin
  index := ProcessList2.IndexOfObject(Pointer(PID));

if (index >= 0) then
  begin
    name := ProcessList2[index];
    result := name;
  end
  else
    result := '';
end;

function tProcesses.GetProcessPath(PID: Cardinal): string;
var
  hProcess: THandle;
  value: array [0 .. MAX_PATH - 1] of Char;
  nSize: cardinal;
  QueryFullProcessImageName: TQueryFullProcessImageName;

begin
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);

if hProcess <> 0 then
  begin
    try
      SetLength(result, MAX_PATH);
      FillChar(result[1], Length(result) * SizeOf(Char), 0);

ZeroMemory(@value, MAX_PATH);
      nSize := MAX_PATH;
      @QueryFullProcessImageName := GetProcAddress(GetModuleHandle('kernel32'), 'QueryFullProcessImageNameW');

if QueryFullProcessImageName(hProcess, 0, value, @nSize) then
        result := Trim(value)
       else
        result := 'Unable to get info';
    finally
      CloseHandle(hProcess)
    end;
  end
  else
    result := 'Unable to open process';
end;

procedure tProcesses.UpdateList;
begin
  ProcessList2.Clear;
  RunningProcessesList(ProcessList2, False);
end;

initialization

Processes := tProcesses.Create;

finalization

Processes.Free;

end.