Elegir Carpeta de Destino

[golf2008]

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]]

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]

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.