Opa Banilo, que bom que deu certo, sucesso ae.
Em 17/04/07, Danilo Marques <[EMAIL PROTECTED]> escreveu:
>
> Eduardo muito obrigado pela sua dica ... deu certo.
>
> Otima dica ...
>
> Danilo
>
> -----Mensagem Original-----
> From: "Eduardo Silva dos Santos" [EMAIL PROTECTED]<eduardo.drd%40gmail.com>
> Date: Tue, 17 Apr 2007 21:42:17 -0300
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.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]<claudio%40o2tecnologia.com.br>>
> 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] <eduardo.drd%40gmail.com>
> > 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
>
>
>
--
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]
