ShellExecute liefert ERROR_ACCESS_DENIED

[himitsu]

Eine nutzbare Funktion mit abgelaufenem Code neu zu verbreiten ist nicht wirklich ideal.
Am Ende kommt noch wer auf die Idee und baut es in ein neues Programm ein.


Wie gesagt, an der Stelle ist garkein IFDEF nötig.

ReadFile liefert OEM, also ANSI,
OemToChar will ANSI rein bekommen,
also braucht der Buffer immer nur ANSI zu sein und wird somit auch explizit als ANSI deklariert. (AnsiChar/PAnsiChar/AnsiString)



Da gibt es bei deinem Trainer schlimmere Problemstellen, wenn man mit Unicode kompilieren würde (ab Delphi 2009)
und Einiges (FixStr) ist in jeder Delphiversion potentiell gefährlich.

Hier Function StatusText ( StatusID : myStatusIDs ) : pChar; stdcall; klappt das mit dem Result, da es auf Konstanten zeigt, die bestehen bleiben.

Bei Function FixStr ( Input : PChar ) : PChar; stdcall; zeigt Result auf eine temporäre Variable, die beim Verlassen der Funktion freigegeben wird.
Wird der Speicher zwischenzeitlich mit irgendwas überschrieben, dann knallt es womöglich.
War die Variable der letzte genutzte Teil des Speicherblocks, dann wird der freigegeben und es knallt.
Mit etwas Glück passiert nichts und es wird anschließend auf den noch nicht freigegebenen/überschriebenen Speicherbereich zugegriffen.

MessageBox(Handle, PAnsiChar(... : Wie schon gesagt, muß alles zusammenpassen.
String > PChar > MessageBox
AnsiString > PAnsiChar > MessageBoxA
WideString/UnicodeString > PWideChar > MessageBoxW

Mein Tipp wäre hier einfach immer nur mit String/AnsiString/WideString/... zu arbeiten, vorallem bezütlich String-Verarbeitung und Speichermanagement (speichern und weitergeben der Strings)
und nur bei übergabe an die WinAPI nach PChar zu casten.