Saber se um prog. esta carregado na memória

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Bisteca
Usuário Nível 2
Usuário Nível 2
Mensagens: 74
Registrado em: 10 Jan 2005 10:25

Saber se um prog. esta carregado na memória

Mensagem por Bisteca »

Alguém sabe como faço para saber se um arquivo .sys esta carregado na memória?
Preciso saber se o arquvi sersweda.sys esta carregado na memória, antes de iniciar o programa de vendas.
Obrigado a todos
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Vou te dar uma idéia, que recebi do Dudu, para verificar se houve erro de envio usando o Blat. Veja só:

Function Chk_mem
local v_erro,v_tela:= savescreen(25,15,27,64)
Run Mem/c > mem.log
v_Erro:=MEMOREAD("MEM.LOG")
IF AT("sersweda",v_Erro)>0
@ 26,16 say padc("Dispositivo não instalado, verifique",47) colo "w+/b"
tone(222,8)
inkey(3)
restscreen(25,15,27,64,v_tela)
endif
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
alaminojunior
Colaborador
Colaborador
Mensagens: 1717
Registrado em: 16 Dez 2005 21:26
Localização: Ubatuba - SP

Mensagem por alaminojunior »

Opa, corrigindo...

Na linha " IF AT("sersweda",v_Erro)>0 "

Ao invés de usar o sinal > (maior que) use = (igual a)

Desculpe. -:]
Compilador xHarbour 1.2.3 + Embarcadero C++ 7.30
MySQL c/ SQLRDD
HwGui + GTWVG
Avatar do usuário
Bisteca
Usuário Nível 2
Usuário Nível 2
Mensagens: 74
Registrado em: 10 Jan 2005 10:25

ajuda

Mensagem por Bisteca »

Valeuzaço, vou começar agora.
Obrigado
Responder