contole de acesso ao sistema

Delphi

22/12/2003

Olá pessoal

Necessito de um auxilio, tenho um sistema rodando tranquilamente em 6 clientes, em um cliente tem u usuário afim de criar problemas. Uma das tecnicas dele é ficar abrindo varios pogramas inclusive o meu sistema em duplicidade, tripl, quat..... Até començar a dar pau de memória ou se perder. Tem alguma função que eu possa executar para controlar se o programa já esta aberto? Ou quanto de memória ainda tem livre, Qualquer sugestão para que eu possa me previnir?

Aguardo colaborações
Mariah


Mariah

Mariah

Curtidas 0

Respostas

Nildo

Nildo

22/12/2003

Tem uma forma de verificar se seu sistema já está aberto:

Isso você coloca lá no seu .DPR, onde se cria os formulários:

var
   OtherWnd: THandle;
begin
   OtherWnd  := FindWindow( nil, ´Seu programa´);

   if OtherWnd = 0 then
   begin
      Application.Initialize;
      Application.Title := ´Seu programa´;
      // Cria todos os formularios
      Application.Run;
   end
   else
   begin
      ShowWindow(OtherWnd , SW_Show); // Se já estiver abrto entao mostra a janela

      if IsIconic(OtherWnd) then // Se estiver minimizado
         ShowWindow(Otherwnd , SW_Restore) // Entao restaura
      else
         SetForegroundWindow(Otherwnd); // Senao apenas traz pra frente.
   end;
end.



GOSTEI 0
POSTAR