delphi 中怎么根据完整的路径进入相应的文件夹

delphi 中如何根据完整的路径进入相应的文件夹
请教大家一下delphi如何实现在listbox双击事件中实现根据完整的路径进入相应的文件夹：
如我双击listbox的某一行，这一行的内容是：d:\aa\bb\t.dat, 双击之后进入相应的文件夹：d:\aa\bb.
有没有什么函数之内的实现，先谢谢大家啦！

[解决办法]

Delphi(Pascal) code

Uses ShellApi;procedure TForm1.ListBox1DblClick(Sender: TObject);var  str:string;begin  str:=ExtractFilePath(ListBox1.Items[ListBox1.ItemIndex]);  ShellExecute(Handle,'open',PChar(str),nil,nil,SW_SHOWNORMAL);end;
[解决办法]
楼上的已解决