Yalnızca 3 uygulama örneğini,

Question

kullanarak izin ver Uygulamanın yalnızca 3 örneğini çalıştırmamı sağlayacak semaforları kullanarak basit bir yordam uygulamaya çalışıyorum. Ben 3 muteksleri kullanabilirsiniz ama bu ben şimdiye kadar

var 
    hSem:THandle; 
begin 
    hSem := CreateSemaphore(nil,3,3,'MySemp3'); 
    if hSem = 0 then 
    begin 
    ShowMessage('Application can be run only 3 times at once'); 
    Halt(1); 
    end; 

i düzgün yapabilirsiniz Bu nasıl çalıştı güzel bir yaklaşım değildir?

Answer 1

Her zaman bir semafor bıraktığınızdan emin olun, çünkü uygulamalarınız otomatik olarak bitmez.

program Project72; 

{$APPTYPE CONSOLE} 

uses 
    Windows, 
    SysUtils; 

var 
    hSem: THandle; 

begin 
    try 
    hSem := CreateSemaphore(nil, 3, 3, 'C15F8F92-2620-4F3C-B8EA-A27285F870DC/myApp'); 
    Win32Check(hSem <> 0); 
    try 
     if WaitForSingleObject(hSem, 0) <> WAIT_OBJECT_0 then 
     Writeln('Cannot execute, 3 instances already running') 
     else begin 
     try 
      // place your code here 
      Writeln('Running, press Enter to stop ...'); 
      Readln; 
     finally ReleaseSemaphore(hSem, 1, nil); end; 
     end; 
    finally CloseHandle(hSem); end; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

Answer 2

'u JCL'dan kullanabilirsiniz.

Answer 3

1. Sen kilidi serbest olmalı, bu Sen bir sayım sonunda
2. alabilirsiniz görmek için beklemek fonksiyonunun birini kullanmalıdır
3. oluşturulup oluşturulmadığını görmek için denemek gerekir & o

Şerefe dahaki sefere kullanıcı yakın çalışmak ve uygulamanızı açabilmesi için işlemek

var 
    hSem: THandle; 
begin 
    hSem := OpenSemaphore(nil, SEMAPHORE_ALL_ACCESS, True, 'MySemp3'); 
    if hSem = 0 then 
    hSem := CreateSemaphore(nil, 3, 3,'MySemp3'); 

    if hSem = 0 then 
    begin 
    ShowMessage('... show the error'); 
    Halt(1); 
    Exit;  
    end; 

    if WaitForSingleObject(hSem, 0) <> WAIT_OBJECT_0 then 
    begin 
    CloseHandle(hSem); 
    ShowMessage('Application can be runed only 3 times at once'); 
    Halt(1); 
    Exit; 
    end; 

    try 
    your application.run codes.. 

    finally 
    ReleaseSemaphore(hSem, 1, nil); 
    CloseHandle(hSem); 
    end;