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)
-   -   Elegir Carpeta de Destino (https://www.clubdelphi.com/foros/showthread.php?t=59132)

golf2008 13-08-2008 23:11:54

Elegir Carpeta de Destino
 
Hola a todos.
Como se hace para Elegir Carpeta de Destino.
Lo necesito porque uno de esos Clientes...... quiere hacer copia de seguridad con el sistema.
Para los webmaster este tema está en el archivo 1191 de las API de windows pero no se puede ver el tema.
Gracias

Neftali [Germán.Estévez] 14-08-2008 12:52:38

Si te refieres a hacerlo desde delphi, basta con que utilizes un componente OpenDialog/SaveDialog.
Si no recuerdo mal, también hay una fiunción SelectDirectory (revisa la ayuda).

golf2008 15-08-2008 12:05:16

Gracia Neftali. Pero la mejor solución que encontré es la siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
BrowseInfo : TBrowseInfo;
PIDL : PItemIDList;
DisplayName : array[0..MAX_PATH] of Char;
begin
FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);
BrowseInfo.hwndOwner := Handle;
BrowseInfo.pszDisplayName := @DisplayName[0];
BrowseInfo.lpszTitle := 'Select Directory';
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
PIDL := SHBrowseForFolder(BrowseInfo);
if Assigned(PIDL) then
if SHGetPathFromIDList(PIDL, DisplayName) then
ShowMessage(DisplayName);
end;
Poner Uses ShlObj y FileCtrl

Gracias.


La franja horaria es GMT +2. Ahora son las 23:05:46.

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