GetVersionEx abhängig vom Programmnamen?

[uligerhardt]

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.