如何用鼠标点击文件夹图标

Question

如何用鼠标点击文件夹图标，Edit1.text:=“这个文件夹的全路径名"?
用OpenDialog只能调入文件名，不能调入文件夹名.
各位大侠，用什么方法可以用鼠标点击文件夹图标，把这个文件夹的全路径调入到Edit1.text中.
例如：用鼠标点击桌面上一个文件夹“aaa”,那么Edit1.text:=“c:\Windows\Desktop\aaa"
( 注：我要练习做一个压缩软件，用鼠标右键点击要压缩的文件夹,在右键菜单中选我的软件，压缩
这个文件夹下的所有文件，现在的难处就是如何取得这个文件夹的路径)

Answer 1

可以用DirectoryListBox,DriveComboBox两个控件组合，在win3.1页DriveComboBox.DirList = DirectoryListBox

Answer 2

//同意lappyzsl//一年又一年～～
//最后自己先去搜索～～uses FileCtrl;procedure TForm1.Button2Click(Sender: TObject);
var
  vDirectory: string;
begin
  vDirectory := Edit1.Text;
  SelectDirectory('Select', '', vDirectory);
  Edit1.Text := vDirectory;
end;

Answer 3

我每次问一个问题在大富翁和csdn同时发问觉得大富翁的答案比较彻底一点

Answer 4

用GetFilePath将文件名分离出文件路径！