Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Получение списка активных процессов в Win9x/Me   Найти похожие ветки 

 
Renegate ©   (2003-05-16 11:38) [0]

Здраствуйте! Мастера подскажите как получить список активных компанентов Windows, если можно то на римере.


 
MBo ©   (2003-05-16 12:48) [1]

см. ToolHelp32 функции


 
Mischka ©   (2003-05-16 12:59) [2]

Вот, типа. Разбирайся:

unit Main;

interface

uses
Windows, Messages, Forms, SysUtils,
TLHelp32, Classes, ExtCtrls, Controls, ComCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
ListView1: TListView;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
isNT: boolean;
procedure fillTable(Process32: TProcessEntry32);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.fillTable(Process32: TProcessEntry32);
var
Item: TListItem;
begin
Item:=ListView1.Items.Add();
if isNT then Item.Caption:=Process32.szExeFile // Имя процесса
else Item.Caption:=extractFileName(Process32.szExeFile);
Item.SubItems.Add(IntToStr(Process32.th32ProcessID)); // ID процесса
Item.SubItems.Add(IntToStr(Process32.cntThreads)); // Потоки
Item.SubItems.Add(IntToStr(Process32.th32ParentProcessID)); // ID родителя
Item.SubItems.Add(IntToStr(Process32.pcPriClassBase)); // Приоритет
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Process32: TProcessEntry32;
SS: THandle;
Next: BOOL;
begin
Process32.dwSize:=SizeOf(TProcessEntry32);
SS:=createToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Process32First(SS, Process32) then
begin
ListView1.Clear;
fillTable(Process32);
repeat
Next:=Process32Next(SS, Process32);
if Next then fillTable(Process32)
until not Next
end;
CloseHandle(SS);
Application.ProcessMessages()
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
isNT:=Win32Platform=VER_PLATFORM_WIN32_NT
end;

end.



Страницы: 1 вся ветка

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-55461
Belocarsk
2003-06-25 12:27
2003.07.17
Маркер сортировки в столбце DBGrida как Outlooke


14-55819
ArtemB
2003-07-01 12:33
2003.07.17
запрос SQL


14-55845
Карелин Артем
2003-07-01 15:36
2003.07.17
Алгоритмы обработки изображений. Где найти описания?


6-55688
velsi
2003-05-13 11:13
2003.07.17
idFTPserver


3-55427
KIR
2003-06-24 11:51
2003.07.17
Тип NUMERIC в IB