>>485
>>550
ttp://hp.vector.co.jp/authors/VA009712/take/delphi/kabesys.htm#getshellfolder
こんなんでどうでしょう？