Найти процесс, получить handle, послать сообщение.

[Altera]

Привет всем! Может эта тему здесь уже обсуждалась, но я не нашёл именно того, что мне надо.
Короче, я обратил внимание на то, как SIM (Smart Install Maker) выключает устанавливаемую программу. Т.е. Я могу сдеать так: Я установил программу через SIM, запустил её, потом НЕ ВЫКЛЮЧАЯ программы запустил деинсталяцию, или установку более новой версии программы. Установленная программы должна корректно выключится. Так вот, всё там ОК!
Настраивается следующим образом:

Так вот, как он это делает? Как мне организовать поиск таким-же способом, дело в том, что заголовок окна и имя класса могут меняться, однако SIM всегда срабатывает корректно! Мне надо таким-же макаром получить handle главного окна приложения зная что....? Имя приложения? Или? И что это за подстрока заголовка окна?

Профессионалы! Отзовитесь!

[0nni]

скорее всего он ищет не точно название а часть названия например
"бла бла бла - Mozilla Firefox"
Находишь список всех окон и ищешь "Mozilla Firefox" в заголовке.

[ViktorXP]

Можна гдето так

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure SetMemo(var MSG: TMessage); message WM_USER +1;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses  Masks, PsAPI;

function WindowsProc(WND:THandle; lPm: LPARAM): Bool; stdcall;
var
  ms: String[255];
begin
  if WND <> lPm then
  begin
    SendMessage(WND, WM_GETTEXT, 255, Integer(PChar(@ms)));
    SendMessage(lPm, WM_USER +1, Integer(PChar(@ms)), WND);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@WindowsProc, Handle);
end;

procedure TForm1.SetMemo(var MSG: TMessage);
var
  ProcessID, ThreadProcessID,  hProcess, hModuls, cb: DWORD;
  NameWindows: string;
  ms: String[255];
begin
  NameWindows := PChar(MSG.WParam);
  if MatchesMask(NameWindows, Edit1.Text) then
  begin
    Memo1.Lines.Add('-----------');
    Memo1.Lines.Add(NameWindows);
    Memo1.Lines.Add('Handle = '+IntToHex(MSG.LParam, 4)+'h');
    ThreadProcessID := GetWindowThreadProcessId(MSG.LParam, @ProcessID);
    Memo1.Lines.Add('ProcessId = '+IntToStr(ProcessID));
    Memo1.Lines.Add('Thread = '+IntToStr(ThreadProcessID));
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessID);
    if (hProcess <> 0) then
    begin
      EnumProcessModules(hProcess, @hModuls, SizeOf(hModuls), cb);
      GetModuleFilenameEx(hProcess, hModuls, PChar(@ms), 255);
      Memo1.Lines.Add(PChar(@ms));
      CloseHandle(hProcess);
    end;
    Memo1.Lines.Add('-----------'#13#10#13#10);
  end;
end;

Если в Edit вбыть маску "*Delphi*" (естественно без лапок но со звездами) тогда он в мемо выдаст результаты всех найденых окон их хендлы, имя файла и еще кое какую инфу. я набросал поиск только по окнам но переделать не составит труда