Aşağıdaki prosedür yazdığınız programın her windows oturumunda yalnız birkez çalışmasını sağlar. Programı aynı windows oturumunda ikinci kez çalıştırdığınızda program değişkenine gireceğiniz mesajı vererek sonlanacaktır...

procedure RunOnceForEveryWindowsSession( MessageStr : String );
var
My_Atom : Integer;
begin
  if GlobalFindAtom( 'Buraya_Birseyler_Yazin' ) = 0 then
    My_Atom := GlobalAddAtom('Buraya_Birseyler_Yazin')
  else
  begin
    ShowMessage( MessageStr );
    Application.Terminate;
  end;
end;Prosedürde GlobalFindAtom ve GlobalAddAtom rutinleri yardımı ile aranacak ve eklenecek ifade aynı olmalıdır. Ben (Buraya_Birseyler_Yazin) dedim siz başka birşey yazabilirsiniz.
Örneğin bu prosedürü aşağıdaki gibi programınızın ana formunun OnShow Eventine eklerseniz programınız o anki windows oturumunda bir kez normal olarak çalışacak fakat ikinci çalıştırma denemesinde girilen mesajı verip sonlanacaktır..

procedure TForm1.FormShow(Sender: TObject);
begin
RunOnceForEveryWindowsSession( 'Bu program' + ' Her Windows Oturumunda'+ #13#10 + 'Yalnız Bir kez Çalışır...' );
end;

Cevap yukarıda zaten . Orada anlatılanlar .exe sistemde açıksa 2. kere açılmamasını sağlıyor zaten. Siz öncelikle bunları uygulayın çalıştığını göreceksiniz. Eğer bir sıkıntı yaşarsanız o noktada sorunuzu sorabilirsiniz.

Kodların o kadar derin olduğunu tahmşn etmemiştim . İsterseniz bir de http://www.delphiturkiye.com/forum/viewtopic.php?f=19&t=20130 adresindeki makaleyi inceleyin. Faydası olabilir.