Program aynı anda sadece bir tane çalışsın - Mutex

Mesaj gönderen **mege** » 25 May 2004 12:35

eğer bir programın aynı anda sadece bir tane çalışmasını istiyorsanız :
proje dosyasında (project1.dpr)
beginden sonra

  if (HPrevInst <> 0) then
     Exit;

HPrevInst değişkeni sadece Delphi 1 de çalışıyor. delphi 5 ve üstü için mutex fonksiyonu tanımlayıp ondan karşılaştırma yapmanız lazım.

Kod: Tümünü seç

program Project1;

uses
  Forms,
  windows,  // Mutex fomksiyonu için
  sysutils, // Uppercase ve ExtractFileName fonksiyonları için
  dialogs,  // Showmessage için sadece
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

 var hMyMutex : tHandle;
begin
  hMyMutex := CreateMutex (nil, True,pChar (Uppercase (ExtractFileName (Application.ExeName))));
  if (hMyMutex = 0) or (GetLastError = error_Already_Exists) then
    begin
    showmessage('aynı anda iki program çalıştıramazsınız');
    Application.Terminate;
    end;
  try
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
    finally
    ReleaseMutex (hMyMutex);
  end;
end.

Kaynak
tabi exe adını değiştirip onu çalıştırıldığı zaman buda yemiyor.

aklıma gelen registerda bir bit tanımlayıp onu kontrol etmek. veya findwindow ile başlığıda arattırmak. ikinci yoldan gittim.

Kod: Tümünü seç

program Project1;

uses
  Forms,
  windows,  // Mutex fomksiyonu için
  sysutils, // Uppercase ve ExtractFileName fonksiyonları için
  dialogs,  // Showmessage için sadece
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

 var hMyMutex : tHandle;
begin
  hMyMutex := CreateMutex (nil, True,pChar (Uppercase (ExtractFileName (Application.ExeName))));
  if (hMyMutex = 0) or (GetLastError = error_Already_Exists) then
    begin
    showmessage('aynı anda iki program çalıştıramazsınız');
    Application.Terminate;
    end;

  // Form1.Caption tasarım anında boş olmalı. Form Createde eklenmeli
  if FindWindow(Nil, 'Deneme Form1') <> 0 then
  begin
    showmessage('Lütfen ikinci exeyi silin! aynı anda iki program çalıştıramazsınız');
    Application.Terminate;
  end;
  //Form1'in Create olayına
  //Form1.Caption:='Deneme Form1';

  try
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
    finally
    ReleaseMutex (hMyMutex);
  end;
end.

değişil fikirleri olan varmı?

Mesaj gönderen **mussimsek** » 25 May 2004 01:26

Bir ara ben mutex ile aynı işlevi yapmıştım. Çok iyi çalışıyor. Tek dezavantajı var, eğer program normal sonlanıp, mutex silinmezse (mesela task manager'dan kapatırsanız vs.) windowsu kapatıp açmadan programı tekrar çalıştıramıyorsun.

Ama ben hemen hemen hiç sıkıntı yaşamamıştım bu konuda.

Kolay gelsin.

Mesaj gönderen **fahrettin** » 25 May 2004 01:34

Yıllardır project source'un en basına

Kod: Tümünü seç

var
  H: THandle;

begin
  H:=FindWindow(NIL,'Sarbak Üretim Takip (c) 2004');
  if (H<>0) then
  begin
    if IsIconic(H) then
      ShowWindow(H, SW_RESTORE);
    SetForegroundWindow(H);                          
    Halt(0);
  end;
  Application.Initialize;
  Application.Title := 'Sarbak Üretim Takip (c) 2004';

yazarak problemsiz kullanıyorum...

Mesaj gönderen **gkimirti** » 25 May 2004 01:40

ben basitce su sekilde kullanıyorum,project kodunun basına

Kod: Tümünü seç

  CreateMutex(nil, FALSE, 'PROGRAM_ICIN_BIR_ISIM');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Application.MessageBox(PChar('Program zaten çalışıyor'),
      PChar('PROGRAMIM'), MB_OK);
    Halt(0);
  end;

PROGRAM_ICIN_BIR_ISIM windowsa bu programın calıstıgının bildirilmesi gibi bir sey herhangi bir sey yazsam da sorun olmuyor bende

Mesaj gönderen **mege** » 25 May 2004 02:06

gkimirti yazdı:ben basitce su sekilde kullanıyorum,project kodunun basına

arkadaşlar çok teşekkürler bende ilkönce gökmen hocamın deediği gibi yaptım ama exe kopyalanınca yemedi. ardından fahrettin abinin yaptığı gibi bi header arattırdım ikisi birleşince voltranı oluşturdu canavar gibi

oldu

banada bi arkadaş sormuştu ama neyse. artık arasın bulsun

Mesaj gönderen **şimal** » 25 May 2004 02:16

main formun create eventine bende bu kodu yazmıştım.
Şimdilik sorun çıkarmadı....

procedure Tfrmain.FormCreate(Sender: TObject);
var
Sem: THandle;
begin
Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle(Sem);
ShowMessage('Program Çalışmakda');
Halt;
end;
end;

"banada bi arkadaş sormuştu ama neyse. artık arasın bulsun"

mege sen bu makaleyi hazırlarken ben sorunu halletmiştim...
İmalı taşlamalardan hoşlanmıyorum.

bilmusa · Mesaj gönderen **bilmusa** » 15 Eyl 2004 03:31

TEŞEKKÜRLER ARKADAŞLAR SAGOLUN BAYA İLGİLENDİNİZ

supervisor · Mesaj gönderen **supervisor** » 16 Haz 2006 12:19

şimal yazdı:main formun create eventine bende bu kodu yazmıştım.
Şimdilik sorun çıkarmadı....

procedure Tfrmain.FormCreate(Sender: TObject);
var
Sem: THandle;
begin
Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle(Sem);
ShowMessage('Program Çalışmakda');
Halt;
end;
end;

"banada bi arkadaş sormuştu ama neyse. artık arasın bulsun"

mege sen bu makaleyi hazırlarken ben sorunu halletmiştim...
İmalı taşlamalardan hoşlanmıyorum.

Evt Kodlar Çalışıyor... Teşekkürler....

samety81 · Mesaj gönderen **samety81** » 01 Şub 2007 10:21

merhabalar
ben fahrettin abinin dediği gibide yaptım
gkimirti abinin dediği gibide yaptım fakat ikinci kez actıgımda mesajı veriyor.ama programı baslatmayı sonlandırmıyor.
bu kodları on create denedim yanlıs denememiştirim umarım unit1 in on create sinde denedim
fakat windows hata raporu gonder gonderme hatası ile karsılasıyorum sürekli

Mesaj gönderen **aslangeri** » 01 Şub 2007 10:27

mege yazdı:proje dosyasında (project1.dpr)
beginden sonra

samety81 · Mesaj gönderen **samety81** » 01 Şub 2007 01:35

pardon ona tam dikkat etmemiştim
fakat :

Kod: Tümünü seç

program GEFinder;

uses
  Forms,Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
var
  H: THandle;
begin
H:=FindWindow(NIL,'GEFinder');
  if (H<>0) then
  begin 
    if IsIconic(H) then
      ShowWindow(H, SW_RESTORE);
    SetForegroundWindow(H);
    Halt(0); 
  end;
  Application.Initialize;
  Application.Title := 'GEFinder';
Application.Run;
end.

şeklinde değiştirdim bu sefer hiç çalışmıyor proje sürekli kapanıyor :S

samety81 · Mesaj gönderen **samety81** » 01 Şub 2007 01:42

şimal Tarih: 25 May 2004 01:16 Mesaj konusu:

--------------------------------------------------------------------------------

main formun create eventine bende bu kodu yazmıştım.
Şimdilik sorun çıkarmadı....

procedure Tfrmain.FormCreate(Sender: TObject);
var
Sem: THandle;
begin
Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle(Sem);
ShowMessage('Program Çalışmakda');
Halt;
end;
end;

"banada bi arkadaş sormuştu ama neyse. artık arasın bulsun"

mege sen bu makaleyi hazırlarken ben sorunu halletmiştim...
İmalı taşlamalardan hoşlanmıyorum.

bu kodla denedim oldu çok teşekkür ediyorum.
birde bir şey daha soracagım
peki bu çalışan projenin form1 ini burda calısıyorsa nasıl gösteririm.
yani eger proje acılmışsa yeni proje açma açık olan projeyi göster

Mesaj gönderen **rsimsek** » 01 Şub 2007 02:31

Project.dpr de yapmak daha uygun

Kod: Tümünü seç

program TekCalis;

uses
  Forms,
  windows, // Mutex fomksiyonu için
  sysutils, // Uppercase ve ExtractFileName fonksiyonları için
//  dialogs, // Showmessage için sadece
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
const
  ProgramBasligi = 'Tek çalışan program';
var
  hMyMutex: THandle;
  Calisiyor: Boolean = False;
begin
  hMyMutex := CreateMutex(nil, True, pChar(Uppercase(ExtractFileName(Application.ExeName))));
  if (hMyMutex = 0) or (GetLastError = error_Already_Exists) then // 1.kontrol.
    Calisiyor := True;
  hMyMutex := FindWindow(nil, ProgramBasligi);
  if Calisiyor or (hMyMutex <> 0) then  // 2.kontrol.
  begin
    if IsIconic(hMyMutex) then
      ShowWindow(hMyMutex, SW_RESTORE);
    SetForegroundWindow(hMyMutex);
    Halt(0);
  end;
  //  ReleaseMutex(hMyMutex);
  Application.Initialize;
  Application.Title := ProgramBasligi;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

samety81 · Mesaj gönderen **samety81** » 02 Şub 2007 09:51

ama abi ben bunları GEFinder.dpr ye koyunca programım hiç açılmıyor.
hep açılır açılmaz kapanıyor.
nasıl yaptın derseniz işte:

Kod: Tümünü seç

program GEFinder;

uses
  Forms,windows, // Mutex fomksiyonu için 
  sysutils, // Uppercase ve ExtractFileName fonksiyonları için 
dialogs, // Showmessage için sadece 

  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
 const 
  ProgramBasligi = 'GEFinder'; 
var 
  hMyMutex: THandle; 
  Calisiyor: Boolean = False; 

begin
  hMyMutex := CreateMutex(nil, True, pChar(Uppercase(ExtractFileName(Application.ExeName))));
  if (hMyMutex = 0) or (GetLastError = error_Already_Exists) then // 1.kontrol.
    Calisiyor := True; 
  hMyMutex := FindWindow(nil, ProgramBasligi); 
  if Calisiyor or (hMyMutex <> 0) then  // 2.kontrol. 
  begin 
    if IsIconic(hMyMutex) then
      ShowWindow(hMyMutex, SW_RESTORE);
    SetForegroundWindow(hMyMutex);
    Halt(0); 
  end;
//ReleaseMutex(hMyMutex); 

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

bu şekilde .dpr yi düzenliyorum ama açılmıyor proje

Mesaj gönderen **rsimsek** » 02 Şub 2007 07:22

Bende bu haliyle çalışmakta