DELPHI中如何打开TEXT中指定路径的文件夹

现在有一个edit,如何用delphi打开在edit.text中指定路径中的文件夹呢

//uses windows;
WinExec(pchar('Explorer.exe '+Edit.Text),SW_SHOWNORMAL);

方法有二，如下详述： 一、循环测试 已知相对路径，与绝对路径之差仅在于根路径，即探索究竟在哪个分区上，那么，最傻瓜的方法就是从c循环至z，逐一测试路径是否存在，大致代码为： function geteurekalogdir : string; const c_sdir : string = 'eurekalog 5\delphi5'; var i : integer; s : string; begin result := ''; for i := ord( 'c' ) to ord( 'z' ) do begin s := chr( i ) + ':\' + c_sdir; if directoryexists( s ) then begin result := s; exit; end; end; end; 也可以增加一点儿“技术含量”，不是简单地从c循环至z，而是先获取系统具有的分区配置，仅在配置列表中循环测试，调用getlogicaldrives或getlogicaldrivestrings均可实现。 二、查询注册表 不少软件安装后，会在注册表中记录其安装位置，对于eurekalog的安装位置，可以手工打开注册表编辑器(regedit)，查找到它的位置，记住其关键的路径，然后编程序获取该路径下的键值。 这个方法应该更加正规，它还支持软件在安装之际，人为改变了安装路径的情形。例如，你把eurekalog安装在"c:\program files\mypreferred"等不带eurekalog字样的路径下时，也能找到它。

//添加Dialogs->OpenDialog procedure TForm1.Button1Click(Sender: TObject); begin opendialog1.InitialDir:=edit1.Text; //edit1.text:=c:\ opendialog1.Execute; end;