Вызвать диалог "Свойства"?
Вопрос решен:
| Код |
#include <shellapi.h>
//---------------------------------------------------------------------------
void __fastcall TfrmMain::vShowDlgProperties(const AnsiString &casFilePath) {
typedef BOOL (WINAPI *SHOBJECTPROPERTIES)(HWND hwnd, DWORD dwType, LPCWSTR lpObject, LPCWSTR lpPage);
#ifndef SHOP_FILEPATH
#define SHOP_FILEPATH 0x00000002
#endif
#define SHOP_EXPORT_ORDINAL 178
SHOBJECTPROPERTIES pSHObjectProperties = NULL;
pSHObjectProperties = (SHOBJECTPROPERTIES)::GetProcAddress(::LoadLibrary("shell32"), "SHObjectProperties");
if (!pSHObjectProperties) {
pSHObjectProperties = (SHOBJECTPROPERTIES)::GetProcAddress(::LoadLibrary("shell32"), (LPCSTR)SHOP_EXPORT_ORDINAL);
}
if (pSHObjectProperties) {
pSHObjectProperties(Handle, SHOP_FILEPATH, WideString(casFilePath), 0);
}
}
//---------------------------------------------------------------------------
|
|