Как найти окно по неполному названию?

Code:

type

PFindWindowStruct = ^TFindWindowStruct;

TFindWindowStruct = record

   Caption: string;

   ClassName: string;

   WindowHandle: THandle;

end;

function EnumWindowsProc(hWindow: hWnd; lParam: LongInt): Bool; stdcall;

var

lpBuffer: PChar;

WindowCaptionFound: bool;

ClassNameFound: bool;

begin

GetMem(lpBuffer, 255);

Result := True;

WindowCaptionFound := False;

ClassNameFound := False;

try

   if GetWindowText(hWindow, lpBuffer, 255) > 0 then

     if Pos(PFindWindowStruct(lParam).Caption, StrPas(lpBuffer)) > 0 then WindowCaptionFound := true;

   if PFindWindowStruct(lParam).ClassName = '' then

     ClassNameFound := True

   else if GetClassName(hWindow, lpBuffer, 255) > 0 then

     if Pos(PFindWindowStruct(lParam).ClassName, StrPas(lpBuffer)) > 0 then ClassNameFound := True;

   if (WindowCaptionFound and ClassNameFound) then

     begin

       PFindWindowStruct(lParam).WindowHandle := hWindow;

       Result := False;

     end;

finally

   FreeMem(lpBuffer, sizeof(lpBuffer^));

end;

end;

function FindAWindow(Caption: string; ClassName: string): THandle;

var WindowInfo: TFindWindowStruct;

begin

WindowInfo.Caption := Caption;

WindowInfo.ClassName := ClassName;

WindowInfo.WindowHandle := 0;

EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));

FindAWindow := WindowInfo.WindowHandle;

end;

procedure TForm1.Button1Click(Sender: TObject);

var TheWindowHandle: THandle;

begin

TheWindowHandle := FindAWindow('Opera', '');

if TheWindowHandle <> 0 then

   begin

     Showwindow(TheWindowHandle, sw_restore);

     BringWindowToTop(TheWindowHandle);

   end

else

   ShowMessage('Window Not Found!');

end;