打開\我的電腦\等特殊文件夾

uses　ShellAPI;　
　
//打開　C　盤　　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　ShellExecute(Handle,　'open',　'Explorer.exe',　'C:\',　nil,　SW_SHOWNORMAL);　
end;　
　
//打開　我的電腦　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　ShellExecute(Handle,　'open',　'Explorer.exe',　
　　'::{20D04FE0-3AEA-1069-A2D8-08002B30309D}',　nil,　SW_SHOWNORMAL);　
end;　
　
//打開　資源管理器　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　ShellExecute(Handle,　'open',　'Explorer.exe',　
　　'/e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}',　nil,　SW_SHOWNORMAL);　
end;