Delphi

Вопрос

К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;

Из конференции Delphi