Hi Leute!
Wenn ich folgendes Programm
Delphi-Quellcode:
program Ref2;
{$APPTYPE CONSOLE}
uses
Windows;
procedure ShowVersion;
var
osvi: TOSVersionInfo;
begin
FillChar(osvi, SizeOf(osvi), 0);
osvi.dwOSVersionInfoSize := SizeOf(osvi);
GetVersionEx(osvi);
Writeln(osvi.dwMajorVersion, '.', osvi.dwMinorVersion);
end;
begin
ShowVersion;
Readln;
end.
laufen lasse, erscheint bei mir unter XP (wo ich 5.1 erwarte), 7.3 auf dem Bildschirm. Benenne ich Ref2.exe um, z.B. in Ref1.exe, so erscheint beim Ausführen die erwartete 5.1. Wieder nach Ref2 umbenennen ==> 7.3 usw. usf. Kann mir jemand erklären, wie ich
das geschafft habe?
Danke im Voraus,
Uli.