Mega Code Archive

 

Categories / Delphi / System

 

Programın her windows oturumunda yalnız birkez çalışması

// 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 <MessageStr> 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;