Windowsversion ermitteln in einer Konsolenanwendung?

[MathiasSimmack]

Zitat von mrmiagi:

Kann es denn niemand mal testen, oder so?
Wäre sehr dankbar!

Wie dankbar?
Ich hab´s selbst probiert:

Delphi-Quellcode:

{$APPTYPE CONSOLE}
program console;

uses
  Windows,
  Windows_Fragment,
  SysUtils;

function GetWinVersion: string;
{ ... }

begin
  MessageBox(0,pchar(GetWinVersion),'Info',0);
end.

Wichtig ist die Reihenfolge der Units! Wenn du

Delphi-Quellcode:

uses
  Windows_Fragment,
  Windows,
  SysUtils;

schreibst, dann siehst du die Fehlermeldung, weil in dem Fall die Original-Windows.pas hinter der Fragmentdatei geladen wird. Dadurch wird das alte Record genommen, und das kennt (in meinem Fall: Delphi 5) die erweiterten Membervariablen nicht.

So wie ich den obigen Auszug gepostet habe, so funktioniert´s bei mir ohne Fehlermeldung.

Gruß.