É Verdade ederson, mas é que sou novato em delphi e por isso tantas
duvidas...quanto a minha dúvida consiga o que queria criando um
porcesso para vericarprocessoexsitente e outro para fechar o
processo existente entao ficou tudo certo...
agradeço pelo dica...
--- Em delphi-br@yahoogrupos.com.br, edersonecris <[EMAIL PROTECTED]>
escreveu
>
> Bem Willian a resposta a sua pergunta eu naum sei, mas na minha
humilde
> opnião, não ficaria mais fácil definir o timer para 30 segundos
(30000
> milisegundos) ao invés de fazer um decodetime?
>
>
> 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
>
