Найти окно по маске

[Иллидан]

Требуется нати окно по маски поиска. Есть функции FindWindow например FindWindow(nil, 'Безымянный - Paint'), но она ищет окно с полным совпадением имен, т.е. FindWindow(nil, 'Без* - Paint'), ничего не найдет.

[DOLBY]

Приведённый ниже код ищет окна, в заголовки которых так или иначе входит текст "Paint" и заносит их в listbox..

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var wd:hwnd;
    nm:array[0..255] of char;
    str:string;
begin
 listbox1.Items.Clear;
 wd:=findwindow(0,0);
 while (wd<>0) do
  begin
   getwindowtext(wd,nm,255);
   str:=string(nm);
   if pos('Paint',str)<>0 then
    listbox1.Items.Add(str);
   application.ProcessMessages;
   wd:=getnextwindow(Wd,GW_HWNDNEXT);
  end;
end;

end.

[mihali4]

Кaк искать oкнo по части eгo нaзвaния

function FindNextWnd(StartHWND: HWND; AString : String): HWND;
var
  Buffer : array [0..255] of char;
begin
  Result := StartHWND;
  repeat
    Result := FindWindowEx(0, Result, nil, nil);
    GetWindowText(Result, Buffer, SizeOf(Buffer));
    if StrPos(StrUpper(Buffer), PChar(UpperCase(AString))) <> nil
    then  Break;
  until (Result = 0);
end;