Buscar por:

Executando uma única cópia do aplicativo

Código

{Se você quiser executar uma única copia do aplicativo, o código de inicialização do arquivo fonte do PROJETO pode ser escrito conforme segue: }

program Project1; 

uses 

  Forms, 

  Windows, 

  Dialogs, 

  Unit1 in 'Unit1.pas' {Form1}; 

{$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('Você não pode executar outra cópia do aplicativo', mtInformation, [mbOK], 0); {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.}