Was bedauerlicherweise funktioniert, ist:
Code:
function messageok( mWnd: hWnd; aWnd: hWnd; Data: PAnsiChar; Parms: PChar; Show: Boolean; NoPause: Boolean ): Integer; export; stdcall;
begin
MessageBoxW(mWnd, PWideChar(UnicodeString(Utf8Decode(Data))), 'Message', MB_OK);
end;
Aber irgendwie beschleicht mich das Gefühl, dass ich da zu viel konvertiere.