Einzelnen Beitrag anzeigen

MathiasSimmack
(Gast)

n/a Beiträge
 
#6

Re: Windowsversion ermitteln in einer Konsolenanwendung?

  Alt 13. Nov 2003, 12:56
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ß.
  Mit Zitat antworten Zitat