Oi Cândido... beleza?
Seguinte: eu testei o código que você me passou para que a aplicação não
seja aberta duas vezes na mesma máquina.
Olha só... fuciona tanto local como em rede viu.
Testei utilizando em 3 máquinas ao mesmo tempo. Não sei se poderá ocorrer
algum problema se tiver mais máquinas do isso, mas a princípio acho que não
terá problema algum.
Valeu pela dica amigão.
Um grande abraço
Cleiton
----- Original Message -----
From: "Cândido Luís Dias Ferreira" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, March 28, 2006 7:38 PM
Subject: Re: [delphi-br] Re: Impedir Que A Aplicação Abra Duas Vezes ->
Marcos André
Na mesma máquina o código abaixo funciona, mas não sei se em rede...
Atenciosamente
Cândido Luís Dias Ferreira
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
mHandle: THandle;
implementation
{$R *.dfm}
initialization
mHandle := CreateMutex(nil, True, 'Teste');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Messagedlg('A aplicação "Teste" já está em funcionamento.',
mtInformation, [mbOk],0);
halt;
end;
finalization
if mHandle <> 0 then CloseHandle(mHandle)
end.
----- Original Message -----
From: Cleiton
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 28, 2006 6:57 PM
Subject: [delphi-br] Re: Impedir Que A Aplicação Abra Duas Vezes -> Marcos
André
Oi Marcos... blz?
Cara... eu instalei o pacote de componentes jedi que você sugeriu.
No entanto, estou com dois probleminhas.
Primeiro: instalou um punhado de componentes dos quais não sei nem por
onde
começar usar. São tantos... e ainda nem sei o que eles podem fazer. Você
por
acaso não teria algum material de apoio que ajudasse a usar esses
componentes?
Segundo: comecei a usar alguns desses componentes pra tentar descobrir o
que
eles fazem mas qualquer um que tento usar dá o seguinte erro: could not
create output file build JvWin32.dcu
Você por acaso não saberia como resolver esse pequeno detalhe?
Um grande abraço
cleiton
----- Original Message -----
From: "Marcos André" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, March 28, 2006 12:45 PM
Subject: Re: [delphi-br] Impedir Que A Aplicação Abra Duas Vezes
> Bom como o LMD é pago,
> existe um componente semelhante no pacote de componentes JEDI....
>
> tente baixar é muito interessante...
>
> vc encontra o link em www.e-easy.com.br na parte de programação....
>
>
>
> Abraços
> Marcos André
> Analista de Sistemas
> www.e-easy.com.br
> ----- Original Message -----
> From: "Rafael Amantéa Mogone" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Tuesday, March 28, 2006 12:04 PM
> Subject: RES: [delphi-br] Impedir Que A Aplicação Abra Duas Vezes
>
>
> 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.
--
<<<<< 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
