PureBasic Forums - English

Code: Select all

Namespace My

        Private Sub MyApplication_StartupNextInstance( _
                ByVal sender As Object, _
                ByVal e As Microsoft.VisualBasic.ApplicationServices. _
                StartupNextInstanceEventArgs) _
                Handles Me.StartupNextInstance
            Console.WriteLine("Cannot RUN")

            For Each cmd As String In e.CommandLine
                Console.WriteLine(cmd)
            Next

            e.BringToForeground = False
        End Sub
    End Class

End Namespace

Code: Select all

;/ Code snippets From jaPBEe Source
ProgramParameter$=ProgramParameter()

RunOneWin=FindWindow_(@"WindowClass_0",@"jaPBe-RunOneWindow")
File$=ProgramParameter$
;
If RunOneWin
  If runone
    If File$
      cd.COPYDATASTRUCT
      cd\dwData=#WMCD_OpenFile
      cd\cbData=Len(File$)
      cd\lpData=@File$
      SendMessage_(RunOneWin,#WM_COPYDATA,MainWin,cd)  
    EndIf
    End ;/ END
  EndIf
Else
  RunOneWin=OpenWindow(0,0,0,100,100,#PB_Window_Invisible,"jaPBe-RunOneWindow")
EndIf
;

Procedure WindowCallback(WindowId, message, wParam, lParam)
  Select message
    Case #WM_COPYDATA
      *cd.COPYDATASTRUCT=lParam
      Result=#False
      Select *cd\dwData
        Case #WMCD_OpenFile
          ;{Datei fnen
          If *cd\lpData
            autoload$= PeekS(*cd\lpData,*cd\cbData)
            If CheckCurrentFileList(autoload$) ; gnozal : enable reload source from plugin (like VD)
              If Sources()\FileName = autoload$
                Sources()\FileName=""
                NoFoldChangeProtection=a
                NoFoldChangeProtection=#True
                SCI_ClearAll()
                Sources()\Modify=#False
                SCI_SetSavePoint()
                NoFoldChangeProtection=a
              EndIf
              LoadSourceCodeReal(autoload$)
            Else
              LoadSourceCodeReal(autoload$)
            EndIf
            AddRecentFile(autoload$)
            SetForegroundWindow_(MainWin)
            EnableWindow_(MainWin,#True)
            If IsZoomed_(MainWin)
              ShowWindow_(MainWin, #SW_MAXIMIZE)
            Else
              ShowWindow_(MainWin, #SW_RESTORE)
            EndIf
            Result=#True
          EndIf
          ;}
      EndSelect
      Result=#True
  EndSelect
  ProcedureReturn Result 
EndProcedure

Code: Select all

; ******* mettre ceci au debut du prg ****************
name_prg.s="EPB" ; the name of application
If Instance_Running(name_prg.s)=#False  ; si EPB n'est pas lancé on quitte
	End
EndIf
; **************************************************²

Code: Select all

ProcedureDLL.l Instance_Running(LockStr$)
	*MyMutex = CreateMutex_(#Null, 1, LockStr$)
	If *MyMutex <> 0 And GetLastError_() = #ERROR_ALREADY_EXISTS
		CloseHandle_(*MyMutex)
		ProcedureReturn #True
		Else
		ProcedureReturn #False
	EndIf
EndProcedure

Code: Select all

;==========================================
;
;   Passing command line parameters to a
;   running instance of an application
;   
;   by TI-994A  -  5th April, 2012
;
;==========================================

EnableExplicit
Enumeration
  #MainWindow
  #TextBox1
EndEnumeration

Define.i appInstance, hWndRunningInstance, paraLoop, wFlags
Define.s mutexName, cmdLineParameters, cmdLineDATA.COPYDATASTRUCT

mutexName = "myUniqueAppFlag"
appInstance = CreateMutex_(0, 1, @mutexName)

If appInstance <> 0 And GetLastError_() = #ERROR_ALREADY_EXISTS
  hWndRunningInstance = FindWindow_(0, "Command Line Arguments")
  
  For paraLoop = 1 To CountProgramParameters()
    cmdLineParameters = cmdLineParameters + "," + ProgramParameter()
  Next paraLoop
  
  cmdLineDATA\cbData = Len(cmdLineParameters)
  cmdLineDATA\lpData = @cmdLineParameters
  SendMessage_(hWndRunningInstance, #WM_COPYDATA, 0, @cmdLineDATA)
  
  CloseHandle_(appInstance)
  End
EndIf

Procedure WndProc(hWnd, uMsg, wParam, lParam)
  Define.i result = #PB_ProcessPureBasicEvents
  Define cmdLineARGs.s, *cmdLineDATA.COPYDATASTRUCT

  Select uMsg
      
    Case #WM_COPYDATA
      If Not IsWindowVisible_(WindowID(#MainWindow))
        HideWindow(#MainWindow, 0)
      EndIf
      If GetWindowState(#MainWindow) = #PB_Window_Minimize
        SetWindowState(#MainWindow, #PB_Window_Normal)
      EndIf
      SetForegroundWindow_(WindowID(#MainWindow))
      *cmdLineDATA = lParam
      cmdLineARGs = PeekS(*cmdLineDATA\lpData, *cmdLineDATA\cbData)
      If Trim(cmdLineARGs) = "" 
        cmdLineARGs = "none received."
      EndIf
      SetGadgetText(#TextBox1, "New Parameters: " + cmdLineARGs)
      
  EndSelect
  
  ProcedureReturn result
  
EndProcedure

    
wFlags = #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget
OpenWindow(#MainWindow, #PB_Any, #PB_Any, 500, 100, "Command Line Arguments", wFlags)
TextGadget(#TextBox1, 50, 30, 400, 30, "")
SetWindowCallback(@WndProc())

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend