Olá Kamishiro... tudo bom?
O Cândido já tinha me passado um código semelhante que também funciona 100%.
De qualquer forma, muito obrigado pela atenção.
----- Original Message -----
From: "Kamishiro Maiku" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, March 30, 2006 11:07 AM
Subject: Re: RES: [delphi-br] Impedir Que A Aplicação Abra Duas Vezes
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]
--
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
--
<<<<< 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
