Domino 9 und frühere Versionen > Entwicklung

Attament automatisch starten

<< < (6/6)

outerspace:
Ich detache die Datei und starte sie mit ShellExecute.
d.h.: ich weiss nicht welche Anwendung gestartet wird.
In Anbetracht der vielen Dateiendungen und der unzähligen Anwendungen, die pro Dateiendung möglich sind,
kann man unmöglich alle Kombinationen erfassen.
Ich fürchte, das ist eine Sackgasse.
Eine API Funktion, die Pfad und Dateinamen als Parameter bekommt und mir dann das Handle der Anwendung oder Null zurückgibt wäre schön, gibt es aber wohl nicht.

Andreas

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

Const MAX_PATH = 260
Const ERROR_FILE_NO_ASSOCIATION  = 31
Const ERROR_FILE_NOT_FOUND  = 2
Const ERROR_PATH_NOT_FOUND  = 3
Const ERROR_FILE_SUCCESS = 32 'my constant
Const ERROR_BAD_FORMAT  = 11

Sub Click(Source As Button)
   
   Dim success As Long
   Dim pos As Long
   Dim sResult As String
   Dim msg As String
   
   sResult = Space$(MAX_PATH)
   
  'lpFile: name of the file of interest
  'lpDirectory: location of lpFile
  'sResult: path and name of executable associated with lpFile
   success = FindExecutable("Meine Bilder0001.jpg", "c:\temp\", 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
         msg = Left$(sResult, pos - 1)
      End If
      
   End Select
   
   Msgbox msg
   
End Sub

Damit findest du schon mal die Anwendung.

Unter der Voraussetzung, daß immer nur ene Instanz einer Anwendung geöffnet ist, könntest du dann die laufenden Prozesse abfragen. Ist der Prozeß da, ist das Doc geöffnet. Wie gesagt, unter der Voraussetzung das...

eknori:
eine weitere Möglichkeit wäre, sich alle Fenster Handles zu holen und dann den Windows Titel mit dem AtachmentName zu checken  ( es gibt da eine API EnumWindows; muß ich raussuchen, habe ich nicht im Kopf, wie die Syntax ist )


hier isse http://www.vbarchiv.net/vbapi/EnumWindows.php bzw

http://www.mvps.org/vbnet/index.html?code/enums/enumwindowsdemo.htm

Navigation

[0] Themen-Index

[*] Vorherige Sete