Получить хендл и класс окна по названию exe

[Lauri]

Собственно сабж. Допустим имеется запущеный ехе файл "explorer.exe" или "LastFM.exe". Как получить класс и хендл?

[fate]

а если у процесса нет окна или наоборот много окон, так хендл какого окна тебе нужен?

[Lauri]

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

а если у процесса нет окна или наоборот много окон, так хендл какого окна тебе нужен?

Как понять какого?

[fate]

ну несколько если окон у процесса, у каждого окна свой хендл

[Lauri]

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

ну несколько если окон у процесса, у каждого окна свой хендл

Ну по идее же у процесса есть главное окно по закрытию которого, программа закрывается. Его мне и надо.
InqSoft W.S показал что класс рабочего стола (explorer.exe) - SysListView32, мне нужно орпиделить это программно и получить хэндл.

[fate]

ну как-то так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Tlhelp32, StdCtrls;
function EnumProc(Wd: HWnd; Param: Integer): Boolean;stdcall;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
 // procedure findHandl(id:integer;h:hwnd);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumProc,0);
end;


procedure findHandl(id:integer;h:hwnd);
var
 ssh1, ssh2 : THandle;
 pe32 : TProcessEntry32;
 me32 : TModuleEntry32;
begin

         ssh1 := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
         pe32.dwSize := SizeOf(pe32);
         me32.dwSize := SizeOf(me32);
   if Process32First(ssh1, pe32) then
   repeat
   if UpperCase(pe32.szExeFile)=UpperCase('notepad.exe') then begin
       ssh2 := CreateToolhelp32Snapshot (TH32CS_SNAPMODULE, pe32.th32ProcessID);
       if Module32First(ssh2, me32) then
         if me32.th32ProcessID=id then
            form1.Memo1.lines.add(inttostr(h));
       CloseHandle(ssh2);
    end;//if
   until not Process32Next(ssh1, pe32);
CloseHandle(ssh1);
end;


function EnumProc(Wd: HWnd; Param: Integer): Boolean;stdcall;
var ProcessId:integer;
begin
GetWindowThreadProcessId(wd, @ProcessId);
findHandl(ProcessId,wd);
result:=true;
end;
end.

в мемо выводит хендлы всех окон у этого процесса, нандл главного окна всегда первый.

[fate]

тебе же еще и имя класса нужно
вот процедуру переделал

procedure findHandl(id:integer;h:hwnd);
var
 ssh1, ssh2 : THandle;
 pe32 : TProcessEntry32;
 me32 : TModuleEntry32;
 str:array[0..255]of char;
begin

         ssh1 := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
         pe32.dwSize := SizeOf(pe32);
         me32.dwSize := SizeOf(me32);
   if Process32First(ssh1, pe32) then
   repeat
   if UpperCase(pe32.szExeFile)=UpperCase('notepad.exe') then begin
       ssh2 := CreateToolhelp32Snapshot (TH32CS_SNAPMODULE, pe32.th32ProcessID);
       if Module32First(ssh2, me32) then
         if me32.th32ProcessID=id then begin
         ZeroMemory(@str,sizeof(str));
         GetClassName(h,str,sizeof(str));
            form1.Memo1.lines.add(inttostr(h)+' '+str);
         end;//if
       CloseHandle(ssh2);
    end;//if
   until not Process32Next(ssh1, pe32);
CloseHandle(ssh1);
end;

[Lauri]

Спасибо, буду пробовать!)