🚀 go-pugleaf

Matt wrote:
> I'm trying to write a function to return various user paths (Desktop, My
> Documents, Start Menu, etc.).  Everything I've seen references
> SHGetFolderPath, but I can't find it.  I'm using Delphi 6 Pro with all the
> latest patches and library updates.  Is that API call something that they
> just forgot, and I need to upgrade to D7, or am I just looking in the wrong
> place?

A missing API declaration is never a reason to upgrade your Delphi 
version. There's nothing magical about a function declaration (unless 
it's in System or SysInit), so if you need an API function that Borland 
didn't declare for you, just declare it yourself. Below are some 
declarations for ShGetFolderPath and its partner, ShGetFolderLocation. 
On the other hand, you could just use ShGetSpecialFolderPath instead. 
See the documentation on MSDN to determine the differences.

interface

uses Windows, ShlObj;

function ShGetFolderPath(hWndOwner: HWnd; csidl: Integer; hToken: 
THandle; dwReserved: DWord; lpszPath: PChar): HResult; stdcall;
function ShGetFolderPathA(hWndOwner: HWnd; csidl: Integer; hToken: 
THandle; dwReserved: DWord; lpszPath: PAnsiChar): HResult; stdcall;
function ShGetFolderPathW(hWndOwner: HWnd; csidl: Integer; hToken: 
THandle; dwReserved: DWord; lpszPath: PWideChar): HResult; stdcall;
function ShGetFolderLocation(hWndOwner: HWnd; csidl: Integer; hToken: 
THandle; dwReserved: DWord; out pidl: PItemIDList): HResult; stdcall;

const
   shfolder = 'ShFolder.dll';

implementation

uses ShellAPI;

function ShGetFolderPath; external shfolder name 'SHGetFolderPathA';
function ShGetFolderPathA; external shfolder name 'SHGetFolderPathA';
function ShGetFolderPathW; external shfolder name 'SHGetFolderPathW';
function ShGetFolderLocation; external shell32 name 'SHGetFolderLocation';

end.

-- 
Rob