SHARE
TWEET

Untitled

a guest Sep 7th, 2017 216 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top