VPF::Узнать о запущенных процессах как можно больше

RamIreZz

Дата 10.3.2008, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Veni, vidi, vici.

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 9.3.2008
Где: Химки

Репутация: нет
Всего: нет

Сам парился над этим около двух дней и вот, что у получилось:

Код


unit main;

interface

uses
  Windows, SysUtils, Classes, Forms, Tlhelp32, PSAPI, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure GetProcessList(var sl: TStrings);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetProcessList(var sl: TStrings);
var
  ProcHandle: THandle; //дескрипторы процесса и снимка
  mh: hmodule; //дескриптор модуля
  procs: array[0..$FFF] of dword; //массив для хранения дескрипторов процессов
  count, cm: Cardinal; //количество процессов
  i: integer;
  ModName: array[0..max_path] of char; //имя модуля
begin
  sl.Clear;
  begin
    if not EnumProcesses(@procs, sizeof(procs), count) then
    begin
      exit;
    end;
    for i := 0 to count div 4 - 1 do
    begin
      ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        false, procs[i]);
      if ProcHandle > 0 then
      begin
        EnumProcessModules(ProcHandle, @mh, 4, cm);
        GetModuleFileNameEx(ProcHandle, mh, ModName, sizeof(ModName));
        sl.Add(string(ModName));
        CloseHandle(ProcHandle);
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  tmp: TStrings;
begin
  tmp := memo1.Lines;
  GetProcessList(tmp);
end;

end.

Работает на 100%, проверял не раз.

ivan219

Дата 10.3.2008, 22:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: нет
Всего: 12

Цитата(RamIreZz @ 10.3.2008, 15:38

)

Работает на 100%, проверял не раз.

Враки уменя он 24 процеса показал а на самом деле 32 кде ещё 8 штук ааааа.
И ещё что это такое:

Код


?
\SystemRoot\System32\smss.exe
\??\C:\WINDOWS\system32\winlogon.exe

Что за вопросы?

--------------------

Мой первый сайт и моя первая программа!!!!!

MetalFan

Дата 11.3.2008, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

Цитата(ivan219 @ 10.3.2008, 22:35

)

Что за вопросы?

наверное потому что пора уже потихоньку на юникод переходить)))

--------------------

There are always someone smarter than you...

labvictx

Дата 30.7.2011, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.2.2007

Репутация: нет
Всего: нет

Плиз, братва, профи, помогите с примером smile

, как узнать список запущенных процессов на удаленном компе, на Delphi???? Весь инет уже как месяц лажу smile

нет не чего стоящего

Это сообщение отредактировал(а) labvictx - 23.3.2018, 13:46

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »