PFNSHGetFolderPathA* = proc (Ahwnd: HWND; Csidl: int; Token: THandle; 
                             Flags: DWord; Path: cstring): HRESULT {.stdcall.}

PFNSHGetFolderPathW* = proc (Ahwnd: HWND; Csidl: int; Token: THandle; 
                             Flags: DWord; Path: cstring): HRESULT {.stdcall.}

PFNSHGetFolderPath* = PFNSHGetFolderPathA

TSHGetFolderPathA* = PFNSHGetFolderPathA

TSHGetFolderPathW* = PFNSHGetFolderPathW

TSHGetFolderPath* = TSHGetFolderPathA

LibName* = "SHFolder.dll"

CSIDL_PROGRAMS* = 0x00000002

CSIDL_PERSONAL* = 0x00000005

CSIDL_FAVORITES* = 0x00000006

CSIDL_STARTUP* = 0x00000007

CSIDL_RECENT* = 0x00000008

CSIDL_SENDTO* = 0x00000009

CSIDL_STARTMENU* = 0x0000000B

CSIDL_MYMUSIC* = 0x0000000D

CSIDL_MYVIDEO* = 0x0000000E

CSIDL_DESKTOPDIRECTORY* = 0x00000010

CSIDL_NETHOOD* = 0x00000013

CSIDL_TEMPLATES* = 0x00000015

CSIDL_COMMON_STARTMENU* = 0x00000016

CSIDL_COMMON_PROGRAMS* = 0x00000017

CSIDL_COMMON_STARTUP* = 0x00000018

CSIDL_COMMON_DESKTOPDIRECTORY* = 0x00000019

CSIDL_APPDATA* = 0x0000001A

CSIDL_PRINTHOOD* = 0x0000001B

CSIDL_LOCAL_APPDATA* = 0x0000001C

CSIDL_COMMON_FAVORITES* = 0x0000001F

CSIDL_INTERNET_CACHE* = 0x00000020

CSIDL_COOKIES* = 0x00000021

CSIDL_HISTORY* = 0x00000022

CSIDL_COMMON_APPDATA* = 0x00000023

CSIDL_WINDOWS* = 0x00000024

CSIDL_SYSTEM* = 0x00000025

CSIDL_PROGRAM_FILES* = 0x00000026

CSIDL_MYPICTURES* = 0x00000027

CSIDL_PROFILE* = 0x00000028

CSIDL_PROGRAM_FILES_COMMON* = 0x0000002B

CSIDL_COMMON_TEMPLATES* = 0x0000002D

CSIDL_COMMON_DOCUMENTS* = 0x0000002E

CSIDL_COMMON_ADMINTOOLS* = 0x0000002F

CSIDL_ADMINTOOLS* = 0x00000030

CSIDL_COMMON_MUSIC* = 0x00000035

CSIDL_COMMON_PICTURES* = 0x00000036

CSIDL_COMMON_VIDEO* = 0x00000037

CSIDL_CDBURN_AREA* = 0x0000003B

CSIDL_PROFILES* = 0x0000003E

CSIDL_FLAG_CREATE* = 0x00008000

proc SHGetFolderPathA*(Ahwnd: HWND; Csidl: int; Token: THandle; Flags: DWord; 
                       Path: cstring): HRESULT {.stdcall, dynlib: LibName, 
    importc: "SHGetFolderPathA".}

proc SHGetFolderPathW*(Ahwnd: HWND; Csidl: int; Token: THandle; Flags: DWord; 
                       Path: cstring): HRESULT {.stdcall, dynlib: LibName, 
    importc: "SHGetFolderPathW".}

proc SHGetFolderPath*(Ahwnd: HWND; Csidl: int; Token: THandle; Flags: DWord; 
                      Path: cstring): HRESULT {.stdcall, dynlib: LibName, 
    importc: "SHGetFolderPathA".}