Edit1 e ShellExecute

[Blackleaf]

Queria saber como faço para abrir o programa s eu digitar o caminho no Edit1

Ex: Edit1 - Escrito: C\Arquivos de programas\Xzz\Xzz.exe

Aí eu clico no botão abrir e vai abrir o program Xzz.exe

[Churc]

Opa

uses

ShellAPI;

ShellExecute(Handle do Form ou da Aplicaçao, Ação, Caminho do arquivo, Parametros, Diretorio de inicializacao, Modo de abertura);

Seria no seu caso

ShellExecute(Handle, 'open', PChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);

abraco

[Vivendo&Aprendendo]

Olá

Você pode utilizar a função WinExec;

Abraços

[Blackleaf]

vlw, mas s eu só quiser q escolha o Disco local

ex:

O usuário digita o disco local padrão dele que seja o 'D:', aí ele vai lá e digita apenas D no Edit1.

Aí o meu programa faz o resto.

[Vivendo&Aprendendo]

Olá

Não consegui entender certo o que você deseja fazer, pois no primeiro post você citou que queria abrir um programa e agora deseja apenas abrir no disco local.

Explica realmente o que você deseja fazer, pois pelo menos eu não captei a sua dúvida.

Como o programa irá saber o que você deseja fazer apenas digitando a letra do disco local?

Abraços

[Blackleaf]

Eu queria por exemplo:

O cara instala um jogo no C, aí ele sempre está em 'Arquivos de programas/jogo bom/jogo.exe', mas tem gente (como eu) que instala em HD diferente mas com o mesmo local 'Arquivos de programas/jogo bom/jogo.exe', aí eu só queria que o usuário escolhece o HD q ele usa ;)

[Vivendo&Aprendendo]

Use o mesmo exemlo que o Churc te passou...

Mas no edit você digita C ou D por exemplo e em outro edit ou variável ou label sei la você coloca o restante do caminho que é: :\Arquivos de programas.....

o código ficará mais ou menos assim:

ShellExecute(Handle, 'open', PChar(Edit1.Text+Edit2.Text), nil, nil, SW_SHOWNORMAL);

Isso usando dois edits só para você entender...

Lembresse que se você digitar um letra de disco local e neste não existir o caminho que você deseja acessar dará erro.

Abraços