Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #21  
Antiguo 23-09-2014
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por dec Ver Mensaje
Hola,

Código Delphi [-]
uses
   ShlObj;
 
 // Mostrar el diálogo estándar de Windows que
 // permite elegir un determinado directorio.
 //
 // Basado en ciertas funciones recogidas de las
 // "Delphi Works 1.2" (http://delphiworks.sf.net).
 //
 function DlgElegirDirectorio(subtitulo: string;
   nuevoEstilo: boolean) : string;
 var
   BI: TBrowseInfo;
   IL: PItemIDList;
 begin
   Result := EmptyStr;
   with BI do begin
     lpfn:= nil;
     lParam:= 0;
     iImage:= 0;
     pidlRoot:= nil;
     hwndOwner:= GetActiveWindow;
     lpszTitle:= PChar(subtitulo);
     GetMem(pszDisplayName, MAX_PATH);
     ulFlags := BIF_RETURNONLYFSDIRS;
     if nuevoEstilo then
       ulFlags := ulFlags or BIF_NEWDIALOGSTYLE;
   end;
   IL := SHBrowseForFolder(BI);
   if SHGetPathFromIDList(IL, BI.pszDisplayName) then
     Result := IncludeTrailingPathDelimiter(
       StrPas(BI.pszDisplayName));
   FreeMem(BI.pszDisplayName);
   GlobalFreePtr(IL);
 end;
Gracias dec

// Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:30:29.


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
Copyright 1996-2007 Club Delphi