Funcao de Validar Sistema

[m@r<3|o]

Pessoal , mudei uns codigos e preciso atualizar meu PRG ou Funcao de Validar Sistema
só que não pode ser na _screen pq a screen é sempre diferente

validar com outra forma

Abs

[Marcos Guedes]

Detalha mais o que estais querendo, Morcego.

[Julio]

Este codigo é para ver se a aplicação esta aberta, usada em VFP60

Código:

Declare Integer FindWindow In Win32API Integer, String
lnHandleApli = FindWindow( 0, "Sistema de Controle" )
If lnHandleApli # 0
  =MessageBox("A Aplicação já se encontra aberta. "+Chr(10) + ;
    "Por questões de segurança não é permitido abri-la "+;
    "novamente.", 0+64, "Verifique na Barra de tarefas.")
  Quit
Endif

Não sei se funciona nas versões atuais. Acho que aqui na PB deve ter algo mais atual.

[Marcos Guedes]

Ah... se for isto... dá uma olhada também em funções interessantes que têm alguns códigos lá.