Guest johnson Posted August 31, 2008 Report Share Posted August 31, 2008 crisvam Novo Membro Brasil 29 Mensagens Postado - 28/08/2008 : 18:11:13 -------------------------------------------------------------------------------- Pessoal! Alguem poderia me dizer se existe uam maneira de inibir uma janela do win já aberta. Explico: 01 - no windows se pode abrir a mesma janela várias vezes tem como empedir isto? 02 - Se for possÃvel para uma janela? Também é possÃvel para um aplicativo? oBrigado antecipadamente pela atenção de todos. Crisvam - Poconé MT --> Clip53B - FW 2.4a ico Membro Avançado Brasil 2724 Mensagens Postado - 28/08/2008 : 18:46:15 -------------------------------------------------------------------------------- Bem.. no Windows eu não posso te dizer.. mas sua aplicação faz assim.. Function Main()Local...**--[ verifica dois executáveis com o mesmo nomeIF(IsExeRunning("cfilenma")) MsgInfo("O programa já está aberto, verifique na barra do Windows. "," ..:: Atenção ::..") RETURN(NIL)ENDIF Abraços.. -------------------- Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 28/08/2008 18:47:43 lailton.webmaster Membro Avançado Brasil 101 Mensagens Postado - 28/08/2008 : 19:00:08 -------------------------------------------------------------------------------- Seguinte amigo pelo que entendi vc quer que uma janela abra somente uma vez e caso esteja aberta num abra mais. no meu caso eu diz o seguinte, criei uma variavel e defini ela como janela :=.F. ai na funcao que abre o window ou dialog vc coloca assim function abrejanela() if (janela=.F.) public janela:=.T. abre a janela define window... activate window... public janela :=.F. // libera a jnale else msginfo ("janela ja esta aberta ") return nil endif return // quando ao sistema aberto eu uso a funcao abaixo IF(ISEXERUNNING("ponto.exe")) msgwait("O Sistema já está aberto !","Pix Ponto Digital Biométrico") RETURN .F. ENDIF com isto ele ve se o programa ja esta aberto caso teja ele num abre novamente. Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 ico Membro Avançado Brasil 2724 Mensagens Postado - 28/08/2008 : 19:12:35 -------------------------------------------------------------------------------- citação: -------------------------------------------------------------------------------- Seguinte amigo pelo que entendi vc quer que uma janela abra somente uma vez e caso esteja aberta num abra mais. no meu caso eu diz o seguinte, criei uma variavel e defini ela como janela :=.F. ai na funcao que abre o window ou dialog vc coloca assim function abrejanela() if (janela=.F.) public janela:=.T. abre a janela define window... activate window... public janela :=.F. // libera a jnale else msginfo ("janela ja esta aberta ") return nil endif return // quando ao sistema aberto eu uso a funcao abaixo IF(ISEXERUNNING("ponto.exe")) msgwait("O Sistema já está aberto !","Pix Ponto Digital Biométrico") RETURN .F. ENDIF com isto ele ve se o programa ja esta aberto caso teja ele num abre novamente. Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 -------------------------------------------------------------------------------- Mas não foi isso que eu disse ai em cima ??? -------------------- Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com crisvam Novo Membro Brasil 29 Mensagens Postado - 28/08/2008 : 19:54:46 -------------------------------------------------------------------------------- Luiz! Lailton! Na versão 2.4a para clipper a FW não tem a função IsExeRunning(), neste caso só atualizando ou existe outra maneira de fazer isto. cendon Membro Avançado Brasil 391 Mensagens Postado - 28/08/2008 : 21:58:35 -------------------------------------------------------------------------------- oWnd:=FindWindow(0,"TITULO DA JANELA") if oWnd!=0 Msgalert("O SISTEMAXXX ja se encontra aberto","Atencao!!!") return .f. endif ISSO VERIFICA SE Jà ESTA ABERTO UM PROGRAMA COM TITULO DA JANELA DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ; TITLE "ST-Vida 3.0" ; -> ESTE É O TITULO DA JANELA PRINCIAPL MENU BuildMenu() ; COLOR "W+/bg" ; ICON oIco FUNCIONA DA 2.4 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop jc Membro Avançado Brasil 301 Mensagens Postado - 29/08/2008 : 09:50:33 -------------------------------------------------------------------------------- Esse exemplo verifica se o executável já está rodando e traz ele para o fontend do windows! IF isExeRunning( "nome_executavel" ) oWnd := findWindow( 0, "titulo_sistema" ) bringWindowToTop( oWnd ) showWindow( oWnd, 3 ) RETURN( .F. )ENDIF Agora, se a versão do fivewin não possuir a função isExeRunning() é melhor fazer assim: oWnd := findWindow( 0, "titulo_janela" )IF !( oWnd == 0 ) bringWindowToTop( oWnd ) showWindow( oWnd, 3 ) RETURN( .F. )ENDIF -- Júlio César M. Ferreira www.rsconsultores.com.br Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 8.08/ xHarbour 1.1.0/ xDevStudio 0.72/ SQL LIB 1.9/ Pelles 5.00.1 Editado por - jc on 29/08/2008 09:54:18 Editado por - jc on 29/08/2008 10:03:39 vagner Administrador Brasil 3981 Mensagens Postado - 29/08/2008 : 12:02:48 -------------------------------------------------------------------------------- Olá Pessoal, Vou deixar isso um pouco barato pois hoje é 6ª feira, e vcs devem ter tido uma semana ruim, mas... já vou avisando, que se continuarem assim, vou travar o tópico e retirar essas respostas ok ? Abraço a todos, e tenham um bom fim de semana, relaxem e tomem umas por mim Vagner Wirts VI Encontro está chegando , não perca vagner Administrador Brasil 3981 Mensagens Postado - 29/08/2008 : 23:36:28 -------------------------------------------------------------------------------- Como eu disse Respostas apagadas e tópico travado. Crisvam, Por favor se não solucionou o seu problema abra um novo tópico ok ? Vagner Wirts VI Encontro está chegando , não perca johnson Membro Senior brasil 97 Mensagens Postado - 30/08/2008 : 00:07:52 -------------------------------------------------------------------------------- se jah foi dido lamento, espero q sirva If ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) ) Msginfo("Sistema já está sendo executado!!!", "Informativo!") Return nil Endif lailton.webmaster Membro Avançado Brasil 101 Mensagens Postado - 30/08/2008 : 02:06:38 -------------------------------------------------------------------------------- Como eu disse Respostas apagadas e tópico travado. Crisvam, Por favor se não solucionou o seu problema abra um novo tópico ok ???????? O loko em vagner nada ve mano era so brincaira se tambem eh foda vio... O ke vale que as respota ta ae crisvam, é so olhar e ctrl+c + ctrl + v Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 johnson Membro Senior brasil 97 Mensagens Postado - 30/08/2008 : 11:26:32 -------------------------------------------------------------------------------- e qm ser vc? deus? Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted August 31, 2008 Report Share Posted August 31, 2008 crisvam Novo Membro Brasil 29 Mensagens Postado - 28/08/2008 : 18:11:13 -------------------------------------------------------------------------------- Pessoal! Alguem poderia me dizer se existe uam maneira de inibir uma janela do win já aberta. Explico: 01 - no windows se pode abrir a mesma janela várias vezes tem como empedir isto? 02 - Se for possÃvel para uma janela? Também é possÃvel para um aplicativo? oBrigado antecipadamente pela atenção de todos. Crisvam - Poconé MT --> Clip53B - FW 2.4a ico Membro Avançado Brasil 2724 Mensagens Postado - 28/08/2008 : 18:46:15 -------------------------------------------------------------------------------- Bem.. no Windows eu não posso te dizer.. mas sua aplicação faz assim.. Function Main()Local...**--[ verifica dois executáveis com o mesmo nomeIF(IsExeRunning("cfilenma")) MsgInfo("O programa já está aberto, verifique na barra do Windows. "," ..:: Atenção ::..") RETURN(NIL)ENDIF Abraços.. -------------------- Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Editado por - ico on 28/08/2008 18:47:43 lailton.webmaster Membro Avançado Brasil 101 Mensagens Postado - 28/08/2008 : 19:00:08 -------------------------------------------------------------------------------- Seguinte amigo pelo que entendi vc quer que uma janela abra somente uma vez e caso esteja aberta num abra mais. no meu caso eu diz o seguinte, criei uma variavel e defini ela como janela :=.F. ai na funcao que abre o window ou dialog vc coloca assim function abrejanela() if (janela=.F.) public janela:=.T. abre a janela define window... activate window... public janela :=.F. // libera a jnale else msginfo ("janela ja esta aberta ") return nil endif return // quando ao sistema aberto eu uso a funcao abaixo IF(ISEXERUNNING("ponto.exe")) msgwait("O Sistema já está aberto !","Pix Ponto Digital Biométrico") RETURN .F. ENDIF com isto ele ve se o programa ja esta aberto caso teja ele num abre novamente. Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 ico Membro Avançado Brasil 2724 Mensagens Postado - 28/08/2008 : 19:12:35 -------------------------------------------------------------------------------- citação: -------------------------------------------------------------------------------- Seguinte amigo pelo que entendi vc quer que uma janela abra somente uma vez e caso esteja aberta num abra mais. no meu caso eu diz o seguinte, criei uma variavel e defini ela como janela :=.F. ai na funcao que abre o window ou dialog vc coloca assim function abrejanela() if (janela=.F.) public janela:=.T. abre a janela define window... activate window... public janela :=.F. // libera a jnale else msginfo ("janela ja esta aberta ") return nil endif return // quando ao sistema aberto eu uso a funcao abaixo IF(ISEXERUNNING("ponto.exe")) msgwait("O Sistema já está aberto !","Pix Ponto Digital Biométrico") RETURN .F. ENDIF com isto ele ve se o programa ja esta aberto caso teja ele num abre novamente. Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 -------------------------------------------------------------------------------- Mas não foi isso que eu disse ai em cima ??? -------------------- Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com crisvam Novo Membro Brasil 29 Mensagens Postado - 28/08/2008 : 19:54:46 -------------------------------------------------------------------------------- Luiz! Lailton! Na versão 2.4a para clipper a FW não tem a função IsExeRunning(), neste caso só atualizando ou existe outra maneira de fazer isto. cendon Membro Avançado Brasil 391 Mensagens Postado - 28/08/2008 : 21:58:35 -------------------------------------------------------------------------------- oWnd:=FindWindow(0,"TITULO DA JANELA") if oWnd!=0 Msgalert("O SISTEMAXXX ja se encontra aberto","Atencao!!!") return .f. endif ISSO VERIFICA SE Jà ESTA ABERTO UM PROGRAMA COM TITULO DA JANELA DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ; TITLE "ST-Vida 3.0" ; -> ESTE É O TITULO DA JANELA PRINCIAPL MENU BuildMenu() ; COLOR "W+/bg" ; ICON oIco FUNCIONA DA 2.4 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop jc Membro Avançado Brasil 301 Mensagens Postado - 29/08/2008 : 09:50:33 -------------------------------------------------------------------------------- Esse exemplo verifica se o executável já está rodando e traz ele para o fontend do windows! IF isExeRunning( "nome_executavel" ) oWnd := findWindow( 0, "titulo_sistema" ) bringWindowToTop( oWnd ) showWindow( oWnd, 3 ) RETURN( .F. )ENDIF Agora, se a versão do fivewin não possuir a função isExeRunning() é melhor fazer assim: oWnd := findWindow( 0, "titulo_janela" )IF !( oWnd == 0 ) bringWindowToTop( oWnd ) showWindow( oWnd, 3 ) RETURN( .F. )ENDIF -- Júlio César M. Ferreira www.rsconsultores.com.br Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 8.08/ xHarbour 1.1.0/ xDevStudio 0.72/ SQL LIB 1.9/ Pelles 5.00.1 Editado por - jc on 29/08/2008 09:54:18 Editado por - jc on 29/08/2008 10:03:39 vagner Administrador Brasil 3981 Mensagens Postado - 29/08/2008 : 12:02:48 -------------------------------------------------------------------------------- Olá Pessoal, Vou deixar isso um pouco barato pois hoje é 6ª feira, e vcs devem ter tido uma semana ruim, mas... já vou avisando, que se continuarem assim, vou travar o tópico e retirar essas respostas ok ? Abraço a todos, e tenham um bom fim de semana, relaxem e tomem umas por mim Vagner Wirts VI Encontro está chegando , não perca vagner Administrador Brasil 3981 Mensagens Postado - 29/08/2008 : 23:36:28 -------------------------------------------------------------------------------- Como eu disse Respostas apagadas e tópico travado. Crisvam, Por favor se não solucionou o seu problema abra um novo tópico ok ? Vagner Wirts VI Encontro está chegando , não perca johnson Membro Senior brasil 97 Mensagens Postado - 30/08/2008 : 00:07:52 -------------------------------------------------------------------------------- se jah foi dido lamento, espero q sirva If ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) ) Msginfo("Sistema já está sendo executado!!!", "Informativo!") Return nil Endif lailton.webmaster Membro Avançado Brasil 101 Mensagens Postado - 30/08/2008 : 02:06:38 -------------------------------------------------------------------------------- Como eu disse Respostas apagadas e tópico travado. Crisvam, Por favor se não solucionou o seu problema abra um novo tópico ok ???????? O loko em vagner nada ve mano era so brincaira se tambem eh foda vio... O ke vale que as respota ta ae crisvam, é so olhar e ctrl+c + ctrl + v Lailton FiveWin 8.5 / Xharbour 1.1.0 / BCC55 johnson Membro Senior brasil 97 Mensagens Postado - 30/08/2008 : 11:26:32 -------------------------------------------------------------------------------- e qm ser vc? deus? Quote Link to comment Share on other sites More sharing options...
vagner Posted September 1, 2008 Report Share Posted September 1, 2008 Olá Johson, Como eu Disse para o Crisvan. Seria para ele abrir o tópico, se não tivesse conseguido resolver ok ? E como também disse os motivos que eu estaria Travando o Tópico, por causa dos Palavrões, nesse fórum, devemos manter um alto nÃvel nas respostas, sem xingamento Ok? Não existem somente Homens, nesse fórum, se caso algum usuários se sentirem ofendido, como foi o q aconteceu, e começar uma "guerra" que o faça via e-mail , não aqui . E como vc perguntou, estou postando. Não Eu não Sou Deus, sou somente o Administradorid=red> Aceitamos brincadeiras, contanto que ninguém se sinta ofendido, se quiserem contar piadas, exite o Off-Topic que é livre . Se vc se sentiu ofendido por eu ter travado o Tópico e retirado as respostas aonde tinham os palavrões, sinto muito, mas vou continuar a retirar as respostas que tiverm palavrões, e não importa de quem seja Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted September 1, 2008 Report Share Posted September 1, 2008 nao concordo Vagner Wirts, pois vc deferia ter pintado o nome administrador de outra cor. topico fechado. goodbye cruel world kkkkkkkkk Quote Link to comment Share on other sites More sharing options...
vagner Posted September 1, 2008 Report Share Posted September 1, 2008 Não sei com o que vc não concorda , eu na minha casa, ninguém fica xingando o outro nem por brincadeira , respeito é muito bom , e todo mundo gosta Quanto a cor, não sei qual vc escolheria pra vc, porém, acho q uma cor é somente uma cor , não é definida pelo sexo da pessoa (se foi a sua intenção ) Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted September 1, 2008 Report Share Posted September 1, 2008 eu prefiro rosa e tu? parece um coelhinho todo afobado Quote Link to comment Share on other sites More sharing options...
vagner Posted September 1, 2008 Report Share Posted September 1, 2008 Bom, infelizmente para vc, isso não me afeta , por isso não terá mais respostas minha pelo menos ao que se refere a isso , se precisar de auxilio para programação com certeza (e se eu puder) o farei, caso contrário ... , só não julgue as pessoas, isso é uma coisa muito feia e que aprendi a muito tempo com minha mãe , são coisas que vem de berço e não que se aprende na rua Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted September 1, 2008 Report Share Posted September 1, 2008 esse eh daqueles q faz confusão em mesa de bar. daqui a pouco vou conhecer a familia dele toda. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 1, 2008 Report Share Posted September 1, 2008 citação:esse eh daqueles q faz confusão em mesa de bar. daqui a pouco vou conhecer a familia dele toda. id=quote>id=quote>Terás excelente oportunidade de conhecer TODA A FAMILIA FIVEWIN, em NOVEMBRO/2008. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=13673 Serás muito bem vindo. EVENTUALMENTE, ESTE ANO, POR MOTIVOS DE FORÇA MAIOR, O SEXTO ENCONTRO DE FIVEWINNERS, SERà ORGANIZADO, PELO SENHOR GILMER TAVARES, DA VIRTUAL OBJECTS INFORMATICA. Virtual Object Informática Ltda. Fone/Fax: (15)3231-6840 COM COLABORAÇÃO, DO DEMAIS MEMBROS DO FORUM. VAGNER WIRTS JOSÉ CARLOS VALDIR BRANDO PAULO ARAUJO JOÃO SANTOS. EVANDRO ALEXANDRE PEREIRA. ESPERO, COM FÉ EM DEUS, QUE ESTE ANO, SEJA MELHOR QUE O DO ANO PASSADO, QUE FOI SEM SOMBRA DE DÚVIDAS, UM ´ESTOURO´. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted September 1, 2008 Report Share Posted September 1, 2008 VAGNER WIRTS JOSÉ CARLOS VALDIR BRANDO PAULO ARAUJO JOÃO SANTOS. EVANDRO ALEXANDRE PEREIRA eh soh vcs 7 e com faca!! peraÃ... chamar meu irmão aqui. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 1, 2008 Report Share Posted September 1, 2008 citação:VAGNER WIRTS JOSÉ CARLOS VALDIR BRANDO PAULO ARAUJO JOÃO SANTOS. EVANDRO ALEXANDRE PEREIRA eh soh vcs 7 e com faca!! peraÃ... chamar meu irmão aqui. id=quote>id=quote>KKKKKKKKKKKKKKKKK. Você é um barato kara, relaxe, aqui somos todos SUPER AMIGOS, e com certeza, serás também. Sempre fostes BEM TRATADO aqui, não foi? Continuará... Dica: Quando for brincar, coloque um PS := Brincadeirinha. Cada um, tem uma PERSONALIDADE DIFERENTE, e um GENIO DIFERENTE. Gostaria muito que voce VIESSE AO SEXTO ENCONTRO DE FIVEWINNERS, você vai gostar, principalmete, BEBER BRAHMAS ATÉ AS 3:00hs DA MADRUGADA... Topás??? Abraços, e não extresse. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
soares289 Posted September 1, 2008 Report Share Posted September 1, 2008 Legal, proximo encontro ja ta marcado =] Estou lá =] E... Se o pré encontro for perto de casa, como o ano passado, também estarei lá =] Se depender de mim, o VI Vai ser um ´ESTOURO´. Abre um topico ae sobre isso =] Abraços! E No Strees pessoal! Coding 4Fun, 4Cash, 4Knowleage Carlson A. Soares - SP - SP email: soares_289@hotmail.com FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD São Paulo - SP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 1, 2008 Report Share Posted September 1, 2008 citação:Legal, proximo encontro ja ta marcado =] Estou lá =] E... Se o pré encontro for perto de casa, como o ano passado, também estarei lá =] Se depender de mim, o VI Vai ser um ´ESTOURO´. Abre um topico ae sobre isso =] Abraços! E No Strees pessoal! Coding 4Fun, 4Cash, 4Knowleage Carlson A. Soares - SP - SP email: soares_289@hotmail.com FiveWin 7.05 - xHarbour 0.99.61 - SQLRDD São Paulo - SP id=quote>id=quote>Carlson, respondo aqui, ESTE ANO, quem decidirár onde vai ser NÃO SOMENTE O PRÉ-ENCONTRO, BEM COMO O ENCONTRO OFICIAL, será o senhor GILMER TAVARES, espero, que do ALTO DE SUA SABEDORIA, (peguei pesado, heim??-> kkkk), ELE ESCOLHA FAZER OS DOIS EVENTOS, PRÉ E ENCONTRO, EM SÃO PAULO, ya que no me gusta GUARULHOS... Mas, o que ELE DECIDIR, tá decidido... DEMOCRACIA, É ISSO. Cabe a ele, COMBINAR, com VAGNER WIRTS. Abraços, GRANDE INTELIGENCIA DO FIVEWIN BRASIL. SEXTO ENCONTRO NOVEMBRO/2008??? É NÓIS NA FITA E NO DVD... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
personal Posted September 1, 2008 Report Share Posted September 1, 2008 Sabia que na polÃtica tudo acaba em PIZZA. Mas o forum FW, tudo acaba em BRAHMAS.... Só aqui mesmo. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.