Guest User

Untitled

a guest
Sep 7th, 2017
227
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. method App.OnStartup(e: StartupEventArgs);
  2.  
  3. var
  4.   _ok : Boolean;
  5.  
  6. begin
  7.   MyMutex := new Mutex(true,'MAA_QB_BILL_SCAN', out _ok);
  8.   if _ok then
  9.     begin
  10.       AppDomain.CurrentDomain.UnhandledException += UnhandledException;
  11.       ThemeManager.ApplicationThemeName := Theme.Office2016ColorfulName;
  12.  
  13.       inherited;
  14.     end
  15.   else
  16.     Application.Current.Shutdown;
  17. end;
RAW Paste Data