Delphi 中怎么得到系统的标准文件夹目录树

Delphi 中怎么得到系统的标准文件夹目录树

SelectDirectory('请选择要设置的目录','', SourceDircetory)

全文：http://bbs.2ccc.com/topic.asp?topicid=213437

Delphi如何获取系统版本号是windowsXP还是Win7

http://bbs.csdn.net/topics/390881740

XE2之后多了 TOSVersio.
TOSVersion.Architecture 可检查是32或64bit
TOSVersion.Platform检查win或mac
TOSVersion.Major、 TOSVersion.Minor版本号
TOSVersion.Name取得产品名称像Windows 7
TOSVersion.ToString完整产品名称Windows 7 Service Pack 1 (Version 6.1, Build 7601, 64-bit Edition).

或者，用注册表