출처 : http://delphi.apub.org/doc/2006/07/12/10/20/10/165968.html
//---------------------------------------------------------------------------
bool __fastcall ShowFileProperties(String FileName,HWND Wnd)
{
SHELLEXECUTEINFO sfi;
sfi.cbSize = sizeof(sfi);
sfi.lpFile = FileName.c_str();
sfi.hwnd = Wnd;
sfi.fMask = SEE_MASK_NOCLOSEPROCESS | SEE_MASK_INVOKEIDLIST | SEE_MASK_FLAG_NO_UI;
sfi.lpVerb = "properties";
sfi.lpIDList = NULL;
sfi.lpDirectory = NULL;
sfi.nShow = 0;
sfi.hInstApp = 0;
sfi.lpParameters = NULL;
sfi.dwHotKey = 0;
sfi.hIcon = 0;
sfi.hkeyClass = 0;
sfi.hProcess = 0;
sfi.lpClass = NULL;
return ShellExecuteEx(&sfi);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowFileProperties("c:\\", Handle);
}
//---------------------------------------------------------------------------
|
