Aynı applicationdan ikinci bir tane açmamanın en iyi yolu?

[mrmarman]

Ben şahsen şöyle bir ilüzyon uyguluyorum...
(1) Delphi IDE'de CTRL + SHIFT + G tuşuna basarsan sana bir GUID üretir onu kullanabilirsin. Şimdi ürettim ['{64DACF41-20EC-4ADE-9CB0-73F177DDE994}'] verdi.

(2) Anaform dışında ikinci bir form oluşturup bunun caption'una bu ismi veriyorum. (Formun görünür olması şart değil boş bir form sonuçta)
(3) Projenin DPR dosyasında önce FindWindow ile bu captiona sahip bir Handle var mı diye kontrol ediyorum.
(4) Varsa bunun application handleini foreground ediyorum


Bu kadar basit.

Örnek Hazırladım...

Kod: Tümünü seç

Var
  aHandle : HWND;
begin
  aHandle := FindWindow(Nil, PChar('{64DACF41-20EC-4ADE-9CB0-73F177DDE994}'));
  if aHandle <> 0 then
  begin
    MessageDlg('Yazılımı Halen Çalışmaktadır.', mtWarning, [mbOk], 0 );
    if IsIconic(aHandle)
      then ShowWindow(aHandle, SW_RESTORE)
    else if IsIconic(GetWindow(aHandle, GW_OWNER))
      then ShowWindow(GetWindow(aHandle, GW_OWNER), SW_RESTORE)
    else BringWindowToTop(aHandle);
  end else begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.Run;
  end;
end.

[mrmarman]

- Zor bir metod gibi mi geldi ? Official olarak ne beklediğinize bağlı.

- GlobalAtom aslında bir anlamda official tanımınıza uyuyor. Yan etkisi var, şöyle ki proje normal dışı yollarla kapanırsa ayağınıza dolaşır. Halen çalışıyor olarak adledilir.

- Çalışmalarınızda başarılar.

[mrmarman]

- Yazdığınız kodları görmeden peşin konuşmuş olurum ama bu titizliğinizi kodlarınızda da gösteriyorsanız, zaten oldukça tasarruf etmiş olursunuz. Ölçme değerlendirme imkanınız varsa siz de göreceksiniz ki, bu kadarlık kayıp da üzerine düşünelecek değil ihmal edilecek seviyede emin olun.

[PROGRAMADOR]

mutex de kullanabilirsiniz.

[G.Arkas]

CreateMutex bu iş için en iyisi bence.

Kod: Tümünü seç

var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, 'My_Unique_Application_Mutex_Name'); 
  if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
  begin

    // code to searh for, and activate 
    // the previous (first) instance

  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    if Mutex <> 0 then
      CloseHandle(Mutex); 
    end;
  end;

[G.Arkas]

Tabii ki de. Zaten bir Windows API dir kendisi.