Delphi 7 32-Bit unter Windows 10/11 64-Bit Pro (.DEU und .ENU Dateien) CRASH

[paule32.jk]

Hallo,

ich habe die reinit.pas in das Projekt aufgenommen.
Weiters habe ich unten stehenden Quellcode.
Leider bekomme ich beim aufrufen der Prozedur eine Ausnahme: "Ancestor for '' not found."
Ist da vielleicht ein Fehler in der reinit.pas ?

Gruß, paule

Code:

procedure TForm1.PopupMenu_Tools_Language_GermanClick(Sender: TObject);
const
  GERMAN = (SUBLANG_GERMAN  shl 10) or LANG_GERMAN ;
begin
  try
    if LoadNewResourceModule(GERMAN) <> 0 then
    ReinitializeForms;
  except
    on E: Exception do
    begin
      ShowMessage('Exception occur:' + #13#10 + E.Message);
    end;
  end;
end;

[himitsu]

Dass es einen Fehler gab, weiß man auch so.
Und ohne dieses nutzlose Try-Except, sogar mit Fehler-Icon im Dialog.

In einem nicht-englischsprachigem Delphi/Windows ergibt das hier auch noch einen unnötigen Sprachmischmasch.

PS: sLineBreak

[paule32.jk]

heißt also, dass man schon beim Laden/Starten die Sprache festsetzen sollte,
da ein Englisher Mensch ja eigentlich kein Deutsch im Normalfall kann...

klingnlogisch...

[Uwe Raabe]

Du kannst die Sprache auch in der Registry einstellen. Für Delphi 7 Apps ist das der Zweig HKEY_CURRENT_USER\SOFTWARE\Borland\Locales, bei neueren Delphi Versionen das entsprechende CodeGear oder Embarcadero Pendant (wobei es da auch noch Fallbacks gibt). Dort legt man einen Zeichenfolge-Eintrag (REG_SZ) mit dem vollständigen Pfad zur Exe als Name und dem Sprachkürzel (DE, EN, FR...) als Wert an.

Fehlt dieser Eintrag wird die aktuelle Spracheinstellung von Windows verwendet. In der Regel passt sich das Programm also automatisch an.

Wird keine passende DLL gefunden, kommt die beim Compilieren der Exe verwendete Sprache zur Anwendung.

[paule32.jk]

Hallo Uwe,
...

Zitat von Uwe Raabe:

Fehlt dieser Eintrag wird die aktuelle Spracheinstellung von Windows verwendet. In der Regel passt sich das Programm also automatisch an.

ja, das stimmt.
Allerdings immer erst nach dem eigentlichen Start, nicht jedoch danach.

Zum Beispiel könnte man doch eine englische Ausgabe produzieren, die dann ein Franzose (der English
kann auf English stellen - während der Laufzeit).

Vielleicht könnte man auch ein Server-Programm schreiben, das 4 Monate mit einen Russen und weitere
4 Monate mit einen Deutschen betrieben werden kann, das ServerProgramm aber nicht neu gestartet
werden kann oder soll.

Unter Windows ist es natürlich einleuchtend, dass es 4 Monate wohl nicht überstehen wird, ohne einen
neuen Neustart - aber halt mal angenommen ...

Und warum sollten hier Tipps gegeben werden (himitsu), von denen man schon weiss, das diese nicht
funktionieren.
Das soll jetzt keine Beleidung sein.
Aber von Profis sollte man wohl mehr erwarten, als von mir als Neuling.

Gruß, paule

[Uwe Raabe]

Man sollte dabei aber auch zugute halten, dass zum einen Delphi 7 von den meisten hier schon seit vielen Jahren nicht mehr verwendet wird und zum anderen die Sprachunterstützung in Delphi auch nur von sehr wenigen genutzt wurde/wird. Insofern musst du wohl damit leben, dass du hier vermutlich oft nur noch theoretische Antworten bekommst, die im Wesentlichen auf vagen Erinnerungen oder den verfügbaren Dokumentationen beruht (die übrigens auch weit vor Erscheinen von Windows 10 erstellt wurden, das offiziell von Delphi 7 gar nicht unterstützt wird), weil es kaum einer hier ausprobieren kann oder will.

[paule32.jk]

ja, richtig !
Ich bin ja schon sehr Froh, das sich überhaupt auf meine Fragen meldet.

Wie ich schon schrieb, bin ich nicht so der Fan von Community-Versionen, die immer mehr (oder weniger)
Optionen anbieten, die man dann nur in einer Pro Version hat.

Es stimmt schon, das IHR ALLE hier das aus freien Willen machen (Support).

Aber die andere Seite will ja ein Produkt verkaufen, das mehr oder minder auch viel Arbeit
dahinter gestanden hat, und die kleinen Entwickler (also die Indianer und Polen) auch wenn Sie
Arm dran sind, jeden Tag Brot und Wasser brauchen.

Das ginge mir genauso.
Aber ich bin da in einer priviligen Situation, die ich dann auch damit entgegen komme, das ich
an anderer Stelle auch Support gebe (sofern es mir möglich ist).

Weil, man sollte mich verstehen, ich kein Trendsetter bin, und auch nicht mit der Masse gehe,
vieles von und mit Retro-Ware genutzt wird.

Es steht also kein Job vor mir, den ich brauche, um eine Familie durchzubringen.
Von daher schon ein

DICKES DANKESCHÖN FÜR SOWAS WIE HIER !!!

Gruß, paule32