Einzelnen Beitrag anzeigen

redox
(Gast)

n/a Beiträge
 
#18

AW: Manifest-Datei unter Windows7pro

  Alt 13. Jul 2015, 08:40
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

Geändert von redox (13. Jul 2015 um 08:42 Uhr) Grund: typo
  Mit Zitat antworten Zitat