Como abrir um Diretorio no Onclick

Question

Ae como que eu fa�o pra abrir um diretorio..........num evento onclick..........nao arquivo so o diretorio...........................................................

Tatuweb · Answer

N�o entendi muito bem mas ve se esse � o c�digo que voc� procura:

uses ShellAPI;
  ....
procedure TForm1.Button1Click (Sender: TObject);
begin
   ShellExecute (0, Pchar (�open�),
   Pchar (ExtractFileDir (Application.ExeName)),nil,nil,SW_SHOW);
end;

Victor · Answer

Deu certo aqui! Mas gostaria que quando ele abrisse o caminho do diret�rio que funcionou, ele FOCASSE NO ARQUIVO para se poder ter uma clareza no arquivo que foi aberto......