Eduardo muito obrigado pela sua dica ... deu certo.
Otima dica ...
Danilo
-----Mensagem Original-----
From: "Eduardo Silva dos Santos" [EMAIL PROTECTED]
Date: Tue, 17 Apr 2007 21:42:17 -0300
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Abrindo apenas uma aplicação
> tente isso no DPR do seu projeto,
>
>
> program Project1;
>
> uses
> Forms,
> Windows,
> Dialogs,
> Unit1 in 'Unit1.pas' {Form1};
>
>
> {$R *.RES}
>
>
> Var HprevHist : HWND;
>
> begin
> Application.Initialize;
>
> HprevHist := FindWindow(Nil, PChar('TheProgrammer'));
>
> if HprevHist = 0 then begin
> Application.Title := 'TheProgrammer';
> Application.CreateForm(TForm1, Form1);
> Application.Run;
> end else
> MessageDlg('Você não pode executar outra cópia do aplicativo',
> mtInformation, [mbOK], 0);
>
> end.
>
>
>
> Em 17/04/07, Claudio O2 <[EMAIL PROTECTED]> escreveu:
> >
> > Amigo, o pacote de componentes da LMD tem um que faz isso. É o
> > TLMDOneInstance.
> > Rápido e fácil.É só ativá-lo e pronto. Toda vez que você for abrir algum
> > executável ele verifica se já não tem uma instância do mesmo e se tiver
> > dá mensagem que já existe e aborta a nova abertura.
> >
> > []´s
> >
> > Danilo Marques escreveu:
> > >
> > > Pessoal estou desenvolvendo uma aplicação e não posso deixar o usuario
> > > abrir a aplicação quantas vezes ele quiser ,se ja tiver uma aplicação
> > > rodando apresenta a mensagem ao usuario que ja existi uma aplicação
> > > aberta.
> > >
> > > Ex.: O usuario abre a aplicação e minimiza para a bandeja do sistema
> > > ao lado do relogio e esquece , a hora que ele vai abrir de novo a
> > > aplicação ela deve apresentar uma mensagem que ja esta aberta e não
> > > abrir , forçando o usuario assim abrir a que esta minimizada na bandeja.
> > >
> > > Se alguem pode me ajudar agradeço ,
> > >
> > >
> > >
> > >
> > >
> > >
> > > Danilo Molina
> > > Grupo B Aplicativos - www.grupob.info
> > > 3724-5401 / 81165257
> > >
> > >
> >
> > --
> >
> >
>
>
>
> --
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED]
> Site: http://www.drdsistemas.com/
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
Danilo Molina
Grupo B Aplicativos - www.grupob.info
3724-5401 / 81165257
