Birden fazla program açma hakkında.

[Shou]

Merhaba arkadaşlar bir programı 2 defa açsın veya 4 defa kaç defa açmasını istemeyi nasıl yapabilirim bir türlü başaramadım kodlar aşağıda bu kodlar'da 1 defa açma izni var 2'ci açarsam 1'cide kapanıyor.

Kod: Tümünü seç

procedure tekacimlik;
begin try
Saftrik := CreateSemaphore(nil, 0, 1, 'Projem'); // (tek)
if ((Saftrik <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
closehandle(Saftrik);
killtask(extractfilename(paramstr(0)));
halt;
end;
except
debugsave('TeakAÇ hatası : '+syserrormessage(getlasterror));
messagebox(getactivewindow,pchar('TeakAÇ Teamer hatası : '+syserrormessage(getlasterror)),'error',0);
end; end;

Yardımcı olursanız sevinirim.

[erolturk]

Merhaba !

CreateSemaphore fonksiyonun üçüncü parametresi (yani sizde 1 olan) 2,3,4 vs yapmayı denedin mi (üçüncü parametre = IMaximumCount)