Type _OSVERSIONINFOA - Verständnisproblem

[Mazel]

Hallo,

Ich habe ein kleines Verständisproblem mit der Typ-Deklaration von verschiedenen Typen. Weil ich gerade TOSVersionInfo gebraucht habe, nehme ich dies als Beispiel:
In der Windows.pas ist _OSVERSIONINFOA folgendermaßen deklariert:

Delphi-Quellcode:

type 
  POSVersionInfoA = ^TOSVersionInfoA; 
  POSVersionInfoW = ^TOSVersionInfoW; 
  POSVersionInfo = POSVersionInfoA; 
  _OSVERSIONINFOA = record 
    dwOSVersionInfoSize: DWORD; 
    dwMajorVersion: DWORD; 
    dwMinorVersion: DWORD; 
    dwBuildNumber: DWORD; 
    dwPlatformId: DWORD; 
    szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage } 
  end; 

  _OSVERSIONINFO = _OSVERSIONINFOA; 
  TOSVersionInfoA = _OSVERSIONINFOA; 
  TOSVersionInfoW = _OSVERSIONINFOW; 
  TOSVersionInfo = TOSVersionInfoA; 
  OSVERSIONINFOA = _OSVERSIONINFOA;

Nun, zunächst wollte ich wissen, was das 'A' und das 'W' bedeutet? Ich nehme an Ansi und Wide aber warum wird das getrennt behandelt?

Desweiteren verstehe ich nicht, warum der eigentliche Type _OSVersionInfoA so oft "hin und her" gesetzt wird. Also warum ist nicht
TOSVersionInfo = _OSVERSIONINFOA sondern erst
TOSVersionInfoA = _OSVERSIONINFOA und TOSVersionInfo = TOSVersionInfoA?

Ich hoffe mir kann jemand eine Antwort geben.

Gruß
Mazel

[CCRDude]

Das wird getrennt behandelt, weil die Windows-API das auch getrennt behandelt (sehr viele Funktionsaufrufe heißen auch FunktionsnameA und FunktionsnameW, wobei dann FunktionsnameA auch als Funktionsname verwendet wird).

Und das Namenshickhack mit mehreren Namen für denselben Typ hängt wahrscheinlich damit zusammen, daß die großgeschriebene Variante erst einmal die direkte Übersetzung aus einem C-Header ist (so kann man mal eben auch ein C-Beispiel direkt übersetzen, ohne erst den komfortableren Pascal-Namen zu kennen), und die Variante mit T und Groß-/Kleinschreibung danach noch einmal für bessere Lesbarkeit, der Pascal-Schreiber ist da schließlich verwöhnt

[Mazel]

Das heißt also eigentlich für mich, dass ich ohne Problem gleich folgendes schreiben könnte:

Delphi-Quellcode:

type 
  TOSVersionInfo = record 
    dwOSVersionInfoSize: DWORD; 
    dwMajorVersion: DWORD; 
    dwMinorVersion: DWORD; 
    dwBuildNumber: DWORD; 
    dwPlatformId: DWORD; 
    szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage } 
  end;

[Muetze1]

Ja, was dann aber explizit der Ansi Variante entspricht. Die Wide Variante hätte am Ende ein Array of WideChar und somit einen doppelt so grosses Member an der Stelle.

[OldGrumpy]

Bei solchen "dann kann ich ja einfach"-Aktionen bitte immer auch bedenken dass es Systeme gibt, auf denen die Variante ohne Suffix eben NICHT die Ansi- sondern die Wideversion ist. Wenn also Code geschrieben wird der auf mehr als dem eigenen Rechner zuhause laufen soll, dann lieber die vorhandenen Typen nehmen, man spart sich später dann viel Aufwand. Nebenbei sind die Wideversionen auf WinNT aufwärts per se (wenn auch marginal) schneller, weil der Kernel immer mit Widetypen arbeitet und für die Ansi-Aufrufe nochmals Wandlungen zwischen Ansi und Wide und wieder zurück notwendig werden.

[Mazel]

So ganz verstanden habe ich deine Aussage nicht, genauer, den ersten Teil. Das mit den Umwandlungen ist klar, aber nicht

Zitat von OldGrumpy:

[..], dass es Systeme gibt, auf denen die Variante ohne Suffix eben NICHT die Ansi- sondern die Wideversion ist.

[Bernhard Geyer]

Zitat von Mazel:

So ganz verstanden habe ich deine Aussage nicht, genauer, den ersten Teil. Das mit den Umwandlungen ist klar, aber nicht

Zitat von OldGrumpy:

[..], dass es Systeme gibt, auf denen die Variante ohne Suffix eben NICHT die Ansi- sondern die Wideversion ist.

Wenn du mal mit einem Delphi-64-Bit-Compiler compilieren willst könnte es probleme geben. Dort gibt es AFAIK keine ANSI-Versionen der API mehr.

[Mazel]

Wenn ich jetzt aber als Beispiel die WindowsVersion ermitteln will verwende ich doch trotzdem TOSVersionInfo, der aber für Ansi angeführt ist, wie komme ich dann zu der Wide-Version?
Ich denke, hier im Forum nur den Type TOSVersionInfo für Ansi zu finden.

[OldGrumpy]

Kleines Beispiel: Wenn ich ein japanisches Windows nehme, dann sind da API-Aufrufe ohne Suffix generell die Wide-Varianten. Man erspart sich viel Arbeit für die Zukunft wenn man so früh wie möglich komplett auf Widetypen umsteigt - Die nötigen Wandlungen macht bei Delphi eh fast immer Compilermagic. Dafür laufen die Programme dann auch ohne viel Klimmzüge in exotischen Umgebungen Der Kernel arbeitet intern eh immer mit Widetypen und konvertiert für die Ansi-APIs transparent hin und her. Das kostet zwar nur marginal Zeit, aber... Ganz fiese Stolperfalle sind allerdings APIs die in Ansi und Wide unterschiedliche Parameter erwarten (ja, sowas gibts!), immer lieber nochmal in der MSDN nachschauen. Ich stell meinen alten Code Stück für Stück auf Wide um, immer wenn ich mal wieder ne Funktion oder Klasse recycle, wird die gleich entsprechend umgebaut. Win 9x-Kompatibilität ist bei meinen Projekten gottseidank gar kein Thema. Das ist gleichzeitig auch wohl fast der einzige Grund, überhaupt noch mit den Ansitypen zu arbeiten.

[Mazel]

Der Grund für die Frage ist eigentlich nur, dass ich ein kleine Funktion schreiben will, die ermittelt, ob das vorhandene System NT-Plattform ist oder nicht. Da GetVersionEx die einzigste Funktion aus der Windows.pas wär, wollte ich sie in meine Unit aufnehmen. Dazu auch den Typ. NUn dachte ich, ich könnte das so machen:

Delphi-Quellcode:

type
  TOSVersionInfo = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of AnsiChar;
  end;
.
.
function GetVersionEx(var lpVersionInformation: TOSVersionInfo): LongBool; stdcall;
.
.
implementation

function GetVersionEx; external 'kernel32.dll' name 'GetVersionExA';

Würde das so also nicht auf anderen System möglicher Weise funktionieren? Stattdessen sollte ich

Delphi-Quellcode:

szCSDVersion: array[0..127] of WideChar;
.
.
function GetVersionEx; external 'kernel32.dll' name 'GetVersionExW';

verwenden?