Wer hat denn den Code verbrochen?
Das ist ein uralter Code, der noch für Nicht-
Unicode-Windowse ausgelegt ist.
Was man aber in einem Delphi seit 2009 eh vergessen kann, da es dort sowieso nicht mehr läuft.
Und mindestens seit NT, was dieses Jahr nun seinen 20. Geburtstag gefeiert hatte, ist Windows schon voll auf
Unicode.
(selbst für Windows 9x gab es das
Unicode zum Nachrüsten)
Aber da die Parameter eh auf "string" deklariert sind, auf das Define
UNICODE geeprüft wird, und somit sowieso mindestens Delphi 2009 benötigt würde, ist das ganze natürlich totaler Schwachsinn, da man, wie du schon zeigtest, die Unschaltung auch gleich vom Compiler erledigen lassen kann.
Wobei ich Diese eigentlich versucht hatte zu übersehen.
Wollte erstmal abwarten, ob oder bis meine andere Frage auch beantwortet wurde,
denn funktionieren sollte der Code zumindestens.