Aprenda a Usar ShellExecute Com Video Aula By:'Sazon~

[Estarossa 3.684]

Aqui ta o Tutorial que usei no Video

 

Eae Galera Aqui e o 'Sazon~ e Hoje Vou tar Encinando Vocês a Usar o ShellExecute

 

Como Não Mecho com Delphi Muito Tempo Irei Copiar os Codigos e Colar la na Source(no seu Botão)

 

Tambem Irei Disponibilizar os Codigos , Dos Shell Execute na Descrição do Video e Tambem em Forum's Que estarei Postando .

 

Vou Apenas Mostrar o Exemplo de 2 Codigos , Como Executar um Programa de Fora e Como Abrir um Site por um Botão ou Label

 

Abra seu Delphi "Delphi 7"

 

Declare nas Uses "ShellApi"

 

No Seu Projeto Adicione um 1 Buttons e 1 Label

 

Mude o Caption do Botão Para "Abrir .EXE"

 

De Dois Cliques no Botão e Adicone o Codigo que esta na Descrição do Video .

 

Digite Ali o Nome do Arquivo Que Deseja Abrir "ARQUIVO.EXE"

 

Depois De Adicionar o Codigo no Botão Volte a Sua Form.

 

Mude o Caption da Label Para "Abrir Google" .

 

 

Depois de ter Feito isso Clique Duas Vezes na Label e Adicione o Seguinte Codigo que esta da Descrição .

 

Claro se Quiser Você Pode Mudar o Site ;D

 

Após ter Feito Tudo Compile(Aperte F9) o Projeto Pra ver se Deu certo ;D Malz -='

 

 

 

Como Pode Ver Compilou Sem erros , Agora vamos Testar .

 

Funcionou ;D

 

Vamos testar o Exe . Não Sei se ira Funcinar no modo De Compilamento Mais Depois que Você salva o Projeto Funciona Normalmente ;D

 

Bom , Como Disse Depois De Compliado Funciona ;D

 

 

 

 

 

Espero que tenha Ajudado Vocês ,Por Favor da um Thanks um Joinha ai *-*

 

Fuiz

 

By : 'Sazon~

 

Video

 

 

Codigo do Botão

 

shellexecute(handle,'open','C:\Arquivo.exe',nil,nil,sw_shownormal);

 

Codigo da Label

 

shellexecute(handle,'open','http://google.com.br',nil,nil,sw_shownormal);

[djgabriel100mem 0]

Obrigado Eu Estava Mesmo Atraz Disso Levou Thanks ;D

[Estarossa 3.684]

Obrigado Eu Estava Mesmo Atraz Disso Levou Thanks ;D

]

 

quem Bom que Gostou *-* , Foi Mue Primeiro Video-Aula tava Nervoso :/

 

Qualquer Duvida Estarei Aqui no topico ;D

[Zaum 39]

conteudo ja existente, q pena

[Estarossa 3.684]

existe um Topico com Video Ensinando ?

 

manda Link ai '-'