View Single Post
Old 01-16-2018, 09:34 AM
Norrit Norrit is offline
Join Date: Aug 2001
Location: Landgraaf
Posts: 7,335

The definition for Delphi 7 could be something like:
function SHGetFolderPath(hwnd: HWND; csidl: Integer; hToken: THandle; dwFlags: DWORD; pszPath: PChar): HResult; stdcall; external 'shfolder.dll' name 'SHGetFolderPathA';
And the CSIDL_COMMON_DOCUMENTS can be found in the link I gave you
CSIDL_COMMON_DOCUMENTS = $002e; { All Users\Documents }
Just define a const with this value

But I never expected a D7 user, since it's a dinosaur version, perhaps it's time to upgrade...
Reply With Quote