Função ON OFF em Botão

[kleber987 2]

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

• Entre
• ou
• Cadastre-se

 

 

o numero de vezes q eu clico é o numero de programas q abrem

tem como fazer isso so uma vez se eu abro e clico denovo não abra mais

 

pensei inicialmente em usar o mesmo botão pra abrir e fechar mais pensei melhor e acho q uma verificação se ja foi aberto é uma melhor escolha

[brunoragk 0]

Para que quer isso?

 

o WinExec não funciona mais! Use ShellExecute

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute('Calc.exe', sw_show);

end;

 

Declare ShellApi na uses

[DragonBoss 8]

@brunoragk

 

ta ta garoto, senta lá... blz ? =]

pare de floodar (tipo os 5 floods que já vi seu hoje ) e você ajuda o mundo.

se não sabe ajudar, não de uma alternativa sem sentido... a duvida dele não é quanto ao uso de shellapi (que por sinal você nem deve conhecer os parametros).

 

@tópico:

 

uma opção seria algo assim, ele muda a caption do botao, e se tiver como 'abrir' ele abre, se tiver em 'fechar' ele fecha a calculadora... ae vc adapta de acordo com sua necessidade... (no caso, o findwindow procura o nome da janela que é 'calculadora') e manda uma mensagem mandando fechar...

 

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

• Entre
• ou
• Cadastre-se

 

outra opção é usar a mesma ideia e codigos semelhantes pra primeiro ver se o programa já esta aberto.. se estiver, fechar, se nao tiver, abrir...

 

bem simples =P

 

flw

[~OwneR~ 8]

@brunoragk

Você só esqueceu de mais 4 parâmetros do ShellExecute...

ShellExecute(HANDLE,AÇÃO,ARQUIVO,PARÂMETRO,DIRETÓRIO,JANELA);

 

@Topic

Crie uma variável global, por exemplo: NaoAbrirOFuckinPrograma

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

• Entre
• ou
• Cadastre-se

 

Se você quiser pode usar um FindWindow pra verificar se o programa está aberto.

[kleber987 2]

ja consegui uma solução mais agradeço quem respondeu

 

não sei se é a melhor opção mais ta fazendo o q eu quero

 

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

• Entre
• ou
• Cadastre-se

[Surfistinha£ 20]

WinExec(pChar('Local.exe'), sw_show);

 

Funciona sim acabei de testar esta fazendo algo errado

[Ryokusei 21]

Resolvido, fechado.