Ähm, OK.
Dann halt noch die Uniscribe-Version. Der Rest stimmt überein.
Delphi-Quellcode:
var sc: TScriptCache;
hr: HRESULT;
sc:=Nil;
hr:=ScriptGetCMap(Canvas.Handle, @sc, @wstr[1], cwstr, SGCM_RTL, pwOutGlyphs);
if (hr<>S_OK) and (hr<>S_FALSE) then RaiseLastOSError;
ScriptFreeCache(@sc);