PC Magazin Classic XXL Windows 7.5 (Vorschau)

107
GC.Collect()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Criti
cal, „Fehler“)
End Try
End Sub
Damit ist die 64-Bit-Hauptanwendung kodiert,
die ihrerseits die 32-Bit-COM-Klasse mitsamt
den untergeordneten 32-Bit-Steuerelementen
fehlerfrei verwenden kann. Damit Dialoge korrekt
überlagert werden, ist in der COM-Klasse
der Dialog zur Dateiauswahl als oberstes
Fenster definiert (Topmost = True).
Geschwindigkeitsoptimierung
Bleibt abschließend zu betrachten, wie Sie
Systemaufrufe anhand von API-Deklarationen
optimieren. Grundlage dafür sind die mit
Windows 7 eingeführten Änderungen in der
System architektur. Im Windows-Systemverzeichnis
finden Sie eine Vielzahl neuer DLLs,
die am Präfix API-MS-WIN erkennbar sind.
Die Dateien selbst weisen geringe Größen auf
und exportieren lediglich bereits bekannte
API-Funktionen. Mit dem Dependency Walker
(siehe www.dependencywalker.com) legen
Sie die exportierten API-Funktionen und auch
Abhängigkeiten zwischen Modulen offen.
Starten Sie dazu einfach das Programm und
übernehmen Sie die zu analysierende DLL per
Drag & Drop in das Analyse-Tool. Die Datei
api-mswin-core-file-11-1-0-dll exportiert beispielsweise
die grundlegenden API-Funktionen
zu den Dateioperationen.
Laden Sie aus Vista bekannte DLLs in den Dependency
Walker, dann sehen Sie, dass die
neuen DLLs statisch an die alten System-DLLs
gebunden sind. In diesem Zusammenhang
taucht auch die neue Systemdatei kernelbase.dll
auf. Viele Kernfunktionen haben in älteren
Windows-Systemen API-Aufrufe direkt
an ntdll.dll abgesetzt. Unter Windows 7 ist
hingegen die neue kernelbase.dll dazwischen
geschaltet. Die DLLs sind leer ohne eigentliche
Funktion. Sie werden nach Bedarf mit geringem
Speicherverbrauch geladen. Während
der API-Aufrufe werden dann die API-Funktionen
durch die tatsächlichen API-Aufrufe ersetzt.
Ziel der Änderungen ist ein schnelleres
Ausführen und Laden von Anwendungen und
deren Bibliotheken, ohne dass das Auswirkungen
auf die API-Funktionen selbst hat. Wie
Sie die ASPI-Funktion wahlweise per Stub File
oder direkt aufrufen, soll an dieser Stelle praktisch
gezeigt werden. Prinzipiell spielt es keine
Rolle, ob Sie DLL-Funktionen wie gewohnt
oder aber über die neuen kompakteren DLLs
und entsprechend angepasste Deklarationsanweisungen
aufrufen. Wie Sie die API-Funktion
deklarieren, zeigen die nachfolgenden
So sieht die Herstellung des COM-Verweises aus
(COM-Klasse und WMI).
Deklarationsanweisungen. Die API-Stub-File-
DLL (Ersatzdatei) ist anders als bei der herkömmlichen
Deklaration nicht mehr direkt an
die Datei kernel32.exe gebunden. Um beide
Deklarationen parallel zu definieren, sind die
Aufrufnamen mit Get WindowsDirectory und
GetWindowsDirectoryStubFile unterschiedlich
benannt.
‚alte Deklaration:
Declare Function GetWindowsDirectory
Lib „kernel32“
Alias „GetWindowsDirectoryA“ (ByVal
lpBuffer As String,
ByVal nSize As Integer) As Integer
‘alternative Deklaration über Stub
File:
Declare Function GetWindowsDirectoryBy
StubFile Lib
„api-ms-win-core-sysinfo-l1-1-0.dll“
Alias
„GetWindowsDirectoryA“ (ByVal lpBuffer
As String,
ByVal nSize As Integer) As Integer
Die benutzerdefinierte Funktion WinDir ermittelt
korrekten Verzeichnisnamen, wobei
Sie über den Optionalparameter OldCalling
(Standard True) frei festlegen, ob die alte
oder neue Aufrufsyntax verwendet werden
soll. Nutzen Sie die neue Aufrufsyntax (Old-
Calling = False), dann erzielen Sie für Ihre
Anwendung das gleiche Ladeverhalten, das
auch in den System-DLLs selbst zum Einsatz
kommt. Nach außen hin macht es unter Windows
7 und höher keinen Unterschied, welche
Deklarationsanweisung Sie verwenden.
Da die Umleitung der DLL-Aufrufe allerdings
über Dateien erfolgt, die in älteren Windows-
Systemen nicht verfügbar sind, lassen sich so
geänderte Anwendungen auch ausschließlich
unter Windows 7 oder höher ausführen, auch
wenn diese Systemfunktionen in den älteren
Windows-Systemen dennoch verfügbar sind.
Sie müssen also genau abwägen, unter welchen
Systemen eine Programmausführung
später gewünscht ist. Prinzipiell sollten Sie
aus Kompatibilitätsgründen bevorzugt mit
den bekannten, alten Deklarationen die erforderlichen
API-Aufrufe vornehmen.
Function WinDirectory(Optional OldCal
ling As Boolean = True) As String
Dim Buffer As String = Space(255)
Dim gcLen As Integer = Len(Buffer)
Dim aLen As Integer
If OldCalling Then
aLen = GetWindowsDirectory(Buffer,
gcLen)
Else
aLen = GetWindowsDirectoryByStubFile
(Buffer, gcLen)
End If
Return Buffer.Substring(0, aLen)
End Function
Wählen Sie im Beispielprogramm die Schaltfläche
ohne Stub Files an, wird das Windows-
Verzeichnis in der bewährten Variante ermittelt
und über einen Meldungsdialog angezeigt.
Private Sub btnNormalDeclaration_
Click(…) Handles btnNormalDeclaration.
Click
MsgBox(obj.WinDirectory(), MsgBoxSty
le.Information,
“Windows-Verzeichnis (herkömmliche
Deklaration)”)
End Sub
Den Aufruf in der neuen Variante zeigt die Ereignisprozedur,
die nach Anwahl der Schaltfläche
Stub Files ausgeführt wird. In Anwendungen
können Sie die Ausführung später
auch systemspezifisch anhand der abgefragten
Versionsinformationen des Systems
automatisch variieren und entsprechend dem
aktuellen System unterschiedlich abrufen.
Private Sub btnStubFileDeclaration_
Click(..) Handles btnStubFileDeclara
tion.Click
MsgBox(obj.WinDirectory(False), Msg
BoxStyle.Information,
“Windows-Verzeichnis (Stub File)”)
End Sub
Damit sind Sie für den Umstieg gewappnet
und portieren Ihre bestehenden 32-Bit-Anwendungen
Schritt für Schritt in die neue,
schöne 64-Bit-Welt.
whs
www.pc-magazin.de PC Magazin 9/2012