| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список процессов в Win9x [D5, Win95/98]

KasAlex ©   (2003-02-07 12:07:00) 

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

---

Kasalex   (2003-02-07 13:52:00) [1]

Спасибо!

---

DVM   (2003-02-07 12:48:00) [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}

---

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

ToolHelp

---

Наверх