sm

立即登录 | 账号注册

积分: 0 |用户组: 游客

搜索
服务器租用 传奇3一条龙 996 支付平台源码 无法下载点击此处反馈
查看: 1718|回复: 9

[传奇源码] 传奇Wil客户端编辑器Delphi源代码

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
231812
发表于 2022-4-22 23:41:10 | 显示全部楼层 |阅读模式
传奇客户端Wil编辑器Delphi源代码
  1. procedure TForm1.CheckBox1Click(Sender: TObject);
  2. begin
  3.   if ((CheckBox1.Checked) and (fOpen.Count > 0)) then
  4.    begin
  5.      T1.Enabled:=TRUE;
  6.    end
  7.   else
  8.    begin
  9.      T1.Enabled:=FALSE;
  10.    end;
  11. end;
复制代码
  1. procedure TForm1.T1Timer(Sender: TObject);
  2. begin
  3.   if CheckBox2.Checked then Button3.Click
  4.   else Button4.Click;
  5.   if ((CrPos=0) or (CrPos=fOpen.Count - 1) or (cRpOS=fOpen.GetNextValidImageIndex(crPos))) then
  6.    begin
  7.     CheckBox1.Checked:=FALSE;
  8.     T1.Enabled:=False;
  9.    end;
  10. end;
复制代码
procedure TForm1.N9Click(Sender: TObject);
var tId:DWORD;
begin
  if fOpen.Count > 0 then
  begin
  ImOrOut:=0;
  DL.Edit4.Text:=IntToStr(crPos);
  DL.BG.Caption:='导出信息设置';
  DL.Show;
  end;
end;
  1. procedure TForm1.N8Click(Sender: TObject);
  2. var Pname:string;
  3.     tId:DWORD;
  4. begin
  5.   if fOpen.Count > 0 then
  6.   begin
  7.    OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
  8.    if OD.Execute then
  9.    begin
  10.     b3:=Button3.Handle;
  11.     b4:=Button4.Handle;
  12.     Infseq:=Od.FileName;
  13.     ImOrOut:=1;
  14.     o_Pos:=crPos;
  15.     bImp:=False;
  16.     DL.Edit4.Text:=IntToStr(crPos);
  17.     DL.BG.Caption:='导入信息设置';
  18.     DL.Show;
  19.     ResetEvent(hEvent);
  20.     CloseHandle(CreateThread(
  21.     nil,0,
  22.     @TForm1.ImThreadProc,nil,0,tId
  23.     ));
  24.    end;
  25.   end;
  26. end;

  27. procedure TForm1.KEN1Click(Sender: TObject);
  28. var Pname:string;
  29.     aBitMap:TBITMAP;
  30. begin
  31.   OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
  32.   if OD.Execute then
  33.    begin
  34.     Pname:=OD.FileName;
  35.     if fOpen.ImportFromSeq(crPos,1,Pname) then
  36.     begin
  37.      if crPos=0 then
  38.       begin
  39.         IMG.Picture.Bitmap.FreeImage;
  40.         aBitMap:=fOpen.IndexOfBitMap[crPos];
  41.         if aBitMap <> nil then begin
  42.         IMG.Picture.Bitmap:=aBitMap;
  43.         IMG.Repaint;
  44.         IMG.Refresh;
  45.         end;
  46.       end
  47.      else
  48.       begin
  49.        edit7.Text:=IntToStr(crPos);
  50.        crPos:=0;
  51.        Button4.Click;
  52.       end;
  53.     end;
  54.    end;
  55. end;

  56. procedure TForm1.N12Click(Sender: TObject);
  57. var Pname:string;
  58. begin
  59.   if fOpen.Count > 0 then
  60.    begin
  61.    OD.Filter:='专用资源文件 (*.TPE)|*.TPE';
  62.    if OD.Execute then
  63.    begin
  64.     Pname:=OD.FileName;
  65.     if fOpen.ImportFromSeq(fOpen.Count,1,Pname) then
  66.      begin
  67.        mImage := fOpen.Count;
  68.        crPos:= fOpen.Count - 2;
  69.        edit7.Text:=IntToStr(fOpen.Count - 1);
  70.        Button4.Click;
  71.      end;
  72.    end;
  73.    end;
  74. end;

  75. procedure TForm1.N11Click(Sender: TObject);
  76. begin
  77.   close;
  78. end;

  79. function SaveMemToFile(fP:Pointer;size:DWORD;const fstr:string):DWORD;
  80. var hfstr,hMap:Cardinal;
  81.     hMem:Pointer;
  82. begin
  83.   ReSult:=0;
  84.   hfstr:=CreateFile(
  85.         pchar(fstr),
  86.         GENERIC_READ + GENERIC_WRITE,
  87.         FILE_SHARE_WRITE or FILE_SHARE_READ,
  88.         0,
  89.         OPEN_ALWAYS,
  90.         FILE_ATTRIBUTE_NORMAL,
  91.         0
  92.         );
  93.   if hfstr<>INVALID_HANDLE_VALUE then
  94.     begin
  95.       SetFilePointer(hfstr,size,0,FILE_BEGIN);
  96.       SetEndOfFile(hfstr);
  97.       hMap:=CreateFileMapping(hfstr,nil,PAGE_READWRITE,0,0,nil);
  98.       if hMap<>0 then
  99.         begin
  100.          hMem:=MapViewOfFile(hMap,FILE_MAP_READ or FILE_MAP_WRITE,0,0,0);
  101.          if hMem<>nil then
  102.            begin
  103.              CopyMemory(hMem,fP,size);
  104.              UnmapViewOfFile(hMem);
  105.            end;
  106.          CloseHandle(hMap);
  107.         end;
  108.       CloseHandle(hfstr);
  109.     end;
  110. end;
复制代码

分享名称:WIL编辑器源码.zip
分享链接:http://pan.zxdll.cn:188/#s/9bdGxklg
访问密码:
游客,如果您要查看本帖隐藏内容请回复







上一篇:dnf地下城与勇士源码(Edgame Maker版)源码
下一篇:EI3.0插件代码5.0插件Delphi源码
回复

使用道具 举报

8

主题

12

回帖

3375

积分

裁决

积分
3375
发表于 2022-4-23 16:30:41 | 显示全部楼层
传奇Wil客户端编辑器Delphi源代码
回复 支持 反对

使用道具 举报

826

主题

36

回帖

23万

积分

霸王教主

积分
231812
 楼主| 发表于 2023-7-5 16:51:09 | 显示全部楼层
更新下载地址
回复 支持 反对

使用道具 举报

1

主题

20

回帖

289

积分

旋风流星刀

积分
289
发表于 2023-7-14 10:23:09 | 显示全部楼层
谢谢大佬奉献
回复 支持 反对

使用道具 举报

0

主题

2

回帖

206

积分

旋风流星刀

积分
206
发表于 2023-7-19 23:35:10 | 显示全部楼层
谢谢分享注册八元
回复 支持 反对

使用道具 举报

1

主题

355

回帖

367

积分

旋风流星刀

积分
367
发表于 2023-8-25 07:38:25 | 显示全部楼层
感谢分享!!!
回复

使用道具 举报

0

主题

2

回帖

206

积分

旋风流星刀

积分
206
发表于 2023-11-1 21:28:30 | 显示全部楼层
不错哦,我看看哦,是不是哦
回复 支持 反对

使用道具 举报

0

主题

9

回帖

292

积分

旋风流星刀

积分
292
发表于 2023-11-4 23:13:52 | 显示全部楼层
666666666666666666666666
回复 支持 反对

使用道具 举报

0

主题

2

回帖

206

积分

旋风流星刀

积分
206
发表于 2024-1-6 18:57:00 | 显示全部楼层
看看  谢谢
回复 支持 反对

使用道具 举报

0

主题

3

回帖

104

积分

旋风流星刀

积分
104
发表于 2024-1-12 00:30:48 | 显示全部楼层
支持支持支持
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

GMT+8, 2024-3-29 19:06 , Processed in 0.362351 second(s), 92 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Tencent Cloud.

快速回复 返回顶部 返回列表