Como fechar um programa?

09/12/2003

1

Estou usando o seguinte comando para abrir a calculadora, (estou usando o XP e delphi 6).

ShellExecute(Handle, ´OPEN´, PChar(´C:\WINDOWS\system32\calc.exe´), PChar(´´), PChar(´C:\WINDOWS\system32´), SW_SHOWNORMAL);


Como faço para fechar?


Responder

Posts

09/12/2003

Stormconflict

Para se fechar qualquer programa, coloque no evento o seguinte código:

PostMessage(FindWindow(nil, ´NomeDoPrograma´), WM_CLOSE, 0, 0);


no seu caso basta colocar o seguinte códico:


PostMessage(FindWindow(nil, ´Calculadora´), WM_CLOSE, 0, 0);


Responder

09/12/2003

Michele

Legal, só não entendi quando você diz ´nomenoprograma´, o que e?
o nome ´calculadora´, ou ´calc.exe´, ou ´C:\WINDOWS\system32\calc.exe´


Responder

10/12/2003

Michele

Está funcionando.
Está fechando o programa mas agora estou com um pequeno problema.
O programa que estou tentando fechar um programa que fiz em delphi que no evento
On Close tem o seguinte código Action:=canone
Ou seja teoricamente, não poderia ser fechado.

Tem como com esse comando eu forçar este programa a ser fechado?


Responder

11/12/2003

Stormconflict

Desculpe-me não ter respondido antes. mas a resposta é a seguinte:

PostMessage(FindWindow(nil, ´Nome do Programa´), WM_QUIT, 0, 0);


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira