Executar comando apartir de Button [ Delphi 7 ]

[Skinn3r' 1]

Eae galera , hoje vou fazer um tutorial de um button abrir alguma coisa

 

Ex : bloco de notas, calculadora ...

 

Pode tbm ser usados outras coisas para executar

 

Ex: Jogos , navegadores Etc ...

 

 

Vamos la ..

 

Abra o delphi

 

File> New > Application

 

 

 

Adicione um Button , aba Standard

 

 

 

De 2 cliques sobre o Button e Adicione o seguinte codigo :

 

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

• Entre
• ou
• Cadastre-se

 

 

 

 

Na Uses declare :

 

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

• Entre
• ou
• Cadastre-se

 

 

 

Apos isto de um F9;

 

 

 

Outras funções que podem ser usadas para serem abertas :

 

Calc.exe = Calculadora

Winword.exe = Word

IExplore.exe = Explorer

 

Etc...

 

Troque esses por Notepad.exe como citado na foto 02

 

E para executar um comando qualquer no Button , adc o seguinte codigo :

 

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

• Entre
• ou
• Cadastre-se

 

Neste caso ele ira abrir : Meu computador a pasta TESTE ( que nao existe , esta citada apenas como um exemplo) e o TESTE.exe que estara dentro da pasta TESTE..

 

Para executar oque quizer troque oque esta de Azul

Abra a pasta onde quer , copie o "link" dela.

 

 

 

O priston o link é :

C:\Arquivos de programas\Priston Tale Brasil

Para executar dai o Game.exe ,

coloque o link e no final do link coloque \Game.exe ( substituido pelo que quer)

 

Ficando assim :

 

C:\Arquivos de programas\Priston Tale Brasil\Game.exe

 

Voce pode tambem tar adicionando um Comando , exemplo Ctrl + 1 / Shift +1 / Alt + 1

ou o que quizer .

 

Isso ae , até a proxima

espero que tenha gostado , é simples mais

pra quem nao sabe ...

 

 

Obs : Nao tarei postando Source pois tem gente muito preguiçosa

que ira fazer o down da Source , e nao ira tar aprendendo nada ,

é muito simples fazer isto , façam , leiam e entendam

 

 

 

E se voce é aquele tipo de menino preguiçoso

que nao gosto do post porque ta sem a source ...

Nem falo nada :chingando:

[.:fuu:. 9]

Muito foda isso mano, se n me engano fui eu q te ensinei nao?

ASUHUASH

Abrass

[Skinn3r' 1]

Umma parte fooi emo ,

owieioweio

Abraços :]

 

[italo5858 0]

Boa , Topico Organizado e Com Imagens . Parabens , Leva Meus Thanks !

[Zaum 21]

Conteudo ja existente!!, veja a quick list, tem um topico completo sobre shellexecute

[LPTT 2]

Parabens manin

Levo meu thansk

oiweioweowoie