Programın 1 tane çalışması..

[Shou]

abi öyle yaptımda şimdi adam "project1.exe" olarak açıyo ondan sonra ismini "project2.exe" yapıyo yine açıyo ??

[sabanakman]

Tam olarak nasıl bir deneme yaptığınızı bilemiyorum ama

Kod: Tümünü seç

ExeName := ExtractFileName(Application.ExeName)

şeklinde deneme yaptığınızı varsayıyorum. Bu noktada biraz zihin jimnastiği yaparak kendinizden katkıda bulunabilirsiniz. Mesela programınıza özel sabit bir değer belirleyip bunu verebilirsiniz.

Kod: Tümünü seç

ExeName := 'AjandaProgramimBenim';

gibi sabit bir değer olabilir.

[dpcmsx]

CreateMutex ile oluşturduğunuz programa bir isim verirsiniz, OpenMutex ile çalıştırmadan önce bu ismin Mutex listesinde olup olmadığını kontrol edersiniz. Böylece programın ikinci kere çalıştırılması imkansız hale gelir.

Basit bir örnek vermek gerekirse :

Kod: Tümünü seç

program MyApp;
uses
  Windows,Forms,
  MyApp1 in 'MyApp1.pas' {Form1};

var
  Mutex : THandle;
{$R *.RES}

begin
Mutex := CreateMutex(nil, True, 'MyAppName');
if (Mutex <> 0) and (GetLastError = 0) then
  begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  if Mutex <> 0 then
    CloseHandle(Mutex); 
  end;
end.

Kaynak : http://www.ibrtses.com/delphi/singleinstance.html