🚀 go-pugleaf

Hello Remy,
I want this exmaple in Win9X (not WinNT)
This sample works correctly in WinNT.

// My ComboBox contains
// Desktop, Document, Program Files, Programs, Startup, System, Windows, ...
AnsiString __fastcall GetPaths(int Path)
{
    PItemIDList idList;
    char idPath[MAX_PATH];
    SHGetSpecialFolderLocation(0, Path, &idList);
    SHGetPathFromIDList(idList, idPath);
    return String(idPath);
}

void __fastcall TMain::ComboBoxChange(TObject *Sender)
{
    AnsiString CurPath;
    switch(ComboBox->ItemIndex)
    {
       case 0: CurPath = GetPaths(CSIDL_DESKTOP);       break;
       case 1: CurPath = GetPaths(CSIDL_PERSONAL);      break;
       case 2: CurPath = GetPaths(CSIDL_PROGRAM_FILES); break;
       case 3: CurPath = GetPaths(CSIDL_PROGRAMS);      break;
       case 4: CurPath = GetPaths(CSIDL_STARTUP);       break;
       case 5: CurPath = GetPaths(CSIDL_SYSTEM);        break;
       case 6: CurPath = GetPaths(CSIDL_WINDOWS);       break;
       // Continue ...
    }
    Edit1->Text = CurPath;
}

Thanks,
Safari