[Вопрос]Как найти процесс приложения зная его заголовок?

[saylar_06]

Собственно вопрос думаю понятен, но для наглядно отпишусь подробнее...

Нашел я окно через FindWindow(); теперь как мне найти его процесс зная его заголовок?

Нашел такую функцию Function GetWindowThreadProcessId(hwnd:HWND; var dwprocessId:Cardinal):Cardinal;

но многие пишут что:

По этой функции у меня находит какой-то поток данного процесса, а можно ли выйти на сам процесс через этот поток?

так как мне найти имя_процесса.exe зная его заголовок?

[Человек_Борща]

вообщето процессы это и есть потоки. Каждый процесс это поток. По этому GetWindowThreadProcessId, почти всегда вернёт тебе id основного потока к оторому прнадлежит окно. За исключением того случая, что окно будет динамически созданно в другом потоке. Тогда придётся повозится... крутить список процессов, искать к какому процессу принадлежит поток, чей id был вернут функцией.

[Пепел Феникса]

вообщето процессы это и есть потоки.

ни в коем случае.

По этому GetWindowThreadProcessId, почти всегда вернёт тебе id основного потока к оторому прнадлежит окно.

читаем описание функции, а не гадаем на кофейной гуще:
GetWindowThreadProcessId Function
про второй параметр функции.

lpdwProcessId [out, optional]

Type: LPDWORD

A pointer to a variable that receives the process identifier. If this parameter is not NULL, GetWindowThreadProcessId copies the identifier of the process to the variable; otherwise, it does not.

потом имея ид, вы можете через tlHelp32 узнать его имя.

так что ТС, не читайте что пишут многие, а читайте сначало оффициальную документацию по функции.

применять так:

var PID:DWORD;
begin
 GetWindowThreadProcessId(<хендл окна>,PID);

в PID будет идентификатор процесса, по которому уже можно работать с процессом.

[Человек_Борща]

ни в коем случае.

Разве у процесса нет основного VCL потока?

И тот же пример:
Что вернёт функция если окно будет создано в том же TThread?

Вернёт id потока или процесса к которому принадлежит поток?

[Stilet]

нет основного VCL потока?

VCL может и не быть

[Человек_Борща]

С консольками да=) Но в случае ТС это исключено. Берёт же он hwnd откуда-то

[Stilet]

С консольками да=)

Ошибаешся

Берёт же он hwnd откуда-то

Я тебя подкалываю - VCL не все ЯВУ используют
А правильный ответ ему уже был дан.

[Пепел Феникса]

Что вернёт функция если окно будет создано в том же TThread?

вернет id данного потока.
так как она всегда возвращает id потока, в котором создано окно.
а вот через второй параметр вернет id процесса.

Разве у процесса нет основного VCL потока?

не существует понятия VCL поток. любой поток может иметь окна.(это в Делфи решено что первичный поток должен владеть окнами)

[Человек_Борща]

спасибо, за ещё немного пищи для ума. +++

[)Игнат(]

uses THelp32;
...
procedure TForm1.Button1Click(Sender: TObject);
var
 hSnap:THandle;
 pe:TProcessEntry32;
 pid: DWORD;
begin
Plist.Clear;
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 If Process32First(hSnap,pe) then
   While Process32Next(hSnap,pe) do
      begin
           if ExtractFileName(pe.szExeFile)='ваш_экзешник.exe' then
          begin
            pid:=pe.th32ProcessID;
//ваши действа
          end;
      end;