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]
