|
传奇EI3.0 客户端插件ClientEx.dll的完整源代码
适配的插件为 李博4.0以后的 客户端, 4.0以前的ClientEx.dll
老版本的插件如:1.2 1.5 2.0 3.38 等客户端 使用这个https://www.yyssoft.com/form/566.html
- unit uWHWilImage;
- interface
- uses Windows;
- type
-
- tagNEWWIXFILEIMAGEINFO = record
- szTitle: array[1..20] of CHAR;
- nIndexCount: Integer;
- pnPosition: Integer;
- end;
- NEWWIXIMAGEINFO = tagNEWWIXFILEIMAGEINFO;
- LPNEWWIXIMAGEINFO = ^tagNEWWIXFILEIMAGEINFO;
-
- tagWILFILEIMAGEINFO = record
- shWidth: SHORT;
- shHeight: SHORT;
- shPX: SHORT;
- shPY: SHORT;
- dwImageLength: DWORD;
- end;
- WILIMAGEINFO = tagWILFILEIMAGEINFO;
- LPWILIMAGEINFO = ^tagWILFILEIMAGEINFO;
-
- tagNEWWILFILEIMAGEINFO = record
- shWidth: SHORT;
- shHeight: SHORT;
- shPX: SHORT;
- shPY: SHORT;
- bShadow: CHAR;
- shShadowPX: SHORT;
- shShadowPY: SHORT;
- dwImageLength: DWORD;
- end;
- NEWWILIMAGEINFO = tagNEWWILFILEIMAGEINFO;
- LPNEWWILIMAGEINFO = ^tagNEWWILFILEIMAGEINFO;
-
- CWHWilImageData = class
- private
- protected
- m_bIsMemMapped: BOOL;
- m_pbStartData: PByte;
- m_pbStartCurrImage: PByte;
- m_wixImageCount: Integer;
- m_nCurrImageIdx: Integer;
- public
- m_stNewWixImgaeInfo: NEWWIXIMAGEINFO;
- m_lpstCurrWilImageInfo: LPWILIMAGEINFO;
- m_lpstNewCurrWilImageInfo: LPNEWWILIMAGEINFO;
- m_pbCurrImage: PByte;
- m_szWilFileName: array[1..MAX_PATH] of Char;
- public
- constructor Create(szWilFile: PChar);
- function NewLoad(szWilFile: PChar): BOOL; stdcall;
- function SetIndex(dwIndex: DWORD): BOOL; stdcall;
- end;
-
- type
- _NewLoad = function(szWilFile: PChar; bIsMemMapped: Byte): BOOL; stdcall;
- _SetIndex = function(dwIndex: DWORD): BOOL; stdcall;
-
- var
- __NewLoad: _NewLoad = Pointer($4660E0);
- __SetIndex: _SetIndex = Pointer($466130);
-
- implementation
- { CWHWilImageData }
- constructor CWHWilImageData.Create(szWilFile: PChar);
- begin
- NewLoad(szWilFile);
- end;
- function CWHWilImageData.NewLoad(szWilFile: PChar): BOOL; stdcall;
- begin
- asm
- MOV ECX,Self
- end;
- Result := __NewLoad(szWilFile, 0);
- end;
- function CWHWilImageData.SetIndex(dwIndex: DWORD): BOOL;
- begin
- asm
- MOV ECX,Self
- end;
- Result := __SetIndex(dwIndex);
- end;
- end.
复制代码
前往获取传奇EI3.0 客户端5.0插件ClientEx.dll的完整源代码
|
上一篇:Delphi传奇EI3.0客户端插件ClientEx.dll源码2.0下一篇:GSQL2000绿色版源代码delphi绿色SQL源码
|