Olhe, essa pergunta já foi respondida pelo Fabio Giro ... antes de perguntar,
olhem primeiro no histórico da lista, pelo menos a parte mais recente ...
Coloque a rotina no project do seu applicativo, e modifique-a como quiser ...
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;
"Louco sim, não normal.
Ser humano ... eu mesmo"
Vitor Luiz Redes
------------------------------------
Redsystem Informática
----- Original Message -----
From: Rogerio
To: Delphi Grupo
Sent: Tuesday, October 19, 2004 12:33 AM
Subject: [delphi-br] jah esta aberto
Pessoal,
De alguma forma posso saber se o meu sistema jah esta em execução "aberto"? Para que
o usuario nao possa abri-lo outra vez... Caso alguem tenha uma dica/ajuda.
Rogerio.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
