TSHGetFileInfoW = function (pszPath: PWideChar; dwFileAttributes: DWORD; var psfi: TSHFileInfoW; cbFileInfo, uFlags: UINT): DWORD;

TntWindows

This is type TntWindows.TSHGetFileInfoW.