contole de acesso ao sistema

Question

Ol� pessoalNecessito 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 in...

Nildo · Answer

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.

F�rum contole de acesso ao sistema #202558