Sprach ID aus Exe auslesen

[Andreas13]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

 if InfoSize > 0 then
 ...
 end;

Delphi-Quellcode:

 if InfoSize > 0 then
 ...
 end else
   RaiseLastOSError;

Jetzt verstehe ich die Welt nicht mehr: Nun bekomme ich in ALLEN Debug Fällen, egal ob Win32 oder Win64 die Exception:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Sprach_ID_aus_Exe_auslesen_1.exe ist eine Exception der Klasse EOSError mit der Meldung 'Systemfehler. Code: 1813.
Der angegebene Ressourcentyp wurde nicht in der Image-Datei gefunden' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Und die kompilierten Exe liefern in allen 4 Fällen gar nichts mehr:

Delphi-Quellcode:

 
ShowMessage(Format('Sprach-ID: %.4x, Codepage: %.4x', [LangID, CodePage]));

Wird anscheinend überhaupt nicht mehr ausgeführt.
Und den früheren Zustand kann ich auch nicht mehr wiederherstellen. Auch ein frisches neues Projekt verhält sich genauso...