Eu uso assim: no Project, dpr...
uses
Forms,
Jpeg,
SysUtils,
MidasLib,
Windows,
Dialogs,
Messages,
Classes,
var
MutexHandle: THandle;
function OneInstanceAndRunning: Boolean;
begin
Result := false;
if (MutexHandle <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
begin
Como faço para evitar executar + de uma copia do aplicativo?
--
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 000768-1, 24/08/2007
Tested on: 24/8/2007 09:24:57
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
[As partes desta mensagem qu
2 matches
Mail list logo