Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 16 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Mensagem por AJC em 10/3/2014, 20:22

Pessoal estou com um problema tento travar para que meu sistema
não abra pela segunda vez na mesma maquina, uso

Código:
*!* Local lnWinHandle
*!* Declare Integer FindWindow In Win32API Integer, String
*!* lnWinHandle = FindWindow( 0, _screen.caption)
*!* MESSAGEBOX(lnWinHandle)
*!* If lnWinHandle # 0
*!* =Messagebox( "O aplicativo já está sendo executado!",16, 'Sistema de Gestão de Transportadoras'+" --> Empresa autorizada: "+vempresa+" -->Usuário autorizado: "+lcUser )
*!* clear events
*!* QUIT
*!* Endif

mas de todos os testes não consigo mostra sempre resultado positivo ou seja diferente de zero e o sistema continua abrindo 2 vezes, alguem
sabe outra maneira de resolver esta situação.

Antonio
avatar
AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Mensagem por Marcos Guedes em 13/3/2014, 20:45

Antonio, temos alguns exemplos deste no fórum.
Dá uma pesquisada, por favor.

Um das formas seria você criar uma tabela temporária e abrí-la em modo exclusivo ao iniciar a aplicação.

Você coloca um tratamento de exceção e, se a tabela já estiver em uso, você poderá evitar o carregamento da apliação.

Abraços!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido RESOLVIDO

Mensagem por AJC em 15/3/2014, 18:27

Valeu Marcos, li sua idéia, mas com .dbf não deu muito certo devido
eu usar close databases em alguns formularios. Obrigado.

mas pesquisando consegui uma função pela net e aprimorei alguns detalhes.
aqui vai.

FUNCTION TRAVA_AB
*!* arqexe="Acrobat.exe"
*!* =trava_ab(arqexe)

LPARAMETERS yexe

LOCAL loWMI, lcQuery, loResult, loProcess

loWMI = GETOBJECT("winmgmts://")
lcQuery = '"select * from win32_process where name='+"'"+yexe +"'"+ ' "'
aa=&lcQuery
loResult = loWMI.ExecQuery(m.aa)
IF loResult.COUNT>1
MESSAGEBOX('O Sistema já está aberto, VERIFIQUE! ',0+16,'Atenção')
CLEAR EVENTS
QUIT
ENDIF

ENDFUNC
avatar
AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Mensagem por rrfsistemas em 17/3/2014, 15:02

AJC eu uso a seguinte  função e nunca tive problemas :
Código:

_SISTEMA = "SGB - 1.00.0"
Declare Integer FindWindow In WIN32API String, String
Declare Integer BringWindowToTop In WIN32API Integer
Declare Integer IsWindow In WIN32API Integer
WPREV = FindWindow(0, _SISTEMA)
If (IsWindow(WPREV)<>0)
 = BringWindowToTop(WPREV)
 = Messagebox('O SISTEMA JÁ ESTÁ EM USO NESTE COMPUTADOR !!!', 000, 'Atenção')
 QUIT
Return
Endif
Release WPREV
Clear Dlls

rrfsistemas
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Mensagem por Marcos Guedes em 17/3/2014, 20:47

AJC, esqueci de dizer que, no exemplo que citei, a tabela precisa ser FREE.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: SISTEMA ABRINDO MAIS DE UMA VEZ WIN7

Mensagem por AJC em 17/3/2014, 21:33

Valeu Marcos, estou testando esta idéia também.
Obrigado.
avatar
AJC
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum