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

来源:百度知道 编辑:UC知道 时间:2024/06/03 17:36:20
现在有一个edit,如何用delphi打开在edit.text中指定路径中的文件夹呢

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

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

ShellExecute(Handle,'open', edit1.txt, nil,nil,SW_SHOWNORMAL)