como tavar abertura

flpcrz · January 17, 2007

pessoal, descobri que o programa pode abrir mais de uma cÃ³pia no mesmo micro como travar para que abra somente uma vez...

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

flpcrz · January 17, 2007

pessoal, descobri que o programa pode abrir mais de uma cÃ³pia no mesmo micro como travar para que abra somente uma vez...

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

betovsp · January 17, 2007

citaÃ§Ã£o:
pessoal, descobri que o programa pode abrir mais de uma cÃ³pia no mesmo micro como travar para que abra somente uma vez...

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

id=quote>id=quote>

Felipe:

IF IsExeRunning( "Pbtmk32.Exe" )

MsgStop( "Este programa jÃ¡ estÃ¡ aberto neste computador!", "ImpossÃvel Continuar!" )

RETURN(.F.)

ENDIF

AbraÃ§os.

Beto

Msn: betovsp@hotmail.com

Skype: betovsp

Alternativo: betovsp@terra.com.br

CL53B + FW2.0d + @ SAY/GET + BLINKER 7

RibeirÃ£o Preto/SP

flpcrz · January 17, 2007

flw beto, foi o que eu fiz

IF(IsExeRunning("meuprogram.exe") )

MsgStop("O programa jÃ¡ se encontra aberto","AtenÃ§Ã£o!!!")

Return(.f.)

EndIf

agora nÃ£o estou conseguindo fazer com que mostre a tela novamenete e nem que o botÃ£o na barra de tarefas fique piscando, tem como?

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

Editado por - flpcrz on 17/01/2007 12:16:10

ricardom1361303566 · January 17, 2007

FaÃ§o assim:

......

.......

cTitulo:= "Programa Tal" ( titulo exato usado no progama)

oWnd:=FindWindow( 0, cTitulo )

if oWnd!=0

MsgAlert("O programa jÃ¡ se encontra aberto.","AtenÃ§Ã£o!!!")

BringWindowToTop( oWnd )

Return(.f.)

endif

..........

........

DEFINE WINDOW oWnd ;

TITLE cTitulo ICON oIcon ;

MENU BuildMenu()

........

Ricardo

FW2.4 - WS

ricardomouramarques · January 17, 2007

Colega,

Apenas coloque essa linha no seu sistema:

SET MULTIPLE OFF

Ricardo.

Ricardo Marques

flpcrz · January 17, 2007

opa, vlw pessoal, mas nÃ£o deu certo

Ricardo Marques, nÃ£o funcionou o set mutiple

Ricardo funcionou mas da mesma forma que IsExeRunning()

ainda continuo sem enteder???? nÃ£o tem como subir a tela novamente?

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

ricardomouramarques · January 17, 2007

Felipe,

Sempre uso SET MULTILE ON ou OFF, conforme o caso e, funciona direitinho... Deve haver alguma coisa que estÃ¡ gerando eese problema.

- Vc estÃ¡ rodando o sistema sobre qual plataforma?

- DÃ¡ pra enviar um pedaÃ§o do cÃ³digo pra gente analizar?

Ricardo.

Ricardo Marques

ricardom1361303566 · January 17, 2007

Felipe,

No meu exemplo, acrescente:

if oWnd!=0

MsgAlert("O programa jÃ¡ se encontra aberto.","AtenÃ§Ã£o!!!")

BringWindotoTop( oWnd )

ShowWindow( oWnd, 3 ) // <=====

Return(.f.)

endif

Deve funcionar

Ricardo

flpcrz · January 17, 2007

- Vc estÃ¡ rodando o sistema sobre qual plataforma?

WINXPSP2

- DÃ¡ pra enviar um pedaÃ§o do cÃ³digo pra gente analizar?

SET(4,"dd/mm/yyyy")

SET DELETED ON

SET EPOCH TO 1930

SET EXCLUSIVE OFF

SET 3DLOOK ON

IF(IsExeRunning("SIG.EXE") )

MsgStop("O programa jÃ¡ se encontra aberto","AtenÃ§Ã£o!!!")

Return(.f.)

EndIf

DEFINE ICON oIcoSig RESOURCE "ASIG"

DEFINE CURSOR oCurSig RESOURCE "CUR"

DEFINE FONT oFntSig1 NAME "Tahoma" SIZE 0,-14 ITALIC

DEFINE FONT oFntMn1 NAME "Verdana" SIZE 0,IF(oInfo:lTamMenu,-16,-14) BOLD ITALIC

DEFINE WINDOW oWSig FROM 0,10 TO 500,650 PIXEL TITLE cTitulo ICON oIcoSig MENU CriaMenu()

...

..

ACTIVATE WINDOW oWSig MAXIMIZED ON PAINT (Textura(oWSig,{nRgb(212,208,200),nRgb(255,255,255)}),SayBitmaps(oWSig))

(GlobalFree(),ResAllFree(),FreeResources(),SysRefresh())

RETURN(NIL)

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

ricardomouramarques · January 17, 2007

Ã‰ realmente um mistÃ©rio...

EntÃ£o vamos Ã s espertÃases...

uma idÃ©ia: faÃ§a um outro programa para chamar o seu.exe.. mais ou menos assim:

//---------------------------------------------------------

Function main()

IF !IsExeRunning("meuprogram.exe")

WinExec( "meuprogram.exe" )

EndIf

Return NIL

//--------------------------------------------------------

toda vez que vc executar esse programa, ele verificarÃ¡ seu o seu.exe estÃ¡ ou sÃ£o aberto...se nÃ£o estiver ele abre, caso contrÃ¡rio ele nÃ£o faz nada e simplesmente acaba..

FaÃ§a sempre as chamada atravÃ©s desse programa. Mire link nele e pronto.

Ricardo Marques

viol · January 17, 2007

Ã‰... o que funcionou aqui foi o que o Beto postou.

viol

flpcrz · January 18, 2007

e ai pessoal fiz as recomendaÃ§Ãµes e nada... Viol o seu Ã© em 32 bits com xharbour?, pois conversando com um amigo ele disse que o dele que Ã© clipper/fw nÃ£o precisa disso, serÃ¡ que Ã© algo na compilaÃ§Ã£o que deixa abrir outro?

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

vagner · January 18, 2007

OlÃ¡,

Aproveitando a dica do Beto e a minha para pegar o diretÃ³rio, acabei montando uma funÃ§Ã£o genÃ©rica para isso, ou seja, basta vc colocar em uma lib ou prg padrÃ£o, sem precisar ficar mudando o nome do programa toda hora

Func Ativo()

cNomeProg := GetModuleFileName( GetInstance() )

nPos := Rat("\",cNomeProg)

cNomeProg := SubStr(cNomeProg,nPos+1,Len(cNomeProg)-nPos)

If IsExeRunning( cNomeProg )

MsgStop( "Este programa jÃ¡ estÃ¡ aberto neste computador!", "ImpossÃvel Continuar !" )

Retu(.T.)

Endif

Retu(.F.)

id=code>id=code>

e Testar no Programa

Func Main()

....

If Ativo()

Exit

Endif

....

id=code>id=code>

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5

jc · January 18, 2007

Pessoal... meu sistema jÃ¡ utilizava o isExeRunning() com perfeiÃ§Ã£o, mas alterei meu cÃ³digo para utilizar os recursos apresentados aqui nesse tÃ³pico e assim ficou:

IF isExeRunning( aSIS_DadosSistema["nome_executavel"] )

oWnd := findWindow( 0, aSIS_DadosSistema["titulo_sistema"] )

IF oWnd <> 0

msgStop("O Sistema jÃ¡ estÃ¡ sendo executado nesse computador." + CRLF + CRLF + "NÃ£o serÃ¡ possÃvel executar uma nova CÃ³pia!", "AtenÃ§Ã£o!")

bringWindowToTop( oWnd )

showWindow( oWnd, 3 )

ENDIF

RETURN( .F. )

ENDIF

Funcionou com exatidÃ£o perfeita! Ele dÃ¡ o aviso, finaliza a nova instÃ¢ncia e maximiza o que estava minimizado!!

Valeu galera!@

Diretor de Tecnologia

RS Consultores Ltda.

Fone: (81) 4009.5444

Fax: (81) 4009.5400

E-mail: julio.mferreira@gmail.com

MSN: julio_mferreira@hotmail.com

Recife - PE

FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113

jc · January 18, 2007

Corrigindo o trecho para melhor visualizar....

IF isExeRunning( aSIS_DadosSistema["nome_executavel"] )

oWnd := findWindow( 0, aSIS_DadosSistema["titulo_sistema"] )

IF oWnd <> 0

msgStop("O Sistema jÃ¡ estÃ¡ sendo executado nesse computador." + CRLF + CRLF + "NÃ£o serÃ¡ possÃvel executar uma nova CÃ³pia!", "AtenÃ§Ã£o!")

bringWindowToTop( oWnd )

showWindow( oWnd, 3 )

ENDIF

RETURN( .F. )

ENDIF

id=code>id=code>

Diretor de Tecnologia

RS Consultores Ltda.

Fone: (81) 4009.5444

Fax: (81) 4009.5400

E-mail: julio.mferreira@gmail.com

MSN: julio_mferreira@hotmail.com

Recife - PE

FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113

flpcrz · January 18, 2007

vlw a todos, mas na minha maquina nÃ£o funciona, eu percebo que o botÃ£o da uma "mexida" mas nÃ£o acontece nada, sÃ³ nÃ£o deixa entrar, que jÃ¡ Ã© bom isso, entÃ£o vou testar em outra maquina para ver o que acontece e reporto para vcs, obrigado a todos.

Felipe Cruz.

Santo Andre-SP

FiveWin 2.7 / XHarbour 0.99.60 (SIMPLEX) / Clipper 5.3b / BCC55 / Pelles C / xDev

como tavar abertura

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation