ファイルのプロパティシートを表示する

//---------------------------------------------------------------------------
bool __fastcall ShowFileProperties(AnsiString AFilePath)
{
        SHELLEXECUTEINFO executeInfo = {0};
        executeInfo.cbSize = sizeof(SHELLEXECUTEINFO);
        executeInfo.fMask = SEE_MASK_INVOKEIDLIST;
        executeInfo.hwnd = Application->Handle;
        executeInfo.lpVerb = "properties";
        executeInfo.lpFile = AFilePath.c_str();
        executeInfo.nShow = SW_SHOWNORMAL;
        return ShellExecuteEx(&executeInfo);
}
//---------------------------------------------------------------------------