Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   ¿Cómo abrir una carpeta cualquiera? (https://www.clubdelphi.com/foros/showthread.php?t=30313)

gatosoft 03-04-2006 16:43:47

¿Cómo abrir una carpeta cualquiera?
 
Hola Foro, ¿como han estado?,

Hacia tiempo no pasaba por aqui. Me gusta el nuevo Look del foro.


Tengo un pequeño problema: Estoy haciendo una aplicación en la que necesito abrir una carpeta CUALQUIERA de Windows. He encontrado muchos ejemplos de como abrir carpetas especiales o virtuales de Windows, como mis documentos, panel de control, etc. Pero por ningun lado encuientro como abrir una carpeta normal...

De todas formas supongo que puedo abrirla obteniendo el PIDL, a través del mismo codigo con el que se abren las especiales... me gustaria saber si alguien sabe como puedo hacerlo.

Gracias.

Neftali [Germán.Estévez] 03-04-2006 16:54:15

Cita:

Empezado por gatosoft
necesito abrir una carpeta CUALQUIERA de Windows.

Si te refieres a abrirla con el explorador de Windows, puedes hacerlo con WinExec o ShellExecute. Busca ejemplos en los foros, hay muchos.
Utilizas el parámetro 'open' y la ruta de la carpeta.

gatosoft 03-04-2006 17:33:25

Gracias
 
Muchas gracias Neftalí me funcionó a la perfección.

gatosoft 06-04-2006 23:23:54

bueno, tengo otro problema... ahra no puedo abrir una unidad de red, ni una de disco... es decir, esta operación no hace nada:

ShellExecute(frmPrincipal.Handle,'open','','',PChar(chrDirectorio_p),SW_SHOWNORMAL);

Donde el directorio es:

C:\ o
F:\...

Les agradezco si me dan una mano...

ctrl_attack 02-04-2007 14:41:35

prieba con esto;) :

Código Delphi [-]
 
ShellExecute(Handle,
             'open',
             'C:\',
             nil,
             nil,
             SW_SHOW);

bye amigo

jhonny 02-04-2007 18:00:53

Otro Ave Fenix¿?¿ :)


La franja horaria es GMT +2. Ahora son las 09:22:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi