Fórum Travar aplicativo via Rede... #183015

Prezado colega:
Verifique o que segue abaixo.
Este procedimento permitirá apenas uma execução do seu aplicativo.
Assim sendo, com este procedimento, seu cliente precisará que o aplicativo esteja instalado em todas as estações, utilizando o mesmo BD do seu servidor.

uses
Forms,
Windows,
Dialogs,
Form1 in ´Form1.pas´ ;

{$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(´Este sistema já está em execução. Você não pode executar outra cópia´, mtError, [mbOK], 0);
Application.Terminate;
Application.CreateForm(Tform1, Form1);
Application.Run;
end

MMTOOR2003