Como abrir um Diretorio no Onclick

Delphi

11/04/2004

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


Duvanel

Duvanel

Curtidas 0

Respostas

Tatuweb

Tatuweb

11/04/2004

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;



GOSTEI 0
Victor

Victor

11/04/2004

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...
GOSTEI 0
POSTAR