Vá no projeto do seu programa:
program Teste;
uses
Forms,
Windows,
TesteM in 'TesteM.pas' {TesteFM};
{$R *.RES}
var hd: THandle;
begin
hd:= FindWindow('TApplication','Teste_');
If hd = 0 then
begin
Application.Title:= 'Teste_';
Application.Initialize;
Application.CreateForm(TTesteFM, TesteFM);
Application.Run;
end;
end.
Rafael Amantéa Mogone <[EMAIL PROTECTED]> escreveu:
Bom dia,
Para isso, existe um componente do pacote LMD que se chama LMDOneInstance.
Abraços,
Rafael Amantéa Mogone
Programador Delphi + FireBird
Bauru / SP
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Cleiton
Enviada em: terça-feira, 28 de março de 2006 09:29
Para: Delhpi
Assunto: [delphi-br] Impedir Que A Aplicação Abra Duas Vezes
Olá pessoal...
É possível impedir que a minha aplicação seja aberta duas vezes no mesmo
computador? Sendo a mesma trabalha em rede, puchando um atalho do .exe da
aplicação do servidor para a estação.
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12fc35r7n/M=403524.8192508.9006231.1588051/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1143556867/A=3254979/R=0/id=noscript/SIG=12k5
j3olb/*http:/www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E
87847EEEBE_3>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do <http://br.yahoo.com/info/utos.html> Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
Pote the God of Destruction.
A knight of Lucifer.
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
