DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Como abrir o windows explorer em uma pasta específica?

É necessário estar declarado ShellAPI na seção uses,
em versões unicode declare Winapi.ShellAPI;

Abaixo o código fonte da função:

function ExecExplorer(OpenAtPath: string;
  OpenWithExplorer, OpenAsRoot: Boolean): Boolean;
var
  s : string;
begin
  if OpenWithExplorer then
  begin
    if OpenAsRoot then
      s := ' /e,/root,"' + OpenAtPath + '"'
    else
      s := ' /e,"' + OpenAtPath + '"';
  end
  else
    s := '"' + OpenAtPath + '"';
 
  Result := ShellExecute(Application.Handle, PChar('open'),
    PChar('explorer.exe'), PChar(s), nil, SW_NORMAL) > 32;
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ExecExplorer('D:\Sistemas\', True, True)) then
  begin
    ShowMessage('Explorer aberto com sucesso!')
  end
  else begin
    ShowMessage('Erro ao abrir o explorer!');
  end;
end;