Wo liegt die Notes.exe?

[animate]

Kann ich das eindeutig herausfinden (auf Windows Clients)?
Bei mir stehts in der Registry. Ist das immer so?

Danke für Infos.

[Semeaphoros]

Nein, auf die Reh-Schizophrenie kannst Du Dich leider nicht verlassen, Notes läuft auch ohne die, und wenns mehrere Versionen auf demselben Client sind, ist nur eine zuverlässig eingetragen. Bei Löschen ohne Deinstallation bleiben die Einträge ebenfalls stehen. Nimm den Eintrag als Hinweis und ansonsten muss man eben die üblichen Suchstrategien anwenden, um eine Datei zu finden.

[animate]

Schade. Danke.

[eknori]

Code:  ========================================================================
Following code should be put in "Declaration" section of the object which uses this function.

Declare Function OSGetExecutableDirectory Lib "NNOTES.DLL" Alias "OSGetExecutableDirectory" (_
Byval DirName As String,_
Byval Size As Long) As Long
=========================================================================

Function GetNotesProgramDirectory As String
Dim DirPath As String*512
Dim Size As Long
Dim Handle As Long

GetNotesProgramDirectory=""

Handle=OSGetExecutableDirectory(DirPath,Size)

GetNotesProgramDirectory=DirPath
End Function

[Semeaphoros]

Genau das hab ich mich gefragt, ob die WinAPI endlich, endlich einen Call hat, mit dem man das machen kann, die Logik ist ja doch eigentlich seit Dos 1.0 bereits im Kernel vorhanden, aber M$ hat sich nicht dazu durchgerungen, das Ding mal zugänglich zu machen. Im Assembler war das seinerzeit eine recht mühsame Sache, insbesondere da der API-Exec-Aufruf die Suche nach dem Executable eben nicht durchführte .....

Danke Ulrich

[eknori]

@Jens: Es wird die Notes API verwendet !

[Semeaphoros]

Ups, da war ich etwas zu oberflächlich --- schade!

Und danke für den Hinweis, also hat M$ immer noch nix gelernt, das muss denen doch schon x-tausendmal unter die Nase gerieben worden sein. Nochmals danke.

[eknori]

Kannst ja mal dies hier probieren



Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (Byval lpFile As String, Byval lpDirectory As String, Byval sResult As String) As Long

   Private Function FindExecutableByExtension( FullPath As String ) As Variant
      Dim success&, pos&, sResult$, RetVal$, lpFile$, lpDirectory$, msg$
      
      sResult = Space$ ( MAX_PATH )
      lpFile$ = ExtractFileName ( FullPath )
      lpDirectory$ = Left$ ( FullPath , Len( FullPath ) - Len( lpFile$ ) )
      success = FindExecutable ( lpFile$ , lpDirectory$ , sResult )
      
      Select Case success
      Case ERROR_FILE_NO_ASSOCIATION: msg = "no association"
      Case ERROR_FILE_NOT_FOUND: msg = "file not found"
      Case ERROR_PATH_NOT_FOUND: msg = "path not found"
      Case ERROR_BAD_FORMAT: msg = "bad format"
      Case Is >= ERROR_FILE_SUCCESS:
         pos = Instr ( sResult , Chr$ ( 0 ) )
         If pos Then RetVal = Left$ ( sResult , pos - 1 )
      End Select
      FindExecutableByExtension = RetVal
   End Function


   Private Function ExtractFileName( FilePath As String ) As String
'// Extract the FileName from FullPath
'// Called by : Function FindExecutableByExtension
'// Calls : Function InstrBack
      ExtractFileName = Rightbp$( FilePath , InstrBack ( FilePath , "\" ) )
   End Function

[Semeaphoros]

Aha, stammt aus der DDE-Ecke, danke für den Hinweis.

[animate]

Code:  ========================================================================
Following code should be put in "Declaration" section of the object which uses this function.

Declare Function OSGetExecutableDirectory Lib "NNOTES.DLL" Alias "OSGetExecutableDirectory" (_
Byval DirName As String,_
Byval Size As Long) As Long
=========================================================================

Function GetNotesProgramDirectory As String
Dim DirPath As String*512
Dim Size As Long
Dim Handle As Long

GetNotesProgramDirectory=""

Handle=OSGetExecutableDirectory(DirPath,Size)

GetNotesProgramDirectory=DirPath
End Function

wow! muchas gracias

[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