Last used version of PC-DMIS

anyone know how to figure out what the last used version of PC-DMIS was? i tried getting the last access date from the executables, but that doesn't seem to ever change...

Thanks in advance

-cappy

Parents

ewe0006 over 10 years ago

PC-DMIS stores its last run version in a registry key. I do something like this...

Public Function GetLastVersionExecutable() As String
        Dim pcdRegKey As RegistryKey = Registry.ClassesRoot.OpenSubKey("PCDLRN.Application\CLSID\", False)
        Dim pcdLast As String = pcdRegKey.GetValue("").ToString

        pcdRegKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Classes\CLSID\" & pcdLast & "\LocalServer32\", False)
        Dim pcdLastVersion As String = pcdRegKey.GetValue("").ToString

        Return pcdLastVersion

    End Function

The 'Registry' class is part of Microsoft.Win32.

Reply

ewe0006 over 10 years ago

PC-DMIS stores its last run version in a registry key. I do something like this...

Public Function GetLastVersionExecutable() As String
        Dim pcdRegKey As RegistryKey = Registry.ClassesRoot.OpenSubKey("PCDLRN.Application\CLSID\", False)
        Dim pcdLast As String = pcdRegKey.GetValue("").ToString

        pcdRegKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Classes\CLSID\" & pcdLast & "\LocalServer32\", False)
        Dim pcdLastVersion As String = pcdRegKey.GetValue("").ToString

        Return pcdLastVersion

    End Function

The 'Registry' class is part of Microsoft.Win32.

Children

No Data