Como fechar um programa?
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?
ShellExecute(Handle, ´OPEN´, PChar(´C:\WINDOWS\system32\calc.exe´), PChar(´´), PChar(´C:\WINDOWS\system32´), SW_SHOWNORMAL);
Como faço para fechar?
Michele
Curtidas 0
Respostas
Stormconflict
09/12/2003
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);
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);
GOSTEI 0
Michele
09/12/2003
Legal, só não entendi quando você diz ´nomenoprograma´, o que e?
o nome ´calculadora´, ou ´calc.exe´, ou ´C:\WINDOWS\system32\calc.exe´
o nome ´calculadora´, ou ´calc.exe´, ou ´C:\WINDOWS\system32\calc.exe´
GOSTEI 0
Michele
09/12/2003
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?
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?
GOSTEI 0
Stormconflict
09/12/2003
Desculpe-me não ter respondido antes. mas a resposta é a seguinte:
PostMessage(FindWindow(nil, ´Nome do Programa´), WM_QUIT, 0, 0);
PostMessage(FindWindow(nil, ´Nome do Programa´), WM_QUIT, 0, 0);
GOSTEI 0