Поиск видимого окна по части его заголовка

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

Всем привет!

Интересует вопрос:
как искать окно зная только часть его заголовка?

При том что не известен класс окна, или известен, но таких окон много а заголовки разные.

[Volt]

вот выводит текст видимых окон и ид. ну pos-ом ищем (в WinCaption) имеющую часть заголовка и присваиваем ид

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
  procedure AppInfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function AddWinInfo(WinHandle: HWnd; list:TStringList): Boolean;
stdcall;
var  WinCaption: array[0..255] of Char;
begin
  Result:=True;
  if isWindowVisible(WinHandle) then
  if GetWindow(WinHandle,GW_OWNER)=0 then
  begin
  GetWindowText(WinHandle,WinCaption,SizeOf(WinCaption));
  if (WinCaption<>'')  then
  List.Add(inttostr(WinHandle));
  end;
end;

procedure TForm1.AppInfo;
var descript:TStringList;
    WinCaption:array[0..255] of char;
    i:word;

begin
descript:=TStringList.Create;
with descript do
  begin
    Clear;
    EnumWindows(@AddWinInfo,LParam(descript));
  end;
for i:=0 to descript.Count-1 do
 begin
  GetWindowText(strtoint(descript.strings[i]),WinCaption,SizeOf(WinCaption));

 memo1.Lines.Add('Текст: '+WinCaption+'   Ид:'+descript.strings[i])
 end;
descript.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AppInfo;
end;

end.

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

Авот допустим Я нашёл вот такой код:

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;

Как его использовать?
В первый параметр передать хэндл рабочего стола?

[Volt]

начать с 0. т.е FindNextWnd(0, 'текст')

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

передай 0.(правда это и есть хендл рабочего стола)

я лично люблю делать все через Enum* функции, но разницы нет, ибо они скорее всего так и поступают(как в вашей функции)

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

Благодарен! Вот что у меня получилось:

procedure TForm1.Button1Click(Sender: TObject);
var
  hW:HWND;
  Buffer : array [0..255] of char;
begin
  hW:=FindNextWnd(0,'Fatal');
  If hW > 0 then
  begin
  GetWindowText(hW,Buffer,SizeOf(Buffer));
  ShowMessage('Найдено окно: '+buffer);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MessageBox(0,'Message!','Fatal Error - HTTPS server',MB_OK or MB_ICONERROR);
end;

и работает!

Вопрос решён!