Código Delphi [-] ShellExecute(application.Handle, 'explore', 'c:\datos\Escritos', '', '', SW_SHOW);
ShellExecute(application.Handle, 'explore', 'c:\datos\Escritos', '', '', SW_SHOW);