<\/p>\n
Christoph Jüngling, https:\/\/www.juengling-edv.de<\/p>\n
Das in diesem Artikel beschriebene Konzept hat das Ziel, die Registrierung des Installationsverzeichnisses als vertrauenswürdigen Speicherort zu automatisieren. Dadurch entfällt die Notwendigkeit für den Anwender, dies in Access selbst einzutragen. Vor allem vermeiden wir durch die spezifische Festlegung nur eines Verzeichnisses als vertrauenswürdig das Risiko, dass der Anwender unnötig viele Unterverzeichnisse quasi nebenher als vertrauenswürdig einstuft (was sie vielleicht nicht sein sollten).<\/b><\/p>\n
<\/b><\/p>\nAutomatisierung des Eintrags für die vertrauenswürdigen Speicherorte<\/h2>\n
Das Konzept der „vertrauenswürdigen Speicherorte“ ist seit längerem für (meines Wissens) alle Office-Programme von Microsoft gängig. Wie schon im vorherigen Artikel erläutert, möchte Microsoft damit verhindern, dass irgendeine Datei mit VBA-Code auf unsere Festplatte gelangt und ohne weitere Kontrolle ausgeführt wird.<\/p>\n
Ich habe von Leuten gehört, die der Einfachheit halber C:\\ <\/b>und alle Unterverzeichnisse als vertrauenswürdig einstufen, aber das scheint mir ein scheunentorgroßes Loch in die Sicherheit unseres Rechners zu schlagen. Jedes Verzeichnis, auch das Standardverzeichnis für temporäre Dateien, würde es dann erlauben, dass VBA-Makros ausgeführt werden! Das kann nicht in unserem Sinne sein.<\/p>\n
Bei Word und Excel zum Beispiel gibt es einen Trick: die digitale Signatur von VBA-Makros. Diese sichert die VBA-Makros der betreffenden Datei einerseits gegen Veränderungen ab, andererseits macht sie den Autor des Makros überprüfbar.<\/p>\n
In Verbindung mit der Einstellung Alle Makros außer digital signierten deaktivieren<\/b> (siehe Bild 1) erhält man so die Möglichkeit, die Makros aus dem eigenen Haus aktiv zu lassen, alle anderen jedoch zu blockieren.<\/p>\n
![\"Trustcenter-Einstellung](\"..\/fileadmin\/_temp_\/2021_06\/pic_1333_001.png\")
<\/p>\n
Bild 1: Trustcenter-Einstellung für VBA-Makros<\/span><\/b><\/p>\n Leider funktioniert die Verwendung einer digitalen Signatur für die VBA-Makros in Access nicht. Deshalb sind wir auf die korrekte Konfiguration der vertrauenswürdigen Speicherorte angewiesen.<\/p>\n Schauen wir uns das zunächst bei den Einstellungen von Access an. Das ist ein wichtiger Aspekt, denn diese Einstellung kann und muss für jedes Programm und jeden Windows-Useraccount individuell vorgenommen werden.<\/p>\n Öffnen Sie in Access Optionen|Trust Center|Einstellungen <\/b>für das Trustcenter. Dort finden Sie den Eintrag Vertrauenswürdige Speicherorte<\/b>. Falls dort bei Ihnen noch nichts steht, tragen Sie ruhig mal ein Verzeichnis ein, wie in Bild 2 gezeigt. Der Haken für die Unterordner muss nicht gesetzt werden, da diese Einstellung nur unsere .accdb<\/b>-Datei betrifft.<\/p>\n Bild 2: Eingabeformular für einen vertrauenswürdigen Speicherort<\/span><\/b><\/p>\n Unsere Eingabe wird in der Registry gespeichert, sobald wir die Dialoge mit OK <\/b>bestätigt haben. Dies erfolgt unter dem Pfad HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Office\\16.0\\Access\\Security\\Trusted Locations <\/b>(siehe Bild 3).<\/p>\n Bild 3: Registry-Eintrag eines vertrauenswürdigen Speicherorts<\/span><\/b><\/p>\n Die einzelnen Einträge erhalten dabei automatisch Namen wie hier im Beispiel Location1<\/b>. Sobald ein solcher Eintrag von uns gelöscht wird, wird er auch aus der Registry entfernt.<\/p>\n Damit haben wir eine Möglichkeit gefunden, den vertrauenswürdigen Speicherort für unsere eigene Applikation automatisiert einzutragen. Jetzt geht es nur noch darum, das richtige Format zu finden.<\/p>\n Wie man oben sieht, enthält der Registry-Pfad unter anderem die interne Access-Versionsnummer. Da ich diesen Artikel mit Access 2019 vorbereitet habe, steht dort 16.0<\/b>.<\/p>\n Diese Versionsnummer müssen wir während unserer Setupausführung ermitteln und korrekt verwenden.<\/p>\n Die zweite Aufgabe betrifft die erkennbare Durchnummerierung der Location<\/b>-Einträge. Doch hier gibt es eine ganz einfache Lösung: Das muss gar nicht sein. Wenn ich probeweise mal einen Eintrag umbenenne, funktioniert alles weiterhin wie gewohnt. Das heißt, dass wir zum Beispiel unsere Konstante {#MyAppName}<\/b> dafür hernehmen können.<\/p>\n <\/p>\n Es geht bei InnoSetup schon vieles über die einfachen Einstellungen, aber irgendwann ist halt eine Grenze erreicht. In den Fällen hat InnoSetup ein sehr mächtiges Werkzeug an Bord, auf das wir nun zurückgreifen müssen: Pascal-Scripting.<\/p>\n Was bei Microsoft Office das VBA ist, das ist im Prinzip das Pascal-Scripting für InnoSetup. Es handelt sich im Grunde um ein Konzept, das wir von Access her auch schon kennen.<\/p>\n Denn hier geht es ebenfalls nicht um ein großes Programm, dass das ganze Setup steuert, sondern rein darum, auf bestimmte Ereignisse zu reagieren. Das kann zum Beispiel der Start des Setups sein, oder auch der Zugriff auf bestimmte Werte für den Eintrag in die Registry.<\/p>\n Eingeleitet wird das Scripting durch eine Rubrikenüberschrift [Code]<\/b>, danach wird alles anders. Ab hier gelten die Regeln einer Programmiersprache, die rein zeilenorientierte Schreibweise des bisherigen Scripts gilt nicht mehr. Aus diesem Grunde muss die Code-Rubrik auch immer die letzte im gesamten Script sein!<\/p>\n Welche Funktionen benötigen wir Da ist zunächst, wie gesagt, die aktuelle Access-Version. Diese Funktion nenne ich CurAccVer<\/b>. Des weiteren finden wir in den Daten in der Registry noch das aktuelle Datum in amerikanischer Schreibweise.<\/p>\n Das wäre zwar ebenfalls nicht besonders notwendig, aber es ist erstens durchaus sinnvoll, und zweitens auch nicht schwer zu ermitteln.<\/p>\n Diese Funktion nenne ich einfach Now<\/b>. Schauen wir uns zunächst dieses Script an – später erkläre ich dann, wo und wie man diese Funktionen einbindet (siehe Listing 1).<\/p>\n Listing 1: Die Funktion CurAccVer<\/span><\/b><\/p>\n Pascal hat bezüglich seiner Programmiersprache andere Formalien als wir es von VB\/VBA her gewohnt sind, ist in mancher Hinsicht aber auch wesentlich toleranter. So kann zum Beispiel ein Zeilenvorschub fast überall eingefügt werden. Einrückungen sind ebenfalls nicht zwingend, aber willkommen, weil sie die Lesbarkeit des Programms für uns Menschen erleichtern.<\/p>\n Eine Besonderheit ist das Semikolon am Ende jeder Anweisung, das einige von Ihnen vielleicht auch von C\/C++ her kennen.<\/p>\n Das typische End.<\/b> am Ende des Programms (mit dem Punkt am Ende, das ist kein Schreibfehler!) wird in dieser Implementation jedoch nicht verwendet.<\/p>\n Und die Zuweisung wird in Pascal als := <\/b>geschrieben, der Vergleich wiederum als =<\/b>.<\/p>\n Eine weitere Besonderheit ist die Reihenfolge des Codes. Falls wir eine Funktion in einer anderen Funktion aufrufen wollen, muss die aufzurufende zuerst deklariert werden!<\/p>\n Die Funktionsdeklaration beginnt, wie wir es auch aus VB\/VBA kennen, mit dem Schlüsselwort Function<\/b>, einem Namen, den Aufrufparametern in runden Klammern und der Angabe des Ergebnistyps.<\/p>\n Auffällig ist wiederum, dass jede Typangabe durch einen Doppelpunkt vom vorangestellten Namen getrennt wird, so auch der Typ der Funktion:<\/p>\n Nach diesem „Kopf“ kommt die Variablendeklaration (sofern welche benötigt werden), die durch das Schlüsselwort Var<\/b> eingeleitet wird. Hier werden drei lokale Variablen deklariert:<\/p>\n Danach kommt der Funktionskörper, der durch die Schlüsselworte Begin <\/b>und End <\/b>eingefasst wird.<\/p>\n Zunächst versuchen wir, die Access-Version aus der Registry auszulesen. HKCR<\/b> ist dabei eine vordefinierte Konstante, die von uns einfach verwendet werden kann.<\/p>\n Die Funktion RegQueryStringValue <\/b>ist folgendermaßen definiert:<\/p>\n Der Aufruf erfolgt mit einem leeren String für ValueName<\/b>, was registrytechnisch den Default-Wert des angegebenen Schlüssels ausliest. Der letzte Parameter ist unsere Variable version, die das Ergebnis des Lesevorgangs erhält.<\/p>\n Der Eintrag in der Registry sieht übrigens wie in Bild 4 dargestellt aus.<\/p>\n Bild 4: Registry-Eintrag für Access<\/span><\/b><\/p>\n Davon interessieren wir uns nur für die Zahl am Ende. Mit der folgenden Schleife suchen wir den letzten Punkt in dem Ausdruck, und kopieren dann alles, was danach steht, in die Variable version:<\/p>\n Das Funktionsergebnis wird in Pascal stets mit der Zuweisung an die generische Variable Result definiert:<\/p>\n Und das war“s auch schon.<\/p>\n Kümmern wir uns noch schnell um das aktuelle Datum mit der Uhrzeit. In der Registry finden wir den Eintrag Date<\/b>: 08\/17\/2021 14:31<\/b>, also Monat\/Tag\/Jahr<\/b>, gefolgt von einem Leerzeichen und Stunde:Minute<\/b>.<\/p>\n Das ist einfach, denn die vordefinierte Funktion Get-DateTimeString <\/b>lässt sich genau dafür verwenden:<\/p>\n Der Variablen-Abschnitt entfällt hier, weil keine lokale Variable erforderlich ist (Result <\/b>müssen wir nicht deklarieren). Hierbei sehen Sie auch gleich noch, wie man Kommentare in Pascal definiert: (* … *)<\/b>.<\/p>\n Aber wie verwenden wir diese Funktionen, das heißt, wie rufen wir sie auf<\/p>\n Zunächst benötigen wir eine Rubrik [Registry]<\/b>, über den in InnoSetup Registry-Einträge manipuliert werden können. Diese Rubrik muss natürlich vor dem [Code]<\/b>-Eintrag stehen! Sie finden diese in Listing 2.<\/p>\nEinen vertrauenswürdigen Speicherort eintragen<\/h2>\n
![\"Eingabeformular](\"..\/fileadmin\/_temp_\/2021_06\/pic_1333_002.png\")
<\/p>\n![\"Registry-Eintrag](\"..\/fileadmin\/_temp_\/2021_06\/pic_1333_003.png\")
<\/p>\nPascal-Scripting in InnoSetup<\/h2>\n
Function <\/span>CurAccVer(dummy: String): String;\r\nVar\r\n ok: Boolean;\r\n version: String;\r\n position: Integer;\r\nBegin\r\n \r\n ok := RegQueryStringValue(HKCR, ''Access.Application\\CurVer'', '''', version);\r\n repeat\r\n position := Pos(''.'', version);\r\n if position > 0 then version := Copy(version, position+1, 999);\r\n until position = 0;\r\n Result := version;\r\nEnd;<\/pre>\nPascal und seine Besonderheiten gegenüber VB\/VBA<\/h2>\n
Function <\/span>CurAccVer(dummy: String): String;<\/pre>\nVar\r\n ok: Boolean;\r\n version: String;\r\n position: Integer;<\/pre>\n
ok := RegQueryStringValue(HKCR, ''Access.Application\\CurVer'', '''', version);<\/pre>\n
function RegQueryStringValue(const RootKey: Integer; const SubKeyName, ValueName: String; var ResultStr: String): Boolean;<\/pre>\n
![\"Registry-Eintrag](\"..\/fileadmin\/_temp_\/2021_06\/pic_1333_004.png\")
<\/p>\n repeat\r\n position := Pos(''.'', version);\r\n if position > 0 then version := Copy(version, position+1, 999);\r\n until position = 0;<\/pre>\nResult := version;<\/pre>\n
Function <\/span>Now(dummy: String): String;\r\nBegin\r\n (* Gewünschtes Format: \"10\/24\/2020 12:34\" *)\r\n Result := GetDateTimeString(''mm\/dd\/yyyy hh:nn'', ''\/'', '':'');\r\nEnd;<\/pre>\n[Registry]\r\nRoot: HKCU; Subkey: Software\\Microsoft\\Office\\{code:CurAccVer}.0\\Access\\Security\\Trusted Locations\\{#MyAppName}; \r\nValueType: string; ValueName: \"Path\"; ValueData: {app}; Flags: uninsdeletekey;\r\nRoot: HKCU; Subkey: Software\\Microsoft\\Office\\{code:CurAccVer}.0\\Access\\Security\\Trusted Locations\\{#MyAppName}; \r\nValueType: string; ValueName: \"Date\"; ValueData: {code:Now}; Flags: uninsdeletekey;\r\nRoot: HKCU; Subkey: Software\\Microsoft\\Office\\{code:CurAccVer}.0\\Access\\Security\\Trusted Locations\\{#MyAppName}; \r\nValueType: string; ValueName: \"Description\"; ValueData: \"Installationspfad für {#MyAppName}\"; Flags: uninsdeletekey;\r\nRoot: HKCU; Subkey: Software\\Microsoft\\Office\\{code:CurAccVer}.0\\Access\\Security\\Trusted Locations\\{#MyAppName}; \r\nValueType: dword; ValueName: \"AllowSubfolders\"; ValueData: \"$00000000\"; Flags: uninsdeletekey;<\/pre>\n