Вызов диалога "Свойства файла"

SHObjectProperties Example
  1.

  Start a new application.
  2.

  Insert in your source code:
 
typedef void (__stdcall *pSHObjectProperties)(HWND, UINT, LPCSTR,
LPCSTR);
 
HINSTANCE hInstance;
pSHObjectProperties SHObjectProperties;
  3.

  Edit the OnCreate event of your form:
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    hInstance = LoadLibrary("SHELL32.DLL");
    if(!hInstance)
    {
        ShowMessage("Error loading SHELL32.DLL\n"
                    "This application will be closed");
        Application->Terminate();
    }
 
    SHObjectProperties = (pSHObjectProperties)
        GetProcAddress(hInstance, (char *)178);
}
  4.

  Double-click the OnDestroy event:
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    FreeLibrary(hInstance);
}
  5.

  Add a Button. Edit its OnClick event:
 
#define OPF_PRINTERNAME 0x01
#define OPF_PATHNAME 0x02
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    SHObjectProperties(Handle, OPF_PATHNAME,
        "c:\\autoexec.bat", NULL);
}
 
Once the Button is clicked, the application should show the Properties dialog for autoexec.bat.