Вниз
Скачать: CL | DM;

Как просмотреть запущенные процессы в win2k?   Найти похожие ветки 

 
ДИван ©   (2005-01-26 14:09) [0]

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


 
xShadow ©   (2005-01-26 14:12) [1]

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) [2]

Uses TlHelp32;


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

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


 
kaZaNoVa ©   (2005-01-26 15:03) [4]

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

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

и  if ProcessHandle <> 0 then


 
Kerk ©   (2005-01-26 15:04) [5]

CTRL + SHIFT + ESC


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

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


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

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


 
Kerk ©   (2005-01-26 15:23) [8]

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

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


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

Kerk ©   (26.01.05 15:23) [8]

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


 
Kerk ©   (2005-01-26 15:38) [10]

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


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


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

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

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c
1-1108993267
Mouserx
2005-02-21 16:41
2005.03.06
Скроллинг при добавлении текста в Memo


4-1106631182
SkierMax
2005-01-25 08:33
2005.03.06
Выключение компьютера под XP


14-1108362889
_silver
2005-02-14 09:34
2005.03.06
Вот я и женился.


6-1100024074
Scordion
2004-11-09 21:14
2005.03.06
Delphi+ie


1-1109182411
Kerk
2005-02-23 21:13
2005.03.06
"Разделяемый" массив.




   Наверх