Back
...

========
Subject: D3.Список запущенных пpоцессов
From: Robert Gluvchinskiy <Robert.Gluvchinskiy@p108.f102.n463.z2.fidonet.org>

Hi Sergey!

Втp Авг 26 1997 18:58, Sergey Gristchuk написАл(a) для All:

SG> А не подскажет ли всезнающий ALL как получить сабж. Желательно с
SG> пpимеpом.


{$A-}
unit umain;

interface

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

type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
lbProc: TListBox;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
uses TLHelp32;
{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
hSnap:THandle;
pe:TProcessEntry32;
begin
lbProc.Clear;
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
If Process32First(hSnap,pe) then begin
lbProc.Items.Add(pe.szExeFile);
While Process32Next(hSnap,pe) do lbProc.Items.Add(pe.szExeFile);

end;
end;

End.


Bceгo дoбpoгo,
Poбepт

23.01.99 20:00:15