delphi - ステイオントップモードでWindowsのプロパティダイアログを表示する方法は?

Question

32 ビット VCL アプリケーションでは、クリックするとアプリケーションの [Windows プロパティ] ダイアログが表示されるボタンがあります。

procedure TformMain.btnShowPropertiesDialogClick(Sender: TObject);
begin
  ShowPropertiesDialog(ParamStr(0));
end;

procedure ShowPropertiesDialog(FileName: string);
var
  sei: Winapi.ShellAPI.TShellExecuteInfo;
begin
  System.FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := System.SizeOf(sei);
  sei.lpFile := PChar(FileName);
  sei.lpVerb := 'properties';
  sei.fMask  := SEE_MASK_INVOKEIDLIST;
  Winapi.ShellAPI.ShellExecuteEx(@sei);
end;

ただし、アプリ ウィンドウが最前面に表示されるモード( Self.FormStyle = fsStayOnTop) の場合、[Windows プロパティ] ダイアログはアプリのウィンドウの後ろに隠れます。

ステイ オン トップモードで Windows の [プロパティ] ダイアログを表示する方法はありますか?