Hi Daniel,
als ich vor einiger Zeit mal mit einer dll gespielt habe, habe
ich die ganz anders eingebunden:
- Active-X-Dll erstellen, die Funktionen stehen in einem
Klassenmodul (MyClass)
- Dll kompilieren und im Zielprojekt als Verweis einfügen
- Objekt im Zielprojekt erstellen über „Public MyObj as
MyDll.MyClass“
- Objekt initialisieren: „MyObj = New MyDll.MyClass“
und schließlich 5. Objekt benutzen: „MyObj.MyMethod“
hmmm. Das klingt interessant. Kannst Du mir da den Quellcode von einem Beispiel mailen? Aber bitte nur das nötigste, also so, daß die dll (fast) nichts macht, aber Daten übergeben werden? Ähnlich wie das, was ich da oben versucht habe? Die Beispiele, die ich finde sind immer zu kompliziert, da brauche ich immer Tage, bis ich das Überflüssige entfernt habe und das für mich Wesentliche übrig bleibt, das ich dann verstehe. 
Ein Beispiel dafür:
Das Beispiel für ‚exists‘ in API-Guide
Private Const GCT\_INVALID = &H0
Private Const GCT\_LFNCHAR = &H1
Private Const GCT\_SEPARATOR = &H8
Private Const GCT\_SHORTCHAR = &H2
Private Const GCT\_WILD = &H4
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Declare Function PathFindOnPath Lib "shlwapi.dll" Alias "PathFindOnPathA" (ByVal pszPath As String, ByVal ppszOtherDirs As String) As Boolean
Private Declare Function PathGetCharType Lib "shlwapi.dll" Alias "PathGetCharTypeA" (ByVal ch As Byte) As Long
Private Declare Function PathGetDriveNumber Lib "shlwapi.dll" Alias "PathGetDriveNumberA" (ByVal pszPath As String) As Long
Private Sub Form\_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim sSave As String, Ret As Long
'set the form's graphical omde to 'persistent'
Me.AutoRedraw = True
'determine whether the file exists
Me.Print "Does the file 'win.com' exist? " + CStr(CBool(PathFileExists("c:\windows\win.com")))
'is the file 'autoexec.bat located in one of the directories specified in the PATH environment variable?
Me.Print "Is the file 'autoexec.bat' located a PATH-directory? " + CStr(CBool(PathFindOnPath("win.com", vbNullString)))
'check whether a specified character can be used in a path
Select Case PathGetCharType(Asc("\*"))
Case GCT\_INVALID
sSave = "invalid"
Case GCT\_LFNCHAR
sSave = "valid in a long file name"
Case GCT\_SHORTCHAR
sSave = "valid in a short (8.3) file name"
Case GCT\_WILD
sSave = "a wildcard character"
Case GCT\_SEPARATOR
sSave = "a path separator"
End Select
Me.Print "The character '\*' is " + sSave
'get the corresponding drive number of a file
Me.Print "The file is located on drive " + Chr$(65 + PathGetDriveNumber("e:\test.txt"))
End Sub
Da bleibt für mich am Schluß noch …
'Deklaration:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
'Aufruf:
Ergebnis = CStr(CBool(PathFileExists(Datei\_oder\_Verzeichnis)))
… übrig.
Es ist ja schön, daß Da ein lauffähiges Beispiel ist, das Wesentliche herausfiltern dauert aber immer ein wenig. Oft sind die Beispiele sehr viel länger, was für mich übrig bleibt aber nicht.
Hast Du ein kurzes Beispiel für mich, das mir ausreicht, die Funktion zu verstehen?
Gruß, Rainer
