quot;Operação ilegalquot; Após acessar DLL e fechar o sist

Delphi

10/07/2003

Estou com alguns problemas...
Tenho uma DLL para fazer login em meus sistemas. Nesta dll existe uma função que retorna algo (no caso do aplicativo em questão retorna uma string)... após o sistema verifica se o resultado do retorno é vazio, se não for entra no sistema da seguinte forma:

[color=green:d251fbd0e9] gsPerfil := acesso;
if gsPerfil <> ´´ then
begin
// Application.Initialize;
Application.Title := ´Maxi - Multilab Medicamentos´;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;
end
else
Application.Terminate;[/color:d251fbd0e9]

No sistema, a segurança é feita com uma função que tem como parâmetro a variavel gsPerfil... deixando ou não o usuário entrar dependendo das atribuições dele...

Mas se eu faço o login e logo em seguida tento sair do sistema sem entrar em nenhuma outra tela o sistema avisa que ocorreu uma operação ilegal e será fechado... Mas se ao fazer o login e entrar em alguma tela que utilize a variável gsperfil para validar o usuário.. o erro de operação ilegal não acontece.

Alguém sabe o que posso fazer para solucionar este problema?

Obrigado!


Nando

Nando

Curtidas 0
POSTAR