Inicio › Foros › Lenguajes de programación, desarrollo, código fuente › Delphi › Cómo abrir carpeta con Explorador de Windows desde Delphi › Respuesta a: Cómo abrir carpeta con Explorador de Windows desde Delphi
03/02/2018 a las 20:53
#1589
alonsojpd
Superadministrador
Sí que es posible, por supuesto. Una forma de hacerlo (hay varias):
Delphi/Pascal
1 2 3 4 5 6 7 8 9 10 11 |
procedure TformFacturas.btAbrirCarpetaClick(Sender: TObject); var carpeta : string; begin carpeta := txtRutaCompartida.Text; if (DirectoryExists(carpeta)) then WinExec(PChar('explorer.exe ' + carpeta), SW_SHOW) else MessageDlg ('La carpeta no existe o bien no tiene permisos para acceder.', mtWarning, [mbok], 0); end; |
Teniendo en cuenta que el procedimiento WinExec pertenece a la unidad Windows, por lo tanto en el uses de tu Unidad debes añadir Windows:
unit UnidadFacturas;
interface
uses
Messages, SysUtils, Classes, Graphics, Controls, Dialogs,
StdCtrls, DBCtrls, Buttons, ExtCtrls, Windows, …;