Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 18 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 48 mensagens em 25 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