usp10 for delphi

Tale

library usp10;

uses
 Windows,

{$R *.res}

var
 ModHandle: Cardinal;
 POldLpkPresent: Pointer;
 POldScriptApplyDigitSubstitution: Pointer;
 POldScriptApplyLogicalWidth: Pointer;
 POldScriptBreak: Pointer;
 POldScriptCPtoX: Pointer;
 POldScriptCacheGetHeight: Pointer;
 POldScriptFreeCache: Pointer;
 POldScriptGetCMap: Pointer;
 POldScriptGetFontProperties: Pointer;
 POldScriptGetGlyphABCWidth: Pointer;
 POldScriptGetLogicalWidths: Pointer;
 POldScriptGetProperties: Pointer;
 POldScriptIsComplex: Pointer;
 POldScriptItemize: Pointer;
 POldScriptJustify: Pointer;
 POldScriptLayout: Pointer;
 POldScriptPlace: Pointer;
 POldScriptRecordDigitSubstitution: Pointer;
 POldScriptShape: Pointer;
 POldScriptStringAnalyse: Pointer;
 POldScriptStringCPtoX: Pointer;
 POldScriptStringFree: Pointer;
 POldScriptStringGetLogicalWidths: Pointer;
 POldScriptStringGetOrder: Pointer;
 POldScriptStringOut: Pointer;
 POldScriptStringValIDAte: Pointer;
 POldScriptStringXtoCP: Pointer;
 POldScriptString_pLogAttr: Pointer;
 POldScriptString_pSize: Pointer;
 POldScriptString_pcOutChars: Pointer;
 POldScriptTextOut: Pointer;
 POldScriptXtoCP: Pointer;
 POldUspAllocCache: Pointer;
 POldUspAllocTemp: Pointer;
 POldUspFreeMem: Pointer;

procedure LpkPresent; asm jmp POldLpkPresent end;
procedure ScriptApplyDigitSubstitution; asm jmp POldScriptApplyDigitSubstitution end;
procedure ScriptApplyLogicalWidth; asm jmp POldScriptApplyLogicalWidth end;
procedure ScriptBreak; asm jmp POldScriptBreak end;
procedure ScriptCPtoX; asm jmp POldScriptCPtoX end;
procedure ScriptCacheGetHeight; asm jmp POldScriptCacheGetHeight end;
procedure ScriptFreeCache; asm jmp POldScriptFreeCache end;
procedure ScriptGetCMap; asm jmp POldScriptGetCMap end;
procedure ScriptGetFontProperties; asm jmp POldScriptGetFontProperties end;
procedure ScriptGetGlyphABCWidth; asm jmp POldScriptGetGlyphABCWidth end;
procedure ScriptGetLogicalWidths; asm jmp POldScriptGetLogicalWidths end;
procedure ScriptGetProperties; asm jmp POldScriptGetProperties end;
procedure ScriptIsComplex; asm jmp POldScriptIsComplex end;
procedure ScriptItemize; asm jmp POldScriptItemize end;
procedure ScriptJustify; asm jmp POldScriptJustify end;
procedure ScriptLayout; asm jmp POldScriptLayout end;
procedure ScriptPlace; asm jmp POldScriptPlace end;
procedure ScriptRecordDigitSubstitution; asm jmp POldScriptRecordDigitSubstitution end;
procedure ScriptShape; asm jmp POldScriptShape end;
procedure ScriptStringAnalyse; asm jmp POldScriptStringAnalyse end;
procedure ScriptStringCPtoX; asm jmp POldScriptStringCPtoX end;
procedure ScriptStringFree; asm jmp POldScriptStringFree end;
procedure ScriptStringGetLogicalWidths; asm jmp POldScriptStringGetLogicalWidths end;
procedure ScriptStringGetOrder; asm jmp POldScriptStringGetOrder end;
procedure ScriptStringOut; asm jmp POldScriptStringOut end;
procedure ScriptStringValidate; asm jmp POldScriptStringValidate end;
procedure ScriptStringXtoCP; asm jmp POldScriptStringXtoCP end;
procedure ScriptString_pLogAttr; asm jmp POldScriptString_pLogAttr end;
procedure ScriptString_pSize; asm jmp POldScriptString_pSize end;
procedure ScriptString_pcOutChars; asm jmp POldScriptString_pcOutChars end;
procedure ScriptTextOut; asm jmp POldScriptTextOut end;
procedure ScriptXtoCP; asm jmp POldScriptXtoCP end;
procedure UspAllocCache; asm jmp POldUspAllocCache end;
procedure UspAllocTemp; asm jmp POldUspAllocTemp end;
procedure UspFreeMem; asm jmp POldUspFreeMem end;



exports
 LpkPresent,
 ScriptApplyDigitSubstitution,
 ScriptApplyLogicalWidth,
 ScriptBreak,
 ScriptCPtoX,
 ScriptCacheGetHeight,
 ScriptFreeCache,
 ScriptGetCMap,
 ScriptGetFontProperties,
 ScriptGetGlyphABCWidth,
 ScriptGetLogicalWidths,
 ScriptGetProperties,
 ScriptIsComplex,
 ScriptItemize,
 ScriptJustify,
 ScriptLayout,
 ScriptPlace,
 ScriptRecordDigitSubstitution,
 ScriptShape,
 ScriptStringAnalyse,
 ScriptStringCPtoX,
 ScriptStringFree,
 ScriptStringGetLogicalWidths,
 ScriptStringGetOrder,
 ScriptStringOut,
 ScriptStringValidate,
 ScriptStringXtoCP,
 ScriptString_pLogAttr,
 ScriptString_pSize,
 ScriptString_pcOutChars,
 ScriptTextOut,
 ScriptXtoCP,
 UspAllocCache,
 UspAllocTemp,
 UspFreeMem;

begin
 ModHandle:= LoadLibrary('C:\WINDOWS\system32\usp10.dll');
 if ModHandle > 0 then
 begin
   POldLpkPresent:= GetProcAddress(ModHandle, 'LpkPresent');
   POldScriptApplyDigitSubstitution:= GetProcAddress(ModHandle, 'ScriptApplyDigitSubstitution');
   POldScriptApplyLogicalWidth:= GetProcAddress(ModHandle, 'ScriptApplyLogicalWidth');
   POldScriptBreak:= GetProcAddress(ModHandle, 'ScriptBreak');
   POldScriptCPtoX:= GetProcAddress(ModHandle, 'ScriptCPtoX');
   POldScriptCacheGetHeight:= GetProcAddress(ModHandle, 'ScriptCacheGetHeight');
   POldScriptFreeCache:= GetProcAddress(ModHandle, 'ScriptFreeCache');
   POldScriptGetCMap:= GetProcAddress(ModHandle, 'ScriptGetCMap');
   POldScriptGetFontProperties:= GetProcAddress(ModHandle, 'ScriptGetFontProperties');
   POldScriptGetGlyphABCWidth:= GetProcAddress(ModHandle, 'ScriptGetGlyphABCWidth');
   POldScriptGetLogicalWidths:= GetProcAddress(ModHandle, 'ScriptGetLogicalWidths');
   POldScriptGetProperties:= GetProcAddress(ModHandle, 'ScriptGetProperties');
   POldScriptIsComplex:= GetProcAddress(ModHandle, 'ScriptIsComplex');
   POldScriptItemize:= GetProcAddress(ModHandle, 'ScriptItemize');
   POldScriptJustify:= GetProcAddress(ModHandle, 'ScriptJustify');
   POldScriptLayout:= GetProcAddress(ModHandle, 'ScriptLayout');
   POldScriptPlace:= GetProcAddress(ModHandle, 'ScriptPlace');
   POldScriptRecordDigitSubstitution:= GetProcAddress(ModHandle, 'ScriptRecordDigitSubstitution');
   POldScriptShape:= GetProcAddress(ModHandle, 'ScriptShape');
   POldScriptStringAnalyse:= GetProcAddress(ModHandle, 'ScriptStringAnalyse');
   POldScriptStringCPtoX:= GetProcAddress(ModHandle, 'ScriptStringCPtoX');
   POldScriptStringFree:= GetProcAddress(ModHandle, 'ScriptStringFree');
   POldScriptStringGetLogicalWidths:= GetProcAddress(ModHandle, 'ScriptStringGetLogicalWidths');
   POldScriptStringGetOrder:= GetProcAddress(ModHandle, 'ScriptStringGetOrder');
   POldScriptStringOut:= GetProcAddress(ModHandle, 'ScriptStringOut');
   POldScriptStringValidate:= GetProcAddress(ModHandle, 'ScriptStringValidate');
   POldScriptStringXtoCP:= GetProcAddress(ModHandle, 'ScriptStringXtoCP');
   POldScriptString_pLogAttr:= GetProcAddress(ModHandle, 'ScriptString_pLogAttr');
   POldScriptString_pSize:= GetProcAddress(ModHandle, 'ScriptString_pSize');
   POldScriptString_pcOutChars:= GetProcAddress(ModHandle, 'ScriptString_pcOutChars');
   POldScriptTextOut:= GetProcAddress(ModHandle, 'ScriptTextOut');
   POldScriptXtoCP:= GetProcAddress(ModHandle, 'ScriptXtoCP');
   POldUspAllocCache:= GetProcAddress(ModHandle, 'UspAllocCache');
   POldUspAllocTemp:= GetProcAddress(ModHandle, 'UspAllocTemp');
   POldUspFreeMem:= GetProcAddress(ModHandle, 'UspFreeMem');
 end;
 begin
//你要干的事~
end.

hanyxiang

咱不说明这是什么？
看不懂:(

Hmily

类似LPK那种系统DLL劫持,可以用来做补丁~比LPK好,可以兼容vista下使用~

chuangwai

这个很不错，有VC的吗

lsuper

楼上：类似LPK那种系统DLL劫持,可以用来做补丁~比LPK好,可以兼容vista下使用~

usp10 加载机制和 lpk 应该是一样的 ？？