K kiely Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-22 #2 function GetCurrentDir: string; procedure ChDir(const S: string);overload; procedure ChDir(P: PChar); overload; 先获得当前目录，去掉最后一层，在设置为当前目录
function GetCurrentDir: string; procedure ChDir(const S: string);overload; procedure ChDir(P: PChar); overload; 先获得当前目录，去掉最后一层，在设置为当前目录
A agl1975 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-22 #3 To kiely 我使用的是TShellCombox及TshellListView,由于TShellCombox含'我的电脑'及'控制 面板'，不知你所述之方法能不能适用。另delphi自带的例子Virtual ListView有类似 功能的实现，但是要通过外壳编程，而关于外壳编程的例子有介绍的不多，还要进行摸索 。
To kiely 我使用的是TShellCombox及TshellListView,由于TShellCombox含'我的电脑'及'控制 面板'，不知你所述之方法能不能适用。另delphi自带的例子Virtual ListView有类似 功能的实现，但是要通过外壳编程，而关于外壳编程的例子有介绍的不多，还要进行摸索 。
