Travar aplicativo via Rede...
E aí pessoal...
Como faço para meu executável não rodar via rede?
Ou seja, para ele rodar, teria que estar instalado na propria máquina...
Como faria?
Como faço para meu executável não rodar via rede?
Ou seja, para ele rodar, teria que estar instalado na propria máquina...
Como faria?
José Alves
Curtidas 0
Respostas
Mmtoor
19/09/2003
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
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
GOSTEI 0