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;
Espero ter ajudado.
----- Original Message -----
From: "info.suporte" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, October 14, 2004 1:32 PM
Subject: [delphi-br] Alguem pode me ajudar?????
Como faço para criar uma rotina que avise se o programa já está aberto.
Olhei vários exemplos, testei e nenhum desles me satisfez, todos deixaram o
programa entrar mais de uma vez.
PAULO FERNANDES
PORTO ALEGRE RS
[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
--
<<<<< 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
