⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 forms.pas

📁 传奇3delphi代码 请自己看吧 包括地图
💻 PAS
📖 第 1 页 / 共 3 页
字号:
00441ADC   7406                   jz      00441AE4
00441ADE   A1B8095000             mov     eax, dword ptr [$005009B8]
00441AE3   C3                     ret

00441AE4   A1BC095000             mov     eax, dword ptr [$005009BC]
00441AE9   C3                     ret

*)
end;

procedure TApplication._PROC_00441AEC(Sender : TObject);
begin
(*
00441AEC   53                     push    ebx
00441AED   8B1DB0095000           mov     ebx, [$005009B0]
00441AF3   6A00                   push    $00
00441AF5   6A00                   push    $00
00441AF7   0FB7D2                 movzx   edx, dx
00441AFA   52                     push    edx
00441AFB   50                     push    eax

* Reference to: user32.SendMessageA()
|
00441AFC   E86767FCFF             call    00408268
00441B01   3B1DB0095000           cmp     ebx, [$005009B0]
00441B07   0F94C0                 setz    al
00441B0A   5B                     pop     ebx
00441B0B   C3                     ret

*)
end;

procedure TApplication._PROC_00441B0C(Sender : TObject);
begin
(*
00441B0C   55                     push    ebp
00441B0D   8BEC                   mov     ebp, esp
00441B0F   53                     push    ebx
00441B10   8B450C                 mov     eax, [ebp+$0C]
00441B13   83CAFF                 or      edx, -$01
00441B16   8BC8                   mov     ecx, eax
00441B18   8B19                   mov     ebx, [ecx]
00441B1A   3B5D08                 cmp     ebx, [ebp+$08]
00441B1D   7506                   jnz     00441B25
00441B1F   33D2                   xor     edx, edx
00441B21   C6410401               mov     byte ptr [ecx+$04], $01
00441B25   8BC2                   mov     eax, edx
00441B27   5B                     pop     ebx
00441B28   5D                     pop     ebp
00441B29   C20800                 ret     $0008

*)
end;

procedure TApplication._PROC_00441B2C(Sender : TObject);
begin
(*
00441B2C   83C4F8                 add     esp, -$08

* Reference to: user32.GetActiveWindow()
|
00441B2F   E89464FCFF             call    00407FC8
00441B34   890424                 mov     [esp], eax
00441B37   C644240400             mov     byte ptr [esp+$04], $00
00441B3C   8BC4                   mov     eax, esp
00441B3E   50                     push    eax
00441B3F   680C1B4400             push    $00441B0C

* Reference to: kernel32.GetCurrentThreadId()
|
00441B44   E84F5FFCFF             call    00407A98
00441B49   50                     push    eax

* Reference to: user32.EnumThreadWindows()
|
00441B4A   E84964FCFF             call    00407F98
00441B4F   8A442404               mov     al, byte ptr [esp+$04]
00441B53   59                     pop     ecx
00441B54   5A                     pop     edx
00441B55   C3                     ret

*)
end;

procedure TApplication._PROC_00441B58(Sender : TObject);
begin
(*
00441B58   53                     push    ebx
00441B59   56                     push    esi
00441B5A   57                     push    edi
00441B5B   55                     push    ebp
00441B5C   8BE8                   mov     ebp, eax

* Reference to Screen
|
00441B5E   A1D4375000             mov     eax, dword ptr [$005037D4]

* Reference to : TApplication._PROC_004482B4()
|
00441B63   E84C670000             call    004482B4
00441B68   8BF0                   mov     esi, eax
00441B6A   4E                     dec     esi
00441B6B   85F6                   test    esi, esi
00441B6D   7C29                   jl      00441B98
00441B6F   46                     inc     esi
00441B70   33FF                   xor     edi, edi
00441B72   8BD7                   mov     edx, edi

* Reference to Screen
|
00441B74   A1D4375000             mov     eax, dword ptr [$005037D4]

* Reference to : TApplication._PROC_004482A0()
|
00441B79   E822670000             call    004482A0
00441B7E   8BD8                   mov     ebx, eax
00441B80   F6432102               test    byte ptr [ebx+$21], $02
00441B84   750E                   jnz     00441B94

* Reference to field Screen.OFFS_0008
|
00441B86   8B5308                 mov     edx, [ebx+$08]
00441B89   8BC5                   mov     eax, ebp

* Reference to: Unit_004088DC.Proc_00409580
|
00441B8B   E8F079FCFF             call    00409580
00441B90   85C0                   test    eax, eax
00441B92   743A                   jz      00441BCE
00441B94   47                     inc     edi
00441B95   4E                     dec     esi
00441B96   75DA                   jnz     00441B72

* Reference to Screen
|
00441B98   A1D4375000             mov     eax, dword ptr [$005037D4]

* Reference to: Forms.Proc_004486C4
|
00441B9D   E8226B0000             call    004486C4
00441BA2   8BF0                   mov     esi, eax
00441BA4   4E                     dec     esi
00441BA5   85F6                   test    esi, esi
00441BA7   7C23                   jl      00441BCC
00441BA9   46                     inc     esi
00441BAA   33FF                   xor     edi, edi
00441BAC   8BD7                   mov     edx, edi

* Reference to Screen
|
00441BAE   A1D4375000             mov     eax, dword ptr [$005037D4]

* Reference to: Forms.Proc_004486B0
|
00441BB3   E8F86A0000             call    004486B0
00441BB8   8BD8                   mov     ebx, eax

* Reference to field Screen.OFFS_0008
|
00441BBA   8B5308                 mov     edx, [ebx+$08]
00441BBD   8BC5                   mov     eax, ebp

* Reference to: Unit_004088DC.Proc_00409580
|
00441BBF   E8BC79FCFF             call    00409580
00441BC4   85C0                   test    eax, eax
00441BC6   7406                   jz      00441BCE
00441BC8   47                     inc     edi
00441BC9   4E                     dec     esi
00441BCA   75E0                   jnz     00441BAC
00441BCC   33DB                   xor     ebx, ebx
00441BCE   8BC3                   mov     eax, ebx
00441BD0   5D                     pop     ebp
00441BD1   5F                     pop     edi
00441BD2   5E                     pop     esi
00441BD3   5B                     pop     ebx
00441BD4   C3                     ret

*)
end;

procedure TApplication._PROC_00441BD8(Sender : TObject);
begin
(*
00441BD8   C3                     ret

*)
end;

procedure TApplication._PROC_00441BDC(Sender : TObject);
begin
(*
00441BDC   55                     push    ebp
00441BDD   8BEC                   mov     ebp, esp
00441BDF   31C0                   xor     eax, eax
00441BE1   50                     push    eax
00441BE2   FF7514                 push    dword ptr [ebp+$14]
00441BE5   FF7510                 push    dword ptr [ebp+$10]
00441BE8   FF750C                 push    dword ptr [ebp+$0C]
00441BEB   89E2                   mov     edx, esp
00441BED   8B4104                 mov     eax, [ecx+$04]
00441BF0   FF11                   call    dword ptr [ecx]
00441BF2   83C40C                 add     esp, +$0C
00441BF5   58                     pop     eax
00441BF6   5D                     pop     ebp
00441BF7   C21000                 ret     $0010

*)
end;

procedure TApplication._PROC_00441BFC(Sender : TObject);
begin
(*
00441BFC   83C005                 add     eax, +$05
00441BFF   2BD0                   sub     edx, eax
00441C01   8BC2                   mov     eax, edx
00441C03   C3                     ret

*)
end;

procedure TApplication._PROC_00441C04(Sender : TObject);
begin
(*
00441C04   55                     push    ebp
00441C05   8BEC                   mov     ebp, esp
00441C07   53                     push    ebx
00441C08   56                     push    esi
00441C09   57                     push    edi
00441C0A   BFE0375000             mov     edi, $005037E0
00441C0F   833F00                 cmp     dword ptr [edi], +$00
00441C12   756C                   jnz     00441C80
00441C14   6A40                   push    $40
00441C16   6800100000             push    $00001000
00441C1B   6800100000             push    $00001000
00441C20   6A00                   push    $00

* Reference to: kernel32.VirtualAlloc()
|
00441C22   E8F95FFCFF             call    00407C20
00441C27   8BF0                   mov     esi, eax
00441C29   A1DC375000             mov     eax, dword ptr [$005037DC]
00441C2E   8906                   mov     [esi], eax
00441C30   8D5604                 lea     edx, [esi+$04]
00441C33   B8C4095000             mov     eax, $005009C4
00441C38   B902000000             mov     ecx, $00000002

* Reference to: System.Proc_0040295C
|
00441C3D   E81A0DFCFF             call    0040295C
00441C42   BADC1B4400             mov     edx, $00441BDC
00441C47   8D4605                 lea     eax, [esi+$05]

* Reference to : TApplication._PROC_00441BFC()
|
00441C4A   E8ADFFFFFF             call    00441BFC
00441C4F   894606                 mov     [esi+$06], eax
00441C52   8D5E0A                 lea     ebx, [esi+$0A]
00441C55   C603E8                 mov     byte ptr [ebx], $E8
00441C58   8D5604                 lea     edx, [esi+$04]
00441C5B   8BC3                   mov     eax, ebx

* Reference to : TApplication._PROC_00441BFC()
|
00441C5D   E89AFFFFFF             call    00441BFC
00441C62   894301                 mov     [ebx+$01], eax
00441C65   8B07                   mov     eax, [edi]
00441C67   894305                 mov     [ebx+$05], eax
00441C6A   891F                   mov     [edi], ebx
00441C6C   83C30D                 add     ebx, +$0D
00441C6F   8BC3                   mov     eax, ebx
00441C71   2BC6                   sub     eax, esi
00441C73   3DFC0F0000             cmp     eax, $00000FFC
00441C78   7CDB                   jl      00441C55
00441C7A   8935DC375000           mov     [$005037DC], esi
00441C80   8B07                   mov     eax, [edi]
00441C82   8B1F                   mov     ebx, [edi]
00441C84   8B5305                 mov     edx, [ebx+$05]
00441C87   8917                   mov     [edi], edx
00441C89   8B5508                 mov     edx, [ebp+$08]
00441C8C   895305                 mov     [ebx+$05], edx
00441C8F   8B550C                 mov     edx, [ebp+$0C]
00441C92   895309                 mov     [ebx+$09], edx
00441C95   5F                     pop     edi
00441C96   5E                     pop     esi
00441C97   5B                     pop     ebx
00441C98   5D                     pop     ebp
00441C99   C20800                 ret     $0008

*)
end;

procedure TApplication._PROC_00441C9C(Sender : TObject);
begin
(*
00441C9C   85C0                   test    eax, eax
00441C9E   740E                   jz      00441CAE
00441CA0   8B15E0375000           mov     edx, [$005037E0]

* Reference to field TApplication.OFFS_0005
|
00441CA6   895005                 mov     [eax+$05], edx

* Reference to GlobalVar_005037E0
|
00441CA9   A3E0375000             mov     dword ptr [$005037E0], eax
00441CAE   C3                     ret

*)
end;

procedure TApplication._PROC_00441CB0(Sender : TObject);
begin
(*
00441CB0   54                     push    esp
00441CB1   50                     push    eax
00441CB2   55                     push    ebp
00441CB3   7469                   jz      00441D1E
00441CB5   6C                     insb
00441CB6   57                     push    edi
00441CB7   696E646F770000         imul    ebp, [esi+$64], $0000776F
00441CBE   0000                   add     [eax], al

00441CC0   55                     push    ebp
00441CC1   8BEC                   mov     ebp, esp
00441CC3   83C4D8                 add     esp, -$28
00441CC6   53                     push    ebx
00441CC7   A1DC345000             mov     eax, dword ptr [$005034DC]
00441CCC   A3D8095000             mov     dword ptr [$005009D8], eax
00441CD1   8D45D8                 lea     eax, [ebp-$28]
00441CD4   50                     push    eax
00441CD5   A1EC095000             mov     eax, dword ptr [$005009EC]
00441CDA   50                     push    eax
00441CDB   A1DC345000             mov     eax, dword ptr [$005034DC]
00441CE0   50                     push    eax

* Reference to: user32.GetClassInfoA()
|
00441CE1   E8F262FCFF             call    00407FD8
00441CE6   F7D8                   neg     eax 
00441CE8   1BC0                   sbb     eax, eax
00441CEA   F7D8                   neg     eax 
00441CEC   84C0                   test    al, al
00441CEE   740A                   jz      00441CFA

* Possible String Reference to: '

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -