🚀 go-pugleaf

Very thanks Rodolfo,
Safari

"Rodolfo Frino" <rodolfofrino@yahoo.com> wrote in message
news:3f42a46c@newsgroups.borland.com...
|
| Probably because you didn't include the shlobj.h header file
| Also modify GetPaths() as shown below
|
| Get rid of CoTaskMemFree function since you did not allocate with neither
| CoTaskMemAlloc nor CoTaskMemRealloc functions.
|
|
| #define NO_WIN32_LEAN_AND_MEAN
| #include <shlobj.h>
| #include <vcl.h>
|
| #pragma hdrstop
|
| #include "SHGetSpecialFolderLocation.h"
|
//--------------------------------------------------------------------------
| -
| #pragma package(smart_init)
| #pragma resource "*.dfm"
| TForm1 *Form1;
|
//--------------------------------------------------------------------------
| -
| __fastcall TForm1::TForm1(TComponent* Owner)
|         : TForm(Owner)
| {
| }
|
//--------------------------------------------------------------------------
| -
|
| AnsiString GetPaths(int Folder)
| {
|      LPITEMIDLIST List = NULL;
|
|      char Path[MAX_PATH + 1] = {0};
|
|      if (!SHGetSpecialFolderLocation(0, Folder, &List))
|         if (SHGetPathFromIDList(List, Path))
|            return String(Path);
|
|      return "";  // return an empty AnsiString in case of error
| }
|
| Rodolfo