Handle окна по файлу EXE

[SERG1980]

как зная EXE имя файла определить Handle окна.

[raxp]

найти pid процесса и все его дочерние...
EnumThreadWindows c параметром dwThreadId= pi.hThread даст хэндл главного окна, если оно есть...

[SERG1980]

Сообщение от raxp

найти pid процесса и все его дочерние...
EnumThreadWindows c параметром dwThreadId= pi.hThread даст хэндл главного окна, если оно есть...

Буду признателен если распишите поподорбнее, к сожалению никогда не приходилось решать такие задачи

[Stilet]

Когда-то такой пример рулил:

unit Unit1;

interface

uses         tlhelp32,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure GetProcessList;
  private
    { Private declarations }
  public

    proc:tagPROCESSENTRY32;pc:Cardinal;
 ProcArray:array of tagPROCESSENTRY32;
    { Public declarations }
  end;
  function erq(q:Hwnd;c:Lparam):boolean; stdcall;

var

  Form1: TForm1;

implementation



{$R *.dfm}
//********* PROCEDURE**********
procedure TForm1.GetProcessList;
//const
Var i:integer;
begin         i:=0;
  pc:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  Process32First(pc,proc);
  repeat
      setlength(procarray,length(procarray)+1);
      procarray[i]:=proc;  inc(i);
  until not Process32Next(pc,proc);
end;
//********* END PROCEDURE******* {}


function erq(q: Hwnd; c: Lparam): boolean;
begin
form1.caption:=form1.caption+inttostr(q); result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   GetProcessList;
   //Caption:=enumThreadWindow_Crtfox(GetCurrentThreadId,',');
  if not EnumThreadWindows({GetCurrentThreadId}2612, @erq,0)
  then RaiseLastWin32Error;
end;
end.

Здесь 2612 - Это IDThread.
Я вот правда забыл как его получать...

[raxp]

зы: Stilet опередил
добавлю pid по имени, массив ни к чему:

function search(name:string): Cardinal;
var ExeFile    : String;
    PE         : TProcessEntry32;
    FSnap,Handl: THandle;
begin
 result:= 0;
 FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 //
 PE.dwSize:= SizeOf(PE);
 if (Tlhelp32.Process32First(FSnap,PE)) Then
  Repeat
   ExeFile:= PE.szExeFile;
   //
   if pos(pchar(lowercase(name)), lowercase(ExeFile))>0 then
    Begin
     result:= PE.th32ProcessID;
     //Handl:= OpenProcess(PROCESS_ALL_ACCESS,False,PE.th32ProcessID); // PE.th32ProcessID
     //Прекращаем процесс
     //terminateProcess(Handl,1);
     //WaitForSingleObject(Handl,INFINITE); //Ждем завершения
     break
    End;
   Until Not Process32Next(FSnap,PE)
end;

далi як вже сказали...

[SERG1980]

Спасибо помогли!!!!!

[parik1]

Я прошу прощения конечно. А не могли бы вы подробно рассказать, а то я ,извените, чайник. И у меня не компилируется, требует тпу.. Если можно расскажите неучу...