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

Вниз

Список запущенных процессов   Найти похожие ветки 

 
Thorn   (2003-02-16 15:48) [0]

Как получить список запущенных процессов под WinXP


 
MAN-In-RED ©   (2003-02-16 15:56) [1]

Должно работать...

unit Unit1;
interface

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

type
TForm1 = class(TForm)
ListBox1 :TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1 :TForm1;

implementation

var
Form1 :TForm1;

implementation
{$R *.DFM}

procedure Module32List(S : TStrings);
var
Module32 :TModuleEntry32;
SS :THandle;
Next :Bool;
begin
Module32.dwSize := SizeOf(TModuleEntry32);
SS := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, 0);
If Module32First(SS, Module32) then
begin
S.Add(Module32.szExePath);
Repeat
Next := Module32Next(SS, Module32);
If Next Then S.Add(Module32.szExePath);
Until Not Next;
end;
CloseHandle(SS);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Module32List(ListBox1.Items);
end;
end.


 
Guerrillero ©   (2003-02-16 17:03) [2]

MAN-In-RED © (16.02.03 15:56) этo для модулей
для процессов надо использовать:
Process32First
Process32Next
и TH32CS_SNAPPROCESS вместо TH32CS_SNAPMODULE в CreateToolHelp32Snapshot
а так принцип такой же


 
Serg997 ©   (2003-02-17 15:22) [3]

http://www.rsdn.ru/?qna/?baseserv/enumproc.xml - подробная статья с примерами...



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
3-54523
DenKop
2003-03-30 19:12
2003.04.17
IB Server EIBInterBaseRoleError


1-54595
Roki
2003-04-04 09:45
2003.04.17
Как в TreeView при DragDrop узнать что узел может принять ветку?


3-54437
DenKop
2003-03-30 00:45
2003.04.17
FIB IBTransaction.Commit


4-54945
Serg997
2003-02-17 15:19
2003.04.17
Как определить локализованную Windows


3-54412
jack128
2003-03-31 18:16
2003.04.17
Проэктирование базы