<\/p>\n
Autor: Christoph Spielmann, Düsseldorf<\/p>\n
<\/b><\/p>\n
Bei der Windows-API (Application Programmers Interface) handelt es sich um eine mächtige Bibliothek von Funktionen, die Ihnen den Zugang zu Windows-internen Ressourcen ermöglichen. Unser Autor Christoph Spielmann hat für den vorliegenden Beitrag in seinen umfangreichen Erfahrungsschatz gegriffen, um Ihnen anhand einiger Beispiele die Möglichkeiten der API zu eröffnen.<\/b><\/p>\n
Temporäre Dateien werden von Anwendungen vorübergehend angelegt, um verschiedene Daten, Zustände oder gerade in Bearbeitung befindliche Dokumente zwischenzuspeichern.<\/p>\n
Es ist zwar kein Muss, aber als allgemeine übereinkunft gilt, einen im System als speziell für diesen Zweck deklarierten Ordner zur Ablage von temporären Dateien zu verwenden – den TEMP-Ordner.<\/p>\n
Windows stellt dazu sogar eine eigene API-Funktion bereit, über die Sie den Pfad dieses Ordners ermitteln können (Gesucht – Systemordner). Und wie der Name es sagt: Temporäre Dateien sind ihrer Natur nach vergänglich – Ihre Anwendungen sollten daher auch dafür sorgen, dass sie von Ihnen angelegte temporäre Dateien spätestens beim Beenden wieder löschen.<\/p>\n
Declare Function GetTempFileName Lib \"kernel32\" Alias \"GetTempFileNameA\" (ByVal _ pszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, _\r\n ByVal lpTempFileName As String) As Long<\/pre>\nQuellcode 1<\/b><\/p>\n
Wenn Sie für Ihr Programm eine temporäre Datei erzeugen wollen, brauchen Sie einen eindeutigen Dateinamen. Denn schließlich legen ja auch andere Anwendungen im TEMP-Ordner ihre Dateien ab, sodass es leicht zu Namenskonflikten kommen könnte.<\/p>\n
Sie könnten natürlich einfach einen beliebigen Dateinamen wählen und für den Fall, dass eine Datei dieses Namens bereits existieren sollte, in einer Schleife einen neuen Dateinamen kreieren, bis Sie einen freien gefunden haben. <\/p>\n
Doch besser ist wie immer der Weg, die speziell dafür bereitgestellte API-Funktion GetTempFileName (s. Quellcode 1) zu verwenden. Der Funktion werden vier Parameter übergeben.<\/p>\n
Im ersten Parameter, lpszPath übergeben Sie den Pfad, in dem der temporäre Dateiname angelegt werden soll, vorzugsweise den des TEMP-Ordners.<\/p>\n
In lpPrefixString übergeben Sie einen aus bis zu drei Zeichen bestehenden Präfix, den Sie dem Dateinamen voranstellen möchten. Damit können Sie gewissermaßen eine Anwendung individuell hervorheben. Sie können natürlich auch ganz normal ein „tmp“ übergeben.<\/p>\n
Private Declare Function GetTempFileName _ Lib \"kernel32\" Alias \"GetTempFileNameA\" _ (ByVal lpszPath As String, ByVal lpPrefixString As _ String, ByVal wUnique As Long, _ ByVal lpTempFileName As String) As Long \r\nPrivate Declare Function GetTempPath Lib \"kernel32\" _ Alias \"GetTempPathA\" (ByVal BufferLength As Long, _ ByVal lpBuffer As String) As Long\r\nPrivate Const kLength = 255\r\nPublic Function CreateTempFile(Optional Prefix As _ String = \"tmp\", Optional TempPath As String) _ As String\r\n Dim nBuffer, nTempPath As String\r\n Dim nReturn, nPosEnd As Long\r\n If Len(TempPath) = 0 Then\r\n nBuffer = Space(kLength)\r\n nReturn = GetTempPath(kLength, nBuffer)\r\n If nReturn > 0 Then\r\n nTempPath = Left(nBuffer, nReturn)\r\n Else\r\n nTempPath = CurDir$\r\n If Right$(nTempPath, 1) <> \"\\\" Then\r\n nTempPath = nTempPath & \"\\\"\r\n End If\r\n End If\r\n Else\r\n nTempPath = TempPath\r\n End If\r\n nBuffer = Space(kLength)\r\n nReturn = GetTempFileName(nTempPath, Left$(Prefix, _ 3), 0&, nBuffer)\r\n If nReturn <> 0 Then\r\n nPosEnd = InStr(nBuffer, Chr$(0))\r\n If nPosEnd = 0 Then\r\n CreateTempFile = nBuffer\r\n Else\r\n CreateTempFile = Left(nBuffer, nPosEnd - 1)\r\n End If\r\n End If\r\nEnd Function<\/pre>\nQuellcode 2<\/b><\/p>\n
Um den Parameter wUnique brauchen Sie sich nicht unbedingt zu kümmern. Hier könnten Sie Ihrer temporären Datei eine von Ihrer Anwendung selbst generierte und verwaltete Nummer geben. übergeben Sie 0, erzeugt Windows selbst eine eindeutige Zahl anhand der Systemzeit.<\/p>\n
Im Puffer lpTempFileName liefert Ihnen die Funktion den erzeugten Dateinamen zurück.<\/p>\n
Die Funktion CreateTempFile (s. Quellcode 3) verpackt den Aufruf auf VBA-gerechte und einfach zu handhabende Weise.<\/p>\n
Beide Parameter sind optional. Verzichten Sie auf den individuellen Präfix, wird „tmp“ als Präfix verwendet. Lassen Sie die Pfadangabe weg, wird die Datei automatisch im TEMP-Ordner des Systems angelegt. Dazu wird hier die API-Funktion GetTempPath (s. Quellcode 2) direkt aufgerufen (Gesucht Systemordner). Konnte aus irgendeinem Grund keine temporäre Datei angelegt werden, wird ein leerer String zurückgegeben.<\/p>\n
Beachten Sie, dass der Aufruf der API-Funktion GetTempFileName (s. Quellcode 2) auf jeden Fall eine Datei anlegt, die Sie nach Gebrauch oder Nichtgebrauch wieder ordnungsgemäß löschen sollten. Dieses Funktionalität der API-Funktion ist sinnvoll, da nach der Ermittlung eines unverwendeten Dateinamens dieser unter Umständen doch schon nicht mehr frei sein könnte, wenn Sie selbst nur Sekunden später eine Datei dieses Namens anzulegen versuchten.<\/p>\n
Function CreatePathDeep(NewPath As String) As Boolean\r\n Dim nNewPath As String\r\n Dim nStart As Integer\r\n nNewPath = Trim$(NewPath)\r\n If Left$(nNewPath, 2) = \"\\\\\" Then\r\n If Len(nNewPath) > 6 Then\r\n nStart = 7\r\n Else\r\n Exit Function\r\n End If\r\n ElseIf Mid$(nNewPath, 2, 2) = \":\\\" Then\r\n nStart = 4\r\n Else\r\n Exit Function\r\n End If\r\n If nStart Then\r\n Do\r\n nPos = Instr(nStart, nNewPath, \"\\\")\r\n If nPos Then\r\n On Error Resume Next\r\n MkDir Left$(nNewPath, nPos - 1)\r\n On Error GoTo 0\r\n Else\r\n On Error Resume Next\r\n MkDir nNewPath\r\n If Err.Number = 0 Then\r\n CreatePathDeep = True '' Erfolg\r\n End If\r\n On Error GoTo 0\r\n End If\r\n Loop While nPos\r\n End If\r\nEnd Function<\/pre>\nQuellcode 3<\/b><\/p>\n
Ein neuer Ordner in einem tief verschachtelten Pfad kann mit der VBA-Funktion MkDir nur dann angelegt werden, wenn der Pfad selbst bereits vorhanden ist. Anderenfalls ist es in VBA eine recht mühselige Angelegenheit.<\/p>\n
Wollten Sie beispielsweise den Pfad c:\\abc\\def\\ghi anlegen, wenn selbst c:\\abc noch nicht existiert, sähe das etwa so aus:<\/p>\n
On Error Resume Next\r\nMkDir \"c:\\abc\"\r\nMkDir \"c:\\abc\\def\"\r\nMkDir \"c:\\abc\\def\\ghi\"\r\nOn Error GoTo 0<\/pre>\nDirekt an Ort und Stelle im Code platziert ist das schon recht aufwändig. Es würde allerdings noch aufwendiger, wenn Sie diese Codezeilen als allgemein verwendbare Funktion implementieren wollten (s. Quellcode 3).<\/p>\n
Für Windows-Versionen vor Windows 98 werden Sie nicht darum herum kommen, eine solche oder ähnliche Funktion auf diese Weise zu implementieren. Ab Windows 98 und unter Windows NT können Sie jedoch eine API-Funktion aus einer der System-DLLs (imagehlp.dll) verwenden.<\/p>\n
<\/p>\n
Die Funktion MakeSureDirectoryPathExists (s. Quellcode 4) hält, was ihr Name verspricht. Sie stellt sicher, dass der als Parameter übergebene Pfad nach ihrem Aufruf tatsächlich existiert – selbst wenn sie ihn erst anlegen muss. Das heißt – sie versucht zumindest, das Versprechen zu halten.<\/p>\n
Natürlich kann auch sie nichts gegen nicht bereite Laufwerke oder Netzwerkpfade ausrichten. Und ohne die entsprechenden Berechtigungen wird auch sie keine Pfade anlegen können. Den Erfolg meldet sie mit dem Rückgabewert 1 – bei Misserfolg ist dieser 0.<\/p>\n
Private Declare Function MakeSureDirectoryPathExists _\r\n Lib \"imagehlp.dll\" (ByVal lpPath As String) As Long<\/pre>\nQuellcode 5<\/b><\/p>\n
Public Function CreatePath(NewPath As String) As Boolean\r\n Dim nNewPath As String\r\n nNewPath = Trim$(NewPath)\r\n If Right$(nNewPath, 1) <> \"\\\" Then\r\n nNewPath = nNewPath & \"\\\"\r\n Else\r\n nNewPath = nNewPath\r\n End If\r\n CreatePath = _ CBool(MakeSureDirectoryPathExists(nNewPath))\r\nEnd Function<\/pre>\nQuellcode 6<\/b><\/p>\n
Sie erwartet allerdings einen abschließenden „\\“ bei der übergabe des anzulegenden Pfades. Anderenfalls nimmt die Funktion an, dass der letzte Teil ein Dateiname sein könnte und legt diesen Teil daher nicht als Pfadbestandteil an.<\/p>\n
Und so rufen Sie diese Funktion beispielsweise auf und prüfen den Erfolg:<\/p>\n
Private Declare Function _ MakeSureDirectoryPathExists _\r\n Lib \"imagehlp.dll\" (ByVal lpPath As _ String) As Long\r\n '' ...\r\n If Not (Cbool _ (MakeSureDirectoryPathExists _ (\"c:\\abc\\def\\ghi\\\") Then\r\n MsgBox \"Pfad konnte nicht \" _ & \"angelegt werden.\"\r\n End If<\/pre>\nWenn Sie die Funktion benötigen, um beispielsweise eine Datei, deren Zielpfad und Name in einem String zusammen vorliegen, in genau diesen Zielpfad zu kopieren, können Sie sich die Sicherheitsmaßnahmen dieser Funktion zunutze machen: Sie können den Pfadstring (eben einschließlich des Dateinamens) an sie übergeben, ohne ihn zuvor erst in Pfad und Dateinamen zerlegen zu müssen.<\/p>\n
Wenn Sie sich jedoch nicht bei jedem Aufruf um den abschließenden „\\“ kümmern wollen, verpacken Sie die API-Funktion in eine eigene Funktion, CreatePath, die automatisch den abschließenden „\\“ hinzufügt, falls er fehlen sollte (s. Quellcode 6). <\/p>\n
Es ist kaum verwunderlich, dass eine Funktion zum Ein- und Ausfahren eines CD-Laufwerks im Multimedia-API zu finden ist – immerhin wird ein CD-Laufwerk gelegentlich zu den Multimedia-Geräten gezählt.<\/p>\n
Allerdings mutet der Umgang mit der API-Funktion mciExecute ein wenig seltsam an. So muss der auszuführende Befehl im Klartext als String übermittelt werden. Und daher muss dieser String mit der Angabe des entsprechenden CD-Laufwerks erst einmal zusammengebaut werden.<\/p>\n
Ein Schwachpunkt der Funktion ist, dass sie keine vernünftige Fehlerbehandlung ermöglicht, falls etwa eine Laufwerksbezeichnung für ein Nicht-CD-Laufwerk angegeben worden ist oder falls das Laufwerk aus irgendeinem Grund nicht bereit ist.<\/p>\n
Es werden dem Anwender lediglich nichtssagende Fehlermeldungen angezeigt, die sich offensichtlich nicht per Code unterdrücken lassen. Eine falsche Laufwerksbezeichnung können Sie jedoch schon vorab verhindern, indem Sie mittels der API-Funktion GetDriveType prüfen, ob es sich um ein CD-Laufwerk handelt. Mittels dieser Funktion können sie zudem auch ein CD-Laufwerk ermitteln.<\/p>\n
Option Compare Text\r\nPrivate Declare Function GetDriveType Lib \"kernel32\" _ Alias \"GetDriveTypeA\" (ByVal nDrive As String) As _ Long\r\nPrivate Declare Function mciExecute Lib \"winmm.dll\" _ (ByVal lpstrCommand As String) As Long\r\nPublic Function OpenCloseCD(Optional Drive As String, _\r\n Optional ByVal OpenClose As Boolean = True, _\r\n Optional FindFirstCDDrive As Boolean) As Boolean\r\n Dim nDrive, nExec, nAlias, nResult As Long\r\n Const DRIVE_CDROM = 5\r\n If FindFirstCDDrive Then\r\n nDrive = GetFirstCDDrive()\r\n Else\r\n nDrive = Trim$(Drive)\r\n If Len(nDrive) Then\r\n nDrive = Left$(nDrive, 1)\r\n If nDrive Like \"[a-z]\" Then\r\n If GetDriveType(nDrive & \":\\\") <> _ DRIVE_CDROM Then\r\n Exit Function\r\n End If\r\n End If\r\n End If\r\n End If\r\n If Len(nDrive) Then\r\n nAlias = \"CDDrive\" & nDrive\r\n nExec = \"Open \" & nDrive _ & \": Type CDAudio Alias \" & nAlias\r\n nResult = mciExecute(nExec)\r\n If nResult Then\r\n If OpenClose Then\r\n nExec = \"Set \" & nAlias & \" Door Open\"\r\n Else\r\n nExec = \"Set \" & nAlias _ & \" Door Closed\"\r\n End If\r\n nResult = mciExecute(nExec)\r\n If nResult Then\r\n nExec = \"Close \" & nAlias\r\n nResult = mciExecute(nExec)\r\n OpenCloseCD = True\r\n End If\r\n End If\r\n End If\r\nEnd Function<\/pre>\nQuellcode 7<\/b><\/p>\n
Die folgende Funktion OpenCloseCD (s. Quellcode 7) übernimmt diese Prüfungen und verwendet, falls kein Laufwerk angegeben und im optionalen Parameter FindFirstCDDrive True übergeben worden ist, das erste verfügbare CD-Laufwerk des Systems.<\/p>\n
Als Laufwerksbezeichnung können Sie den Laufwerksbuchstaben alleine (Groß- oder Kleinbuchstabe), eine übliche Laufwerksbezeichnung mit Doppelpunkt oder einen beliebigen Pfad auf der CD angeben.<\/p>\n
Beachten Sie, dass zur Prüfung des Laufwerksbuchstabens unabhängig von der Groß-\/Kleinschreibung der VBA-Operator Like verwendet wird und dazu die Vergleichsmethode des Moduls, in dem sich die Funktion befindet, auf Textvergleich (Option Compare Text) eingestellt wird.<\/p>\n
Die weiter unten stehende Hilfsfunktion GetFirstCDDrive zur Ermittlung des ersten vorhandenen CD-Laufwerks können Sie natürlich auch für andere Zwecke verwenden.<\/p>\n
Stellen Sie sich nur einmal den Lärm vor, wenn in einem Großraumbüro mehrere Leute mit einer Anwendung arbeiten, die unablässig jede Fehleingabe, jede MessageBox, jedes öffnen eines Dialogs und dergleichen mit einem aufgeregten Piepser oder gar einer Klang-Fanfare quittiert.<\/p>\n
Public Function GetFirstCDDrive() As String\r\n Dim i As Integer\r\n Dim nCDDrive As String\r\n Const DRIVE_CDROM = 5\r\n For i = 65 To 90\r\n nCDDrive = Chr$(i) & \":\\\"\r\n If GetDriveType(nCDDrive) = DRIVE_CDROM Then\r\n GetFirstCDDrive = nCDDrive\r\n Exit For\r\n End If\r\n Next ''i\r\nEnd Function<\/pre>\nQuellcode 8<\/b><\/p>\n
Public LocalBeep As Boolean\r\nPublic Sub Beep()\r\n If LocalBeep Then\r\n VBA.Beep\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 9<\/b><\/p>\n
Private Declare Sub SystemParametersInfoGet Lib _ \"user32\" Alias \"SystemParametersInfoA\" (ByVal _ uAction As Long, ByVal uParam As Long, lpvParam As _ Any, ByVal fuWinIni As Long)\r\nPrivate Declare Sub SystemParametersInfoSet Lib _ \"user32\" Alias \"SystemParametersInfoA\" (ByVal _ uAction As Long, ByVal uParam As Long, ByVal _ lpvParam As Long, ByVal fuWinIni As Long)\r\nPrivate Const SPI_GETBEEP = 1\r\nPrivate Const SPI_SETBEEP = 2\r\nPrivate Const SPIF_SENDWININICHANGE = &H2\r\nPrivate Const SPIF_UPDATEINIFILE = &H1\r\nPublic Property Get SysBeep() As Boolean\r\n Dim nSysBeep As Boolean\r\n SystemParametersInfoGet SPI_GETBEEP, 0, _ nSysBeep, 0\r\n SysBeep = nSysBeep\r\nEnd Property\r\nPublic Property Let SysBeep(ByVal New_SysBeep As _ Boolean)\r\n SystemParametersInfoSet SPI_SETBEEP, _ CLng(New_SysBeep), 0&, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE\r\nEnd Property<\/pre>\nQuellcode 10<\/b><\/p>\n
Da macht es durchaus Sinn, dem Anwender die Möglichkeit zu geben, die akustische Signalisierung abzuschalten.<\/p>\n
Mithilfe des hier vorgestellten Moduls können Sie zum einen festlegen, natürlich vom Anwender einstellbar, ob die Beep-Anweisungen in Ihrer Anwendung hörbar werden. Und zum anderen können Sie auch systemweit das Piepen ein- und ausschalten.<\/p>\n
Aber ganz abgesehen davon: Sie sollten die Beep-Anweisung so sparsam wie möglich einsetzen. Denn ein Alarmsignal verliert seine alarmierende Wirkung, wenn es ständig und andauernd ausgelöst wird. Denken Sie nur einmal an die Alarm-Anlage in Ihrer Nachbarschaft, die wegen übersensibilität oder wegen einer Fehlfunktion so oft anspringt, dass letztlich niemand mehr darauf achtet – auch dann nicht, wenn tatsächlich einmal Einbrecher die Ursache des Alarms sein sollten.<\/p>\n
Das Modul modBeep.bas bietet Ihnen zum einen die Möglichkeit, die Aufrufe der Beep-Anweisung aus Ihrer Anwendung abzufangen und gegebenenfalls zu unterdrücken. Das Prinzip ist einfach: Die öffentliche Prozedur Beep (s. Quellcode 9) überschreibt die originale VBA-Anweisung, die in dieser Prozedur nur dann aufgerufen wird, wenn die globale Variable LocalBeep auf True gesetzt ist. Zum anderen können Sie in diesem Modul das Beep-Signal systemweit ein- und ausschalten.<\/p>\n
Dazu wird die API-Funktion SystemParametersInfo (s. Quellcode 10) mit dem Index SPI_SETBEEP aufgerufen, der im zweiten Parameter die gewünschte Einstellung übergeben wird. Sie brauchen im Code Ihrer Anwendung lediglich die Eigenschaft SysBeep auf True oder False zu setzen. Umgekehrt liefert Ihnen diese Eigenschaft die aktuelle Einstellung im System.<\/p>\n
Da der dritte Parameter der API-Funktion zum Setzen als As Long mit Wertübergabe (ByVal), zum Auslesen jedoch als As Any deklariert sein muss, damit (für eine API-Funktion sehr ungewöhnlich) eine Variable vom Typ Boolean übergeben werden kann, werden hier zwei separate Alias-Deklarationen verwendet. <\/p>\n
Ziemlich undurchsichtig erscheinen die Informationen, die Ihnen die API-Funktion GetVersionEx über das installierte Betriebssystem liefert. Womöglich kann bei Microsoft selbst niemand mehr so richtig nachvollziehen, warum sich sowohl alle Windows 9x-Versionen als auch NT 4.0 als Hauptversion 4 zu erkennen geben.<\/p>\n
Wahrscheinlich beruht das auf dem ursprünglich für einen viel früheren Zeitpunkt geplanten Zusammenwachsen der Betriebssysteme auf der Basis eines gemeinsamen Kerns.<\/p>\n
Grundsätzlich ergibt sich die tatsächliche Betriebssystem-Version aus der Kombination der Hauptversion (Major) und der Unterversion (Minor) mit der Plattform-Kennung (Plat-formID – 32s, 9x oder NT).<\/p>\n
Im Prinzip reicht es, von der API-Funktion GetVersionEx die benutzerdefinierte Variable OSVERSIONINFO füllen zu lassen. Sie umfasst bereits alle zur Bestimmung des Betriebssystems notwendigen Informationen. Ein wenig mehr können allerdings die neueren Windows-Versionen über sich erzählen: Windows 2000 und Windows XP – und auch schon Windows NT 4.0 ab Service Pack 6.<\/p>\n
Die um die erweiterten Informationen größere benutzerdefinierte Variable OSVERSIONINFOEX kann auch erst unter diesen Versionen an GetVersionEx übergeben werden. Und gerade sie bietet erst eine systematischere Unterscheidung der Service-Pack-Stufe, sogar wiederum mit einer getrennten Kennung Haupt- und Unterversion, wie Sie sie eigentlich schon unter NT 4.0 brauchen könnten, um das Vorhandensein des Service Pack 6 feststellen zu können.<\/p>\n
Eine etwas vage anmutende Information können Sie dazu jedoch auch schon über OSVERSIONINFO in Erfahrung bringen. Im Element szCSDVersion (einem String der festen Länge 128) werden nämlich Zusatzinformationen geliefert – unter Windows 9x eine Kennung für die Release-Version (OSR, Second Edition usw.) und unter NT\/2000 die ServicePack-Stufe im Klartext. Zumindest unter NT 4.0 können sich Sie sich wohl darauf verlassen, dass die Nummer des Service Packs mit dem 14. Zeichen beginnt.<\/p>\n
Wir haben für Sie die Auswertung der Einzelinformationen in ein Standard-Modul gepackt. Sie initialisieren es einmal mit dem Aufruf der Prozedur ReadVersionInfo, in der mittels GetVersionEx die Informationen einmal eingelesen werden. über eine ganze Reihe von Eigenschaften können Sie nun die Details auslesen.<\/p>\n
Zum einen entspricht jeweils eine Eigenschaft einem jeden Element von OSVERSIONINFOEX. Für den Fall, dass GetVersionEx jedoch nicht damit aufgerufen werden konnte, sondern lediglich mit OSVERSIONINFO, wird deren Inhalt einer modulweit gültigen Variablen des Typs OSVERSIONINFOEX per LSet zugewiesen.<\/p>\n
Zum anderen bietet das Modul eine direkte Möglichkeit, die Windows-Version als enumerierten Wert aus der Eigenschaft WinVersion auszulesen, als auch als Klartext aus der Eigenschaft WinVersionText. Schließlich können Sie noch über separate Eigenschaften für jede Betriebssystem-Version erfragen, ob die jeweilige Version installiert ist.<\/p>\n
Hinweis<\/h3>\n
Den Quellcode zu diesem und zu den anderen Tipps und Tricks finden Sie im Modul modTippsUndTricks der Datenbank TippsUndTricks .mdb auf der Heft-CD. <\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
TippsUndTricks00.mdb<\/p>\n
TippsUndTricks97.mdb<\/p>\n