UP した一連のコードの一部を修正しました
Internet Exploer --> Internet Explorer
TOPMOST にするコードを以下に変更しました.
SetWindowPos 関数の説明を読んだら,SetForgroundWindow を実行しないと
TOPMOST にならない場合があるようです.
なんせ Windows API に精通していないもんですから (笑)
procedure TForm1.SetHWND_TOPMOST_Window(hWindow: HWND);
begin
SetForegroundWindow(hWindow);
SetWindowPos(hWindow, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;
|