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

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

Как просмотреть запущенные процессы в win2k? [D6, Win2k]

ДИван ©   (2005-01-26 14:09:00) 

Здравствуйте.
Помогите, пожалуйста.
Кто знает ответ на мой вопрос?

---

Игорь Шевченко   (2005-01-26 18:07:00) [1]

А у нас лаба всего лишь... :(((

Лабы пишутся самостоятельно.

---

Kerk   (2005-01-26 15:38:00) [2]

ДИван ©   (26.01.05 15:34) [9]
А у нас лаба всего лишь... :(((

и лаба такая у нас была... вообще на лабах должны методички давать.. так что кончай искать халяву.

---

ДИван   (2005-01-26 15:34:00) [3]

Kerk ©   (26.01.05 15:23) [8]

А у нас лаба всего лишь... :(((

---

Kerk   (2005-01-26 15:23:00) [4]

ДИван ©   (26.01.05 15:21) [7]

хе-хе.. у нас тоже такой курсовик был..
сам делай.

---

ДИван   (2005-01-26 15:21:00) [5]

А теперь, как просмотреть карту памяти каждого процесса?

---

Игорь Шевченко   (2005-01-26 15:16:00) [6]

http://www.schevchenko.net.ru/SRC/QuerySystemInformation_60.zip

---

Kerk   (2005-01-26 15:04:00) [7]

CTRL + SHIFT + ESC

---

kaZaNoVa   (2005-01-26 15:03:00) [8]

ДИван ©   (26.01.05 15:01) [3]
ага, убери

ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Process32.th32ProcessID);
   

и  if ProcessHandle <> 0 then

---

ДИван   (2005-01-26 15:01:00) [9]

Спасибо. Но выводятся не все.. :(

---

xShadow   (2005-01-26 14:12:00) [10]

var ProcessHandle: THandle;
   Process32: TProcessEntry32;
   ProcessSnapshot: THandle;
   FileName       : String;
   FOut: TextFile;
Begin
   ProcessSnapshot := CreateToolHelp32SnapShot( TH32CS_SNAPALL, 0 );
   Process32.dwSize := SizeOf( TProcessEntry32 );
   Process32First( ProcessSnapshot, Process32 );
   AssignFile( FOut, 'c:\prc.txt' );
   if FileExists( 'c:\prc.txt' ) then Append( FOut ) else
      ReWrite( FOut );
   Repeat
      ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Process32.th32ProcessID);
      WriteLn( FOut, Process32.szExeFile );
      if ProcessHandle <> 0 then
      FileName := StrPas( Process32.szExeFile );
      CloseHandle( ProcessHandle );
   until not (Process32Next(ProcessSnapshot, Process32));
   CloseFile( FOut );
   CloseHandle(ProcessSnapshot);
end;

---

xShadow   (2005-01-26 14:12:00) [11]

Uses TlHelp32;

---

Наверх