🚀 go-pugleaf

I'm sorry for not showing the actual code in my prevoius post, but here it
is.
This code is based on the reference posted by Timothy H. Buchman...

I tried both ways but nothing happens, I mean is like if the system was
ignoring the call...

//======================================
//Possible Object types
#define OPF_PRINTERNAME  0x01
#define OPF_PATHNAME     0x02

typedef void (__stdcall *pSHObjectProperties)(HWND, UINT, LPCWSTR, LPCWSTR);

//Before this method is called there is a validation tu assert that the
dataPtr->SystemString() does refer to a Document with its whole path
void __fastcall TMainForm::Properties1Click(TObject *Sender)
{
     NodeInfo *dataPtr; //pointer of a structure to hold a TTreeNode Data
property
     THitTests HT;
    TTreeNode *pItem;

     HT = TreeView1->GetHitTestInfoAt(tvX, tvY);
     if (HT.Contains(htOnItem) || HT.Contains(htOnIcon))
     {
          pItem = TreeView1->GetNodeAt(tvX, tvY);
          if((dataPtr=(NodeInfo *)pItem->Data)!=NULL)
          {

//ShellExecute(Handle,"properties",dataPtr->SystemString().c_str(),NULL,NULL
,SW_SHOW);
               if(!DisplayFileProperties(Handle,dataPtr->SystemString()))
                    ShowMessage("Eror loading \"Shell32.dll\", file
properties cannot be displayed");
          }
     }
}

//======================================
bool DisplayFileProperties(HWND hwnd, AnsiString file)
{
     HINSTANCE hInstance;
     pSHObjectProperties SHObjectProperties;
     hInstance=LoadLibrary("SHELL32.DLL");

     if(!hInstance)
          return false;
     SHObjectProperties=(pSHObjectProperties)GetProcAddress(hInstance,(char
*)178);
     SHObjectProperties(hwnd,OPF_PATHNAME,(wchar_t *)file.c_str(),NULL);
//perhaps the proble is the casting?
     FreeLibrary(hInstance);
     return true;
}
//======================================

Thank you in advance for any help you may provide


My best regards...

<MortZ>.