[AJUDA]Como fazer um executador de arquivos?

[nitypva 0]

Bom gente, hoje estou aqui para pedir a vocês uma ajuda...:D

 

Queria fazer um executador de arquivos pelo local onde ele se encontra, exemplo:

 

Já tenho os componentes, mas não sei o código....

 

 

Lembrando,é em DELPHI 7

 

Obrigado....:cool::cool:

 

------------------------------------------------------

Ajude-me:

 

 

Evolua meus bixinhos...

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Metas pet:

Level 4[x] Level 20[] Level 30[] Level 40[] Level 50[] (Meus pet evoluiuuuu) Dps disso:

Level: 1000[]

 

Metas do fórum:

4 pontos[x] 20 pontos[] 30 pontos[] 40 pontos[] 50 pontos[] ||||| 1000 pontos[]

EEEEE!!!!:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Meus avatares:

 

Mulheres:

 

 

Homens:

 

Assinatura grande, não acham?!

[Talaram 0]

Criando o programa

 

É muito simples!

 

Faça o seguinte:

 

1º Criei um novo Form

 

2º Insira 1 Edit, 1 Label, e 2 Botões. Defina Caption como( Label) Executador de Arquivo, (Edit) Deixe em branco, (Botões) 1 como Selecione o Arquivo e o outro como Execute o arquivo.

 

3º Depois vá à aba Dialogs e insira o (OpenDialog).

 

4º Assim dê um duplo clique no Botão1 ( Selecione o arquivo ) e insira o código :

 

if OpenDialog1.execute then

Edit1.text:=(OpenDialog1.FileName);

5º Adicione a função de execução ao botão ( Execute o arquivo ), com o código :

 

WinExec(PChar(Edit1.Text),SW_SHOW);

6º Pronto você tem um executador de arquivos ^^

 

 

Segue uma demonstração abaixo para você entender a posição dos botões:

 

http://rapidshare.com/files/241327160/Executador_de_arquivos.rar.html

[nitypva 0]

Muito obrigado cara...VLW mesmo!!!

 

Tava prescisando muito disto!!!!

 

Daqui a poco lançarei um programa feito pela sua opinião!!!

 

O programa é surpresa!!!:p