Abrir E Fechar Programas... (RESOLVIDO)

[Progr'amador]

Olá galera!

alguém ai sabe o codigo pra abri e fechar qualquer arquivo ou programa apartir do meu programa?

por exemplo num button pra abrir a calculado do windows, num outro button fechar ela...

[FAL_Prog]

Colega, acho que é só usar:

WINEXEC('caminho_do_arquivo',SW_Show);

Substitua caminho_do_arquivo pelo caminho até o executável.

Ex.: 'c:\Meus Documentos\Teste.exe'

[Progr'amador]

Colega, acho que é só usar:

WINEXEC('caminho_do_arquivo',SW_Show);

Substitua caminho_do_arquivo pelo caminho até o executável.

Ex.: 'c:\Meus Documentos\Teste.exe'

ola amigo,

na verdade pra abrir eu já tinha conseguido, agora estou precisando do comando pra Fechar.

[Capablanca]

Para abrir, é exatamente como o FAL Prog falou.

Para fechar, você pode usar o seguinte código no evento OnClick do seu botão:

procedure TForm1.Button1Click(Sender: TObject);
var
 MinhaHandle: THandle;
begin
 MinhaHandle:=FindWindow(nil, 'Calculadora');
 SendMessage(MinhaHandle, WM_CLOSE, 0, 0);
end;

No lugar de Calculadora você deve colocar o título do aplicativo que você quer fechar (no caso da calculadora é Calculadora).

Abs.

[Progr'amador]

Valeu Capablanca, Resolvido.

Até a próxima...