Fabio na primeira execução ele já informa a mensagem...
Fábio não é possível ler a lista de processos do S.O. e ver se está
listado o executável, na verdade eu tinha isso em outro programa mais
perdi os fontes. De qualquer forma brigadão.
escreveu
> program Project1;
> uses
> Forms,
> Windows,
> Dialogs,
> Unit1 in 'Unit1.pas' {Form1};
> {$R *.RES}
> Var
> HprevHist : HWND;
> begin
> Application.Initialize;
> HprevHist := FindWindow(Nil, PChar('project1.exe'));
> if HprevHist = 0 then
> begin
> Application.Title := 'project1.exe';
> Application.CreateForm(TForm1, Form1);
> Application.Run;
> end
> else
> MessageDlg('Você não pode executar outra cópia do aplicativo',
> mtInformation, [mbOK], 0);
> end;
> Com esse código o usuário pode iniciar uma nova copia do aplicativo
somente
> se não houver outra anterior. Caso contrario é exibido uma mensagem
para o
> usuário.
>
> Espero ter ajudado.
>
> ----- Original Message -----
> From: "delphi6_2005" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Tuesday, August 30, 2005 10:29 AM
> Subject: [delphi-br] Não permitir inciar o mesmo programa 2 vezes
>
>
> Amigos como posso verificar se o executável está em "execução" e não
> permitir iniciá-lo novamente.
>
> Agradeço
>
> Paulo
>
>
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
--
<<<<< 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] ou [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
