if Assigned(nomedoform) then nomedoform.close; se quiser tirar da memória Freeandnil(nomedoform) ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe
http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com ---------------------------------------------------------------------------------------- --- Em qua, 29/10/08, Tiago de Assis Pimenta <[EMAIL PROTECTED]> escreveu: De: Tiago de Assis Pimenta <[EMAIL PROTECTED]> Assunto: RES: [delphi-br] Fechar uma Janela, ou Finalizar um Processo Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 29 de Outubro de 2008, 9:53 Eu queria fechar uma janela em especifico, ou finalizar um processo especifico. Mas com esse comando abaixo, eu falei que ele estava tentando finalizar o Windows. Mas isso já foi resolvido. Depois eu posto como ficou :D Abraço. De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Jean Barreiros Enviada em: quarta-feira, 29 de outubro de 2008 09:25 Para: [EMAIL PROTECTED] os.com.br Assunto: Res: [delphi-br] Fechar uma Janela, ou Finalizar um Processo Eu não entedir direito, vc quer reiniciar/desligar o windows? . . . Jean Barreiros Programador/ Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] com.br <mailto:jean% 40comerciofsa. com.br> e-mail: [EMAIL PROTECTED] com <mailto:delphijean% 40gmail.com> ____________ _________ _________ __ De: Tiago de Assis Pimenta <tiagopimenta@ ymail.com <mailto:tiagopiment a%40ymail. com> > Para: Grupo Delphi Yahoo <[EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> > Enviadas: Terça-feira, 28 de Outubro de 2008 12:44:16 Assunto: [delphi-br] Fechar uma Janela, ou Finalizar um Processo Galera, agora preciso finalizar um processo, ou fechar uma determinada janela para fazer o atualizador do meu sistema. Peguei um código de um amigo meu, mas esse não rola, pois ele está tentando finalizar o Windows, e aparece a tela de Hibernar, Desligar ou Reiniciar o Windows. procedure Tfrmprincipal. FechaSistema; var h : THandle; begin h := findwindow(nil, pchar(paramstr( 1))); if h > 0 then sendmessage( h, WM_CLOSE, 0, 0); end; O processo chama LTACorpore.exe. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com. http://br.new. mail.yahoo. com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
