Como abrir um Diretorio no Onclick
Ae como que eu faço pra abrir um diretorio..........num evento onclick..........nao arquivo so o diretorio........................................................
Duvanel
Curtidas 0
Respostas
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
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