クラス名を使用して、Opera のウィンドウを前面に表示する方法を教えてください。次の手順を使用して他のアプリケーションを前面に表示すると、正常に動作します。ウィンドウのキャプションではなく、クラス名のみを使用する必要があります。代わりにウィンドウ キャプションを使用すると、手順は機能します。手順は次のとおりです。
procedure SwitchToThisWindow(h1: hWnd; x: bool); stdcall;
external user32 Name 'SwitchToThisWindow';
procedure Opera;
var
Wnd:HWND;
begin
Wnd:= FindWindow(PChar('OpWindow'),nil);
if (Wnd <> 0) then SwitchToThisWindow(Wnd, True) ;
////////////////////////////////////////////////////