Visual Basic

KireronThunderStone wrote:

Message=Unable to cast object of type 'DXProf' to type 'idt.medical.IDXClient'.

Public Class DXProf
    Implements idt.medical.IDXClient

KreativeKai wrote:

The above link works if it is executed with a /CR parameter, but I need a more
stable way of doing this.

KreativeKai wrote:

In the past I've pointed shortcuts to the setup.exe file in the location we
publish the application to, but if I run the app using the setup.exe /CR
parameter, it doesn't work.

KreativeKai wrote:

The only exe that I have found to read the parms passed is when I use the
random address they create on the fly.

Public Sub Main(ByVal args() As String)

System.AppDomain.CurrentDomain.SetupInformation.ActivationArguments.ActivationData(0)

<pre lang="vb">
Private sub main()
Nta = FndAtom("AdminRunStatus")
    If Nta = 0 Then
      Nta = SetAtom("AdminRunStatus")
      'set the status for the second run
    'do something for the first run (shell to myself)
 call shell (App.Path & "\" & App.EXEName & " " & Command)
     
        End If
        Exit Sub
    Else
        Call DelAtom(Nta)
      'second program and the command line
      call shell(Second program & " " & Command)
      'do something for the second run.
   End sub

'---------------------------------------------------------------------------------------
' Module    : AtomDataBase Wrapper
' Author    : Pcuser80
' Date      : 03-06-2012
' Purpose   : Atom Wrapper
'---------------------------------------------------------------------------------------

Option Explicit

Private Declare Function InitAtomTable Lib "kernel32" (ByVal nSize As Long) As Long
Private Declare Function AddAtom Lib "kernel32" Alias "AddAtomA" (ByVal lpString As String) As Integer
Private Declare Function DeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As Integer
Private Declare Function FindAtom Lib "kernel32" Alias "FindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GetAtomName Lib "kernel32" Alias "GetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalDeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As Integer
Private Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer
Private Declare Function GlobalGetAtomName Lib "kernel32" Alias "GlobalGetAtomNameA" (ByVal nAtom As Integer, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function SetAtom(ByVal AtomStr As String) As Integer
    SetAtom = GlobalAddAtom(AtomStr)
End Function
Public Function GetAtom(ByVal Atom As Integer) As String
    Dim buFfer         As String
    Dim lRet           As Long
    buFfer = String(255, 0)
    lRet = GlobalGetAtomName(Atom, buFfer, Len(buFfer))
    If lRet > 0 Then
        buFfer = Left$(buFfer, lRet)
        GetAtom = buFfer
    Else
        GetAtom = vbNullString
    End If
End Function
Public Function DelAtom(ByVal Atom As Integer) As Integer
    DelAtom = GlobalDeleteAtom(Atom)
End Function
Public Function LocDelAtom(ByVal Atom As Integer) As Integer
    LocDelAtom = DeleteAtom(Atom)
End Function
Public Function LocSetAtom(ByVal Atom As String) As Integer
    LocSetAtom = AddAtom(Atom)
End Function
Public Function LocGetAtom(ByVal Atom As Integer) As String
    Dim buFfer         As String
    Dim lRet           As Long
    buFfer = String(255, 0)
    lRet = GetAtomName(Atom, buFfer, Len(buFfer))
    If lRet > 0 Then
        buFfer = Left$(buFfer, lRet)
        LocGetAtom = buFfer
    Else
        LocGetAtom = vbNullString
    End If
End Function
Public Function LocFndAtom(ByVal AtomStr As String) As Integer
    LocFndAtom = FindAtom(AtomStr)
End Function
Public Function FndAtom(ByVal AtomStr As String) As Integer
    FndAtom = GlobalFindAtom(AtomStr)
End Function
Public Function LocInitAtom(nSize As Long) As Long
    LocInitAtom = InitAtomTable(nSize)
End Function