Acho que isso resolve seu problema. Tenta assim:
if FindWindow('Opusapp',nil) > 0 then
PostMessage( FindWindow('Opusapp',nil),
WM_CLOSE,0,0);
william.designer escreveu:
>
> quero verificar se um programa esta aberto a cada 30 segundos e se
> ele estiver aberto que ele seja fechado. criei o seguinte código
> dentro de um timer
>
> var hh,mm,ss,mmm:word;
> begin
> DecodeTime(time,hh,mm,ss,mmm) ;
> if (ss=00)or(ss=30)then
> begin
> if FindWindow('Opusapp',nil) > 0 then
> PostMessage(FindWindow(nil, 'Documento1 - Microsoft Word'),
> WM_CLOSE,0,0);
> end;
> end;
>
> funcionaou porem a linha de comando para fechar só funciona se eu
> colocar o caption da janela exatamente como é escrito, nao tem como
> eu fechar a partir do nome do executável por exemplo? pois se o
> usuario nao pode usar o word, mas abre um documento com o nome de
> texto por exemplo este codigo nao vai funcionar, pois na barra de
> título vai estar 'texto - Microsoft Word'.
>
> Alguem pode me ajudar por favor...é muito urgente....
>
>
--
Éderson Cassiano Bologna
[EMAIL PROTECTED]
sKYPE: edersoncassiano
MSN: [EMAIL PROTECTED]
www.microtechshop.com
