Создание временного файла

CSIDL_BITBUCKET Recycle bin
CSIDL_CONTROLS Control Panel
CSIDL_DESKTOP Windows desktop
CSIDL_DESKTOPDIRECTORY Directory for the desktop
CSIDL_DRIVES My Computer
CSIDL_FONTS Fonts directory
CSIDL_NETHOOD Network Neighborhood
CSIDL_NETWORK Network Neighborhood virtual folder
CSIDL_PERSONAL My Documents
CSIDL_PRINTERS Printers
CSIDL_PROGRAMS Program groups
CSIDL_RECENT Most recent documents list
CSIDL_SENDTO Send To menu items
CSIDL_STARTMENU Taskbar Start menu items
CSIDL_STARTUP Startup directory
CSIDL_TEMPLATES Document templates

#define NO_WIN32_LEAN_AND_MEAN
#include <SHLOBJ.H> // разместить выше всего в Unit1.cpp
//----------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  LPITEMIDLIST  pidl;
  LPMALLOC pShellMalloc;
  char szDir[MAX_PATH];
  // SHGetSpecialFolderLocation генерирует PIDL. Память для PIDL
  // распределяет оболочка shell, и должна быть освобождена, 
  // используя указатель памяти оболочки COM-объекта
  // Используем SHGetMalloc, чтобы отыскать объект malloc
  if(SUCCEEDED(SHGetMalloc(&pShellMalloc))) {
    // если все прошло успешно, продолжим
    // получив pidl для рабочего стола ( windows desktop)
     if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,
                        CSIDL_DESKTOPDIRECTORY,
                        &pidl))) {
      // в случае успеха функция вернет  true 
       if(SHGetPathFromIDList(pidl, szDir)) {
        // путь к папке поместим в Label1->Caption
        Label1->Caption = szDir;
      }
      pShellMalloc->Free(pidl);
    }
    pShellMalloc->Release();
  }
}