Veja como abrir apenas uma cópia do aplicativo. Ou seja, quando o aplicativo já está aberto é possível impedirmos a execução do mesmo aplicativo outra vez.

No fonte do projeto (arquivo DPR) faça o seguinte: Na cláusula "uses" adicione (logo após o "Forms") a unit "Windows". Antes do "begin" coloque: var   Handle: THandle; Logo após o "begin" e antes de qualquer coisa, coloque: begin   Handle := FindWindow('TFrm_Main', nil);   if Handle <> 0 then begin      if not IsWindowVisible(Handle) then         ShowWindow(Handle, SW_RESTORE);      SetForegroundWindow(Handle);      Exit;   end; No lugar de "TFrm_Main" é necessário colocar o nome do primeiro formulário que é criado (precedido de "T", obviamente).

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.00
Data.........: 07/03/2005 16:16:29
Visualizado..: 2223 vezes
Fonte........: Marcelo Torres