How obtain Windows processes list?

Have a look at the components on this page especially the bottom one:

http://www.vclcomponents.com/x_authors.asp?LETTER=A&ID_AUTHOR=7026

Regards,

Hypoviax

The Windows Core SDK has the following to say about this subject:

"NtQuerySystemInformation is an internal Windows function that retrieves various kinds of system information. Because this function may change in future versions of Windows, use the alternate functions listed below."

It then lists the following functions as preferred interfaces:

GetSystemInfo, GetProcessHandleCount, GetProcessMemoryInfo, GetSystemTimes, GetSystemRegistryQuota, CryptGenRandom.

You can kind documentation for all of these in the SDK at http://www.microsoft.com/msdownload/platformsdk/sdkupdate/

You would probably be happier using the JEDI "JCL" class library which includes, among other things, RunningProcessesList:

Returns a list of all running processes.
function RunningProcessesList(const List: TStrings; FullPath: Boolean = True): Boolean;

Unit

JclSysInfo

Parameters

const List: TStrings

The list which is filled with the names of all running processes. Note that if this function is executed NT 3 or NT 4 the Objects property of the list contains INVALID_HANDLE_VALUE, on all other systems the Objects property is filled with the ToolHelp Process ID which you can use to further investigate the process.

FullPath: Boolean = True

If True the names of processes in the list are expanded to include the full path of the executable file. If False only the process name (filename of the executable) is put in the list.

Return Value

If the function succeeds it returns True, otherwise it returns False. In the latter case the contents of the list is undefined.

Description

RunningProcessesList fills the List parameter with a list of all running processes.

Notes

On Windows NT/2000 there exists two processes with PIDs 0 and 2 (8 on Windows 2000) which do not map to an executable image file. The names of these processes are fabricated by the routine as "System Idle Process" and "System Process" respectively.

Quick Info

 Donator: Petr Vones

Project JEDI (http:delphi-jedi.org).

Here's some code...  :)

================================================

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, TlHelp32;

type
 TForm1 = class(TForm)
   GroupBox1: TGroupBox;
   ListBox1: TListBox;
   GroupBox2: TGroupBox;
   Button1: TButton;
   Button2: TButton;
   Label1: TLabel;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Label1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 proc : PROCESSENTRY32;
 hSnap : HWND;
 Looper : BOOL;

implementation
{ Just Remember As TlHelp32 To The Uses Thats What I Had A Problem Find Out How To Get To The Process }
procedure ListProcesses;
var ExeName : String;
begin
Form1.listbox1.Clear;//Clear ListBox
proc.dwSize := SizeOf(Proc);//Give proc.dwSize the Size of bytes of PROCESSENTRY32
hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0); // I got all this stuff comments on the kill process part no need to repeat eheh
Looper := Process32First(hSnap,proc);
while Integer(Looper) <> 0 do
begin
ExeName := ExtractFileName(proc.szExeFile);
Form1.ListBox1.Items.Add(ExeName);
Looper := Process32Next(hSnap,proc);
end;
CloseHandle(hSnap);
end;