aldreks Posted October 13, 2007 Report Share Posted October 13, 2007 Pessoal, como fazer para impedir q o usuário carregue mais de uma vez na mesma estação, o executável? No aguardo! ------------------------- Email/msn: aldreksa@hotmail.com xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5 (Recife-PE) "O perdão ainda é a maior prova de amor!" Quote Link to comment Share on other sites More sharing options...
aldreks Posted October 13, 2007 Author Report Share Posted October 13, 2007 Pessoal, como fazer para impedir q o usuário carregue mais de uma vez na mesma estação, o executável? No aguardo! ------------------------- Email/msn: aldreksa@hotmail.com xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5 (Recife-PE) "O perdão ainda é a maior prova de amor!" Quote Link to comment Share on other sites More sharing options...
evandro Posted October 13, 2007 Report Share Posted October 13, 2007 Olá, if oWuser!=0 BringWindowToTop( oWuser ) Return(.f.) endif DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 TITLE cTitulo MENU GeraMenu(oMenu ) ICON oIco id=code>id=code>[]s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib V ENCONTRO FIVEWIN - NOVEMBRO/2007 - EU VOU "TRAVÊIS" Quote Link to comment Share on other sites More sharing options...
mkyx Posted October 13, 2007 Report Share Posted October 13, 2007 Tente também assim: Depois do Function Main(), coloque . . . FUNCTION MAIN() IF ISEXERUNNING("NOMEDOPROGRAMA.EXE") MSGINFO("O programa ja esta em execucao!","Atencao:") return .t. endif . . . Pompeo Guaratinguetá SP mkyx@ig.com.br www.adentech.com.br/megabonus www.rmahost.com fw 2.4 xh 0.99.5 Quote Link to comment Share on other sites More sharing options...
aldreks Posted October 20, 2007 Author Report Share Posted October 20, 2007 Obrigado amigos. Problema resolvido graças a vossa ajuda! Abraços! ------------------------- Email/msn: aldreksa@hotmail.com xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5 (Recife-PE) "O perdão ainda é a maior prova de amor!" 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.