Страница 22 из 127
Отображение свойств файла
// На форме разместите TOpenDialog (OpenDialog1) и TButton
// (Button1) напишите следующий обработчик события OnClick кнопки:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
SHELLEXECUTEINFO SEI;
ZeroMemory(&SEI, sizeof(SHELLEXECUTEINFO));
SEI.cbSize= sizeof(SHELLEXECUTEINFO);
SEI.lpVerb = "properties";
SEI.lpFile= OpenDialog1->FileName.c_str();
SEI.nShow = SW_SHOW;
SEI.fMask= SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(&SEI);
}
}