Just call the SHGetKnownFolderPathAPI function .
Since this feature was added in Vista, it will not be declared in the library modules shipped with Delphi 7. Therefore, you will need to declare it yourself.
type
KNOWNFOLDERID = TGuid;
function SHGetKnownFolderPath(
const rfid: KNOWNFOLDERID;
dwFlags: DWORD;
hToken: THandle;
out ppszPath: PWideChar
): HResult; stdcall; external 'Shell32.dll';
, Vista, XP . , CSIDL, API- Vista.