Domino 9 und frühere Versionen > Administration & Userprobleme

Re-Attach (Tool von Eknori) u. WinXP?!

<< < (2/2)

eknori:
Der Code erkennt sehr wohl die Zuordnung TIF -> Application. Allerdings ist dieser Faxviewer eine DLL und keine EXE. Daher läuft der Code ins Leere.

Hier als Workaround, der bei TIF Dateien (hardcodiert) den Kodak Image Viewer startet.
Habe heute keine Lust mehr, den Faxviewer einzubinden  ;D

OK, hier noch schnell die Änderung, damit der FAX Viewer aufgerufen wird

   Private Function GetIMGViewer () As String
      GetIMGViewer = "RunDLL32.EXE c:\winnt\System32\shimgvw.dll,ImageView_Fullscreen"
   End Function


siehe nächstes Posting

Ulrich

*** Attachment gelöscht ***

eknori:
soo, hier noch einmal ein Update:

Ich habe den Aufruf für die "Windows Bild und Faxanzeige" eingebaut. Da bei dir ja auch noch Windows 2000 Rechner im Einsatz sind, habe ich zusätzlich noch eine Klasse eingebaut, die die verwendete Windows Version ermittelt. Ich habe lediglich 2 Properties eingebaut

IsWinXP und
IsWin2000


--- Code: ---Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Dim tmp As String

Public Class OSVersion
   
   Private Function GetWindowsVersion() As String
      tmp = ""      
      Dim OS As OSVERSIONINFO
      Dim ret As Integer
      OS.dwOSVersionInfoSize = 148
      OS.szCSDVersion = Space$(128)
      ret = GetVersionExA( OS )
      
      Select Case OS.dwPlatformId
      Case 1
         Select Case OS.dwMajorVersion
         Case 0: tmp = "Windows 95"
         Case 10: tmp = "Windows 98"
         End Select
      Case 2
         Select Case OS.dwMajorVersion
         Case 3
            
            Select Case OS.dwMinorVersion
            Case 0:  tmp = "Windows NT3"
            Case 1:  tmp = "Windows NT3.1"
            Case 5:  tmp = "Windows NT3.5"
            Case 51: tmp = "Windows NT3.51"
            End Select
            
         Case 4: tmp = "Windows NT 4.0"
         Case 5
            
            Select Case OS.dwMinorVersion
            Case 0:  tmp = "Windows 2000"
            Case 1:  tmp = "Windows XP"
            End Select
            
         End Select
      Case Else
         tmp = "unknown"
      End Select
      GetWindowsVersion = tmp
   End Function
   
   Public Function IsWinXP As Variant
      IsWinXp =False
      If GetWindowsVersion = "Windows XP" Then
         IsWinXp =True
      End If
   End Function
   
   Public Function IsWin2000 As Variant
      IsWin2000 =False
      If GetWindowsVersion = "Windows 2000" Then
         IsWin2000 =True
      End If
   End Function
   
End Class

--- Ende Code ---


Ulrich

Tino:
Oh das echt klasse von Dir!!!! Super vielen Dank das du dir soviel Mühe gemacht hast!!!!! ;)  

Navigation

[0] Themen-Index

[*] Vorherige Sete