Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Вниз

Определить список процессов   Найти похожие ветки 

 
Grassus   (2006-10-24 12:05) [0]

Знает кто нибудь, как по сети определить на каком компе запущены какие процессы (например WinAmp, Word и т.п.)


 
Орион ©   (2006-10-24 15:29) [1]

uses TlHelp32;

procedure ListProcessModules(List: TStringList; ClearList: Boolean = True);
var
 SnapShot: THandle;
 PE: TProcessEntry32;
 ProcessInfo: TProcessInformation;
 ProcName: string;
 ExitCode: DWord;
begin
 if ClearList then List.Clear;
 SnapShot:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 if SnapShot=INVALID_HANDLE_VALUE then Exit;
 try
  PE.dwSize:=SizeOf(TProcessEntry32);
  if Process32First(SnapShot, PE) then
  repeat
   ProcessInfo.hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION, False, PE.th32ProcessID);
   if (ProcessInfo.hProcess>32) then
   begin
    GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
    if ExitCode=STILL_ACTIVE then List.Add(string(PE.szExeFile));
   end;
  until not Process32Next(SnapShot, PE);
 finally
  CloseHandle(SnapShot);
 end;
end;


 
Орион ©   (2006-10-24 15:34) [2]

опс. Я прошу прощения. Как всегда не дочитал вопрос до конца :(


> [0] Grassus   (24.10.06 12:05)

На удаленном компьютере можно программку запустить, которая будет определять список процессов способом, что указан выше и передавать его (список) на твой компьютер.



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

Форум: "Сети";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.046 c
6-1161440921
jimy
2006-10-21 18:28
2007.04.08
ICS, TWSocket


1-1171537578
Аноним
2007-02-15 14:06
2007.04.08
отдельное отображение формы в таскбар


15-1173957819
alex_***
2007-03-15 14:23
2007.04.08
System error. Code 1410. Class already exists


2-1173892490
Malik
2007-03-14 20:14
2007.04.08
Печать содержимого TStringGrid


15-1173787595
Ламот
2007-03-13 15:06
2007.04.08
Проблемы с печатью из 1C + Win2003 + Терминал сервер





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский