Cita:
Empezado por soul6301
¿Qué componente o unidad me permite mostrar la ventana donde aparecen los directorios de Mi PC?
|
Puedes utilizar los componentes de la paleta Samples llamados ShellTreeView, ShellComboBox y ShellListView; Son sencillos, aunque en la versión 6 de delphiu (desconozco en las demás) tienen algún pequeño Bug. Échales un vistazo, son bastante fáciles de configurar.
Otra opción por código es utilizar una función existente en la unit
FileCtrl (que deberás añadir al uses)
Código Delphi
[-]
var
Dir : String;
begin
SelectDirectory(Dir,[],0);
ShowMessage(Dir);
y otra opción es utilizar directamnte la API de windows
SHBrowseForFolder
Código Delphi
[-]
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Please specify a directory';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;
en éste último caso deberás añadir la unit
ShellAPI al uses.