[DELPHI] ABRIR O WINDOWS EXPLORER EM UMA PASTA ESPECÍFICA

Muitas vezes temos a necessidade de abrir uma pasta específica do Windows para mostrar ao usuário onde foi salvo um arquivo gerado pelo nosso sistema, facilitando para o usuário e deixando nosso sistema mais profissional.

// uses ShellAPI

procedure TForm1.Button1Click(Sender: TObject);

begin

  if (OpenExplorer('C:\Windows\', True, True)) then

    ShowMessage('Explorer aberto com sucesso!')

  else

    ShowMessage('Erro ao abrir o explorer!');

end;

function TForm1.OpenExplorer(OpenPath: string; OpenWithExplorer, OpenAsRoot: Boolean): Boolean;

var

  s: string;

begin

  if OpenWithExplorer then

  begin

    if OpenAsRoot then

      s := ' /e,/root,"' + OpenPath + '"'

    else

      s := ' /e,"' + OpenPath + '"';

  end

  else

    s := '"' + OpenPath + '"';

  result := ShellExecute(Application.Handle, PChar('open'), PChar('explorer.exe'), PChar(s), nil, SW_NORMAL) > 32;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】