Список процессов в Win9x

← →
KasAlex (2003-02-07 12:07) [0]

Подскажите пожалуйста, как получить список процессов (всех, а не только по Ctrl+Alt+Del) в Win9x?

← →
Игорь Шевченко (2003-02-07 12:24) [1]

ToolHelp

← →
DVM (2003-02-07 12:48) [2]

interface

uses
{...,}TLHelp32 {important !}

// Global Variables, Globale Variablen

var
aSnapshotHandle: THandle;
aProcessEntry32: TProcessEntry32;

implementation

procedure TForm1.BtnRefreshClick(Sender: TObject);
var
i: Integer;
bContinue: BOOL;
NewItem: TListItem;
begin
ListView1.Items.Clear;
aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
while Integer(bContinue) <> 0 do
begin
NewItem := ListView1.Items.Add;
NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
NewItem.subItems.Add(aProcessEntry32.szExeFile);
bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
end;
CloseHandle(aSnapshotHandle);
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
Ret: BOOL;
PrID: Integer; // processidentifier
Ph: THandle; // processhandle
begin
with ListView1 do
begin
if MessageDlg("Do you want to Terminate "" + ItemFocused.Caption + ""?" + ^J +
"It""s possible the system becames instable or out of" + ^J +
"control......",
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
PrID := StrToInt("$" + ItemFocused.SubItems[0]);
Ph := OpenProcess(1, BOOL(0), PrID);
Ret := TerminateProcess(Ph, 0);
if Integer(Ret) = 0 then
MessageDlg("Cannot terminate "" + ItemFocused.Caption + """,
mtInformation, [mbOK], 0)
else
ItemFocused.Delete;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{
ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.ViewStyle := vsReport;
}
BtnRefresh.Click;
end;

{Only Win95/Win98/ME}

← →
Kasalex (2003-02-07 13:52) [3]

Спасибо!

Список процессов в Win9x Найти похожие ветки