Domino 9 und frühere Versionen > Entwicklung

Wo liegt die Notes.exe?

<< < (3/3)

animate:
ich habe mir erlaubt, an der Funktion etwas zu ändern, damit der zurückgelieferte String genauso lang ist, wie der Pfad selbst (also ohne NullChars)
Function GetNotesProgramDirectory As String
   Dim sDirPath As String*512
   Dim lSize As Long
   Dim lHandle As Long
   Dim nPosition As Integer
   
   GetNotesProgramDirectory = ""
   
   lHandle=OSGetExecutableDirectory(sDirPath,lSize)
   
   
   nPosition = Instr(1, sDirPath, Chr(0))
   If nPosition > 0 Then
      GetNotesProgramDirectory = Left(sDirPath, nPosition - 1)
   Else
      GetNotesProgramDirectory = sDirPath
   End If
End Function

Navigation

[0] Themen-Index

[*] Vorherige Sete