Manifest-Datei unter Windows7pro

[redox]

Moin!

Unter Windows7 habe ich kein Delphi/keinen Debugger, ich kompiliere unter Win8.1, da funktioniert alles.
Die Fehlermeldung wirft die Exe nur unter Win7 aus.

Umschiffe das jetzt mal so

Delphi-Quellcode:

function GetWinVersionInt: Integer;
var
  Version: TOSVersionInfo;
begin
  Version.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
  GetVersionEx(Version);
  Result := Version.dwMajorVersion * 10 + Version.dwMinorVersion;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'Die Manifest-Dateien führen unter Windows < 8 zum Absturz des Programms!';
  if GetWinVersionInt < 62 then
  begin
    MessageBox(Handle, PChar(s), 'Warnung', mb_IconStop);
    exit;
  end;
  //Erzeuge Manifeste...
end;

"GetWinVersionInt < 62" - falls Bernhard Geyer Recht hat und es unter älteren Windosen eigentlich auch knallen müsste

MfG