Fórum Abrir diretório no explorer do XP #224642

06/04/2004

0

Delphi

Como faço para localizar e abrir um diretório do explorer do XP através do onclick de um button ??


CBier


Cbier

Cbier

Responder

Posts

06/04/2004

Spooner

Tente Assim,

function ExecExplorer(OpenAtPath: string; OpenWithExplorer, OpenAsRoot: Boolean): boolean;
{Executa o Windows Explorer a partir de uma pasta
especificada
Requer a unit ShellApi
ex: execExplorer(´C:\Temp´, True,True);}
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;
end;



Responder

Gostei + 0

07/04/2004

Cbier

O sistema não compila, ele não entende a sintaxe ´nil´ especificada na linha do código.

CBier


Responder

Gostei + 0

07/04/2004

Spooner

Boa Noite,

Utilizo winXP e deu para Compilar belezinha, criei um exemplo se quiser baixar e testar no seu PC.

http://paginas.terra.com.br/informatica/megamilenium/TEMP.zip


Responder

Gostei + 0

07/04/2004

Spooner

Boa Noite,

Utilizo winXP e deu para Compilar belezinha, criei um exemplo se quiser baixar e testar no seu PC.

http://paginas.terra.com.br/informatica/megamilenium/TEMP.zip


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar