// 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...
// Oktay Kocatürk
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;
// Bu prosedürü aşağıdaki gibi programınızın ana formunun
// OnShow Eventine ekleyebilirsiniz.
procedure TForm1.FormShow(Sender: TObject);
begin
RunOnceForEveryWindowsSession( 'Bu program' + ' Her Windows Oturumunda'+ #13#10 + 'Yalnız Bir kez Çalışır...' );
end;