只需调用 SHGetKnownFolderPath API函数。

由于此函数是在Vista中添加的，因此不会在该库单元中声明

  type 
 KNOWNFOLDERID = TGuid;