(Как?) Получить pIDы нескольких одинаковых процессов?

[ktulx]

Здравствуйте!

Дано: неизвестное количесво процессов, запущенных одним ЕХЕшником.
Задача: узнать pIDы всех процессов.

Никак не получается -___- несколько часов ищу, пробую. Вот отталкиваясь от этого, хотел сделать, но не выходит

procedure GetPID(EXEname:string);
var
  hSnap: THandle;
  p: TProcessEntry32;
  PID: DWORD;
begin
  p.dwSize := SizeOf(p);
  hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(hSnap, p) then
    while Process32Next(hSnap, p) do
      if ExtractFileName(p.szExeFile) = EXEname then
      begin
        PID := p.th32ProcessID;
      end;
   end;

Пробовал привязать к "for...do" - получилось как всегда )

Помогите, пожалуйста.

[VeTaL_UA]

Класс окна у них должен быть одинаковым, так что можно использовать такой код:

var
Wnd:THandle;
hProcess,PID,PID1:DWord;
FID:array[0..100] of DWord;
i:integer;
begin
Wnd:=FindWindow('класс окна',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (hProcess<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
end;

В итоге все PID должны лежать в массиве FID

[ktulx]

Не хочу просто говорить, что у меня не получается ))
Но мне не понятно, каким образом инструкции могут повлиять на условия while, если hProcess и PID не меняются вообще, а PID1 всегда принимает значение PID? Само собой разумеется, я что-то не понял -___-

[VeTaL_UA]

ktulx, код работает?

[ktulx]

VeTaL_UA, скорее нет, чем да Скажи пожалуйста, при таком раскладе

begin
Wnd:=FindWindow('класс окна',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (hProcess<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
ShowMessage(IntToStr(FID[1]));
end;

Я должен получить PID второго процесса? Я вместо него получаю какую-то хрень. А по FID[0] вижу PID процесса.

[VeTaL_UA]

ktulx, приношу извинение, не увидел опечатку в коде. Правильно будет так:

var
Wnd:THandle;
hProcess,PID,PID1:DWord;
FID:array[0..100] of DWord;
i:integer;
begin
Wnd:=FindWindow('класс окна',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (PID<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
end;

[ktulx]

VeTaL_UA, жестокий ты разве можно так мозг ламеру выносить?
Я уже почти написал свою функцию какими-то окольными путями )))
Спасибо большое за помощь, сейчас проверю.

Добавлено через 1 час 19 минут
точно так же себя ведёт. Запустил два блокнота. По нулевому индексу находит PID, по [1] - что-то не то.

Всё таки либо я идиот, либо в коде защита от идиотов + я идиот Ведь после первого прохода цикла, условие уже не выполняется и в массив идёт только одна запись. Терабайт мне в ухо..

[VeTaL_UA]

ktulx, я не даю не рабочих кодов

var
Wnd:THandle;
hProcess,PID,PID1:DWord;
FID:array[0..100] of DWord;
i:integer;
begin
Wnd:=FindWindow('Notepad',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (PID<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
end;

Код без проблем записывает PID всех запущенных блокнотов в массив

[ktulx]

Да я на свою голову грешу, а не на твой код ) но это уже дело принципа. Я ведь явно что-то делаю не так.

Шлёпаю это на кнопку

var
Wnd:THandle;
hProcess,PID,PID1:DWord;
FID:array[0..100] of DWord;
i:integer;
begin
Wnd:=FindWindow('Notepad',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (PID<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
ShowMessage(IntToString(FID[0]));
end;

получаю идентификатор блокнота. Шлёпаю это

var
Wnd:THandle;
hProcess,PID,PID1:DWord;
FID:array[0..100] of DWord;
i:integer;
begin
Wnd:=FindWindow('Notepad',nil);
GetWindowThreadProcessId(Wnd,@PID);
i:=0;
 while (PID<>0) and (PID<>PID1) do
  begin
  FID[i]:=PID;
  PID1:=PID;
  inc(i);
  end;
ShowMessage(IntToString(FID[1]));
end;

получаю хрень.

[VeTaL_UA]

Сколько у тебя блокнотов запущено?

[ktulx]

Два или три - результат тот же

[VeTaL_UA]

Повторю. У меня код работает. Ищи ошибку у себя.

[Salamab]

Очень интересная тема, друзья! С недавнего времени увлекаюсь этим. Пробовал сделать то, что вы описываете здесь.. получается тоже самое, что и у товарища ktulx =((((((

[ktulx]

тык

Не хочу показаться ещё бОльшим занудой, чем я есть )) но, пожалуйста, кто-нибудь объясните мне, как в этом коде может идти работа с несколькими процессами, если в самом начале процедуры мы получаем хэндл одного окна, PID по этому хэндлу и всё. Пошаговое выполнение программы в делфи показывает, что цикл проходит только один раз.

[Gorrilaz]

При проверке выполнения цикла так же получил одно выполнение кода... Проверял на окнах Perfect World.
Получается так, если перейти к окну программы ищется если не перейти то ищет последнее запущенное (или последнее к которому мы переходили).
Есть такое ощущение, что в неактивном окне не выполняется процесс на уровне обмена с видной (т.е. процесс приостанавливается). Бред какой то...
Хотя судя по описанию winapi функции пофиг на окно.