[dec]

Hola,

También podrías probar con una función más o menos como esta:

Código Delphi [-]
uses
  Windows, ShellApi;

function Abrir(directorio: string;
 explorar: boolean=false): boolean;
var
  opcion: string;
begin
  opcion := 'open';
  if explorar then opcion := 'explore';
  result := (ShellExecute(GetActiveWindow, PChar(opcion),
    PChar(directorio), nil, nil, SW_SHOWNORMAL) > 32);
end;

// Ejemplos de uso
begin
  Abrir('C:\Windows');
  Abrir('C:\Windows', true);
end;

La diferencia entre "explorar" y solamente "abrir" un directorio estriba en que "explorando" Windows mostrará una ventana con el contenido del directorio en cuestión, y a la izquierda de esta misma ventana el árbol de directorios del sistema de archivos.

Por el contrario, si sólo se "abre" un directorio Windows se limitará a mostrar una ventana con el contenido del directorio que pasemos como parámetro a la función.

Bueno, y ya está.