AnimUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：20k
- unit AnimUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
- type
- TAnim=class(TForm)
- list: TMemo;
- Timer1: TTimer;
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- Anim: TAnim;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TAnim.FormCreate(Sender: TObject);
- begin
- {
- 004CA680 53 push ebx
- 004CA681 8BD8 mov ebx, eax
- 004CA683 8BC3 mov eax, ebx
- 004CA685 E8EEFFFFFF call 004CA678
- 004CA68A 33D2 xor edx, edx
- 004CA68C 8BC3 mov eax, ebx
- 004CA68E E88DC0F6FF call 00436720
- 004CA693 5B pop ebx
- 004CA694 C3 ret
- }
- end ;
- procedure TAnim.FormPaint(Sender: TObject);
- begin
- {
- 004CA774 53 push ebx
- 004CA775 56 push esi
- 004CA776 57 push edi
- 004CA777 55 push ebp
- 004CA778 83C4E0 add esp, -$20
- 004CA77B 8BD8 mov ebx, eax
- 004CA77D 8B2DDC495400 mov ebp, [$5449DC]
- 004CA783 8B733C mov esi, [ebx+$3C]
- 004CA786 83EE05 sub esi, +$05
- 004CA789 83EE18 sub esi, +$18
- 004CA78C 7C5D jl 004CA7EB
- 004CA78E 46 inc esi
- 004CA78F BF18000000 mov edi, $00000018
- 004CA794 6A01 push $01
- 004CA796 8D442404 lea eax, [esp+$04]
- 004CA79A 50 push eax
- 004CA79B B904000000 mov ecx, $00000004
- 004CA7A0 BA1A000000 mov edx, $0000001A
- 004CA7A5 B801000000 mov eax, $00000001
- 004CA7AA E89161F4FF call 00410940
- 004CA7AF 54 push esp
- 004CA7B0 6A01 push $01
- 004CA7B2 8D442418 lea eax, [esp+$18]
- 004CA7B6 50 push eax
- 004CA7B7 B904000000 mov ecx, $00000004
- 004CA7BC 8BD7 mov edx, edi
- 004CA7BE 33C0 xor eax, eax
- 004CA7C0 E87B61F4FF call 00410940
- 004CA7C5 8D442414 lea eax, [esp+$14]
- 004CA7C9 50 push eax
- 004CA7CA 8B4500 mov eax, [ebp+$00]
- 004CA7CD 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA7D3 E8B88BF5FF call 00423390
- 004CA7D8 50 push eax
- 004CA7D9 8BC3 mov eax, ebx
- 004CA7DB E8202DF8FF call 0044D500
- 004CA7E0 59 pop ecx
- 004CA7E1 5A pop edx
- 004CA7E2 E86538F5FF call 0041E04C
- 004CA7E7 47 inc edi
- 004CA7E8 4E dec esi
- 004CA7E9 75A9 jnz 004CA794
- 004CA7EB 8B733C mov esi, [ebx+$3C]
- 004CA7EE 83EE05 sub esi, +$05
- 004CA7F1 83EE18 sub esi, +$18
- 004CA7F4 7C61 jl 004CA857
- 004CA7F6 46 inc esi
- 004CA7F7 BF18000000 mov edi, $00000018
- 004CA7FC 6A01 push $01
- 004CA7FE 8D442404 lea eax, [esp+$04]
- 004CA802 50 push eax
- 004CA803 B904000000 mov ecx, $00000004
- 004CA808 BA1A000000 mov edx, $0000001A
- 004CA80D B830000000 mov eax, $00000030
- 004CA812 E82961F4FF call 00410940
- 004CA817 54 push esp
- 004CA818 6A01 push $01
- 004CA81A 8D442418 lea eax, [esp+$18]
- 004CA81E 50 push eax
- 004CA81F 8B4338 mov eax, [ebx+$38]
- 004CA822 83E804 sub eax, +$04
- 004CA825 B904000000 mov ecx, $00000004
- 004CA82A 8BD7 mov edx, edi
- 004CA82C E80F61F4FF call 00410940
- 004CA831 8D442414 lea eax, [esp+$14]
- 004CA835 50 push eax
- 004CA836 8B4500 mov eax, [ebp+$00]
- 004CA839 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA83F E84C8BF5FF call 00423390
- 004CA844 50 push eax
- 004CA845 8BC3 mov eax, ebx
- 004CA847 E8B42CF8FF call 0044D500
- 004CA84C 59 pop ecx
- 004CA84D 5A pop edx
- 004CA84E E8F937F5FF call 0041E04C
- 004CA853 47 inc edi
- 004CA854 4E dec esi
- 004CA855 75A5 jnz 004CA7FC
- 004CA857 8B7338 mov esi, [ebx+$38]
- 004CA85A 83EE18 sub esi, +$18
- 004CA85D 83EE18 sub esi, +$18
- 004CA860 7C5D jl 004CA8BF
- 004CA862 46 inc esi
- 004CA863 BF18000000 mov edi, $00000018
- 004CA868 6A18 push $18
- 004CA86A 8D442404 lea eax, [esp+$04]
- 004CA86E 50 push eax
- 004CA86F B901000000 mov ecx, $00000001
- 004CA874 BA01000000 mov edx, $00000001
- 004CA879 B81A000000 mov eax, $0000001A
- 004CA87E E8BD60F4FF call 00410940
- 004CA883 54 push esp
- 004CA884 6A18 push $18
- 004CA886 8D442418 lea eax, [esp+$18]
- 004CA88A 50 push eax
- 004CA88B B901000000 mov ecx, $00000001
- 004CA890 33D2 xor edx, edx
- 004CA892 8BC7 mov eax, edi
- 004CA894 E8A760F4FF call 00410940
- 004CA899 8D442414 lea eax, [esp+$14]
- 004CA89D 50 push eax
- 004CA89E 8B4500 mov eax, [ebp+$00]
- 004CA8A1 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA8A7 E8E48AF5FF call 00423390
- 004CA8AC 50 push eax
- 004CA8AD 8BC3 mov eax, ebx
- 004CA8AF E84C2CF8FF call 0044D500
- 004CA8B4 59 pop ecx
- 004CA8B5 5A pop edx
- 004CA8B6 E89137F5FF call 0041E04C
- 004CA8BB 47 inc edi
- 004CA8BC 4E dec esi
- 004CA8BD 75A9 jnz 004CA868
- 004CA8BF 8B7338 mov esi, [ebx+$38]
- 004CA8C2 83EE04 sub esi, +$04
- 004CA8C5 83EE04 sub esi, +$04
- 004CA8C8 7C61 jl 004CA92B
- 004CA8CA 46 inc esi
- 004CA8CB BF04000000 mov edi, $00000004
- 004CA8D0 6A04 push $04
- 004CA8D2 8D442404 lea eax, [esp+$04]
- 004CA8D6 50 push eax
- 004CA8D7 B901000000 mov ecx, $00000001
- 004CA8DC BA1C000000 mov edx, $0000001C
- 004CA8E1 B81A000000 mov eax, $0000001A
- 004CA8E6 E85560F4FF call 00410940
- 004CA8EB 54 push esp
- 004CA8EC 6A04 push $04
- 004CA8EE 8D442418 lea eax, [esp+$18]
- 004CA8F2 50 push eax
- 004CA8F3 8B533C mov edx, [ebx+$3C]
- 004CA8F6 83EA04 sub edx, +$04
- 004CA8F9 B901000000 mov ecx, $00000001
- 004CA8FE 8BC7 mov eax, edi
- 004CA900 E83B60F4FF call 00410940
- 004CA905 8D442414 lea eax, [esp+$14]
- 004CA909 50 push eax
- 004CA90A 8B4500 mov eax, [ebp+$00]
- 004CA90D 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA913 E8788AF5FF call 00423390
- 004CA918 50 push eax
- 004CA919 8BC3 mov eax, ebx
- 004CA91B E8E02BF8FF call 0044D500
- 004CA920 59 pop ecx
- 004CA921 5A pop edx
- 004CA922 E82537F5FF call 0041E04C
- 004CA927 47 inc edi
- 004CA928 4E dec esi
- 004CA929 75A5 jnz 004CA8D0
- 004CA92B 6A18 push $18
- 004CA92D 8D442404 lea eax, [esp+$04]
- 004CA931 50 push eax
- 004CA932 B918000000 mov ecx, $00000018
- 004CA937 BA01000000 mov edx, $00000001
- 004CA93C B801000000 mov eax, $00000001
- 004CA941 E8FA5FF4FF call 00410940
- 004CA946 54 push esp
- 004CA947 6A18 push $18
- 004CA949 8D442418 lea eax, [esp+$18]
- 004CA94D 50 push eax
- 004CA94E B918000000 mov ecx, $00000018
- 004CA953 33D2 xor edx, edx
- 004CA955 33C0 xor eax, eax
- 004CA957 E8E45FF4FF call 00410940
- 004CA95C 8D442414 lea eax, [esp+$14]
- 004CA960 50 push eax
- 004CA961 8B4500 mov eax, [ebp+$00]
- 004CA964 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA96A E8218AF5FF call 00423390
- 004CA96F 50 push eax
- 004CA970 8BC3 mov eax, ebx
- 004CA972 E8892BF8FF call 0044D500
- 004CA977 59 pop ecx
- 004CA978 5A pop edx
- 004CA979 E8CE36F5FF call 0041E04C
- 004CA97E 6A18 push $18
- 004CA980 8D442404 lea eax, [esp+$04]
- 004CA984 50 push eax
- 004CA985 B918000000 mov ecx, $00000018
- 004CA98A BA01000000 mov edx, $00000001
- 004CA98F B81C000000 mov eax, $0000001C
- 004CA994 E8A75FF4FF call 00410940
- 004CA999 54 push esp
- 004CA99A 6A18 push $18
- 004CA99C 8D442418 lea eax, [esp+$18]
- 004CA9A0 50 push eax
- 004CA9A1 8B4338 mov eax, [ebx+$38]
- 004CA9A4 83E818 sub eax, +$18
- 004CA9A7 B918000000 mov ecx, $00000018
- 004CA9AC 33D2 xor edx, edx
- 004CA9AE E88D5FF4FF call 00410940
- 004CA9B3 8D442414 lea eax, [esp+$14]
- 004CA9B7 50 push eax
- 004CA9B8 8B4500 mov eax, [ebp+$00]
- 004CA9BB 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CA9C1 E8CA89F5FF call 00423390
- 004CA9C6 50 push eax
- 004CA9C7 8BC3 mov eax, ebx
- 004CA9C9 E8322BF8FF call 0044D500
- 004CA9CE 59 pop ecx
- 004CA9CF 5A pop edx
- 004CA9D0 E87736F5FF call 0041E04C
- 004CA9D5 6A04 push $04
- 004CA9D7 8D442404 lea eax, [esp+$04]
- 004CA9DB 50 push eax
- 004CA9DC B904000000 mov ecx, $00000004
- 004CA9E1 BA1C000000 mov edx, $0000001C
- 004CA9E6 B801000000 mov eax, $00000001
- 004CA9EB E8505FF4FF call 00410940
- 004CA9F0 54 push esp
- 004CA9F1 6A04 push $04
- 004CA9F3 8D442418 lea eax, [esp+$18]
- 004CA9F7 50 push eax
- 004CA9F8 8B533C mov edx, [ebx+$3C]
- 004CA9FB 83EA04 sub edx, +$04
- 004CA9FE B904000000 mov ecx, $00000004
- 004CAA03 33C0 xor eax, eax
- 004CAA05 E8365FF4FF call 00410940
- 004CAA0A 8D442414 lea eax, [esp+$14]
- 004CAA0E 50 push eax
- 004CAA0F 8B4500 mov eax, [ebp+$00]
- 004CAA12 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CAA18 E87389F5FF call 00423390
- 004CAA1D 50 push eax
- 004CAA1E 8BC3 mov eax, ebx
- 004CAA20 E8DB2AF8FF call 0044D500
- 004CAA25 59 pop ecx
- 004CAA26 5A pop edx
- 004CAA27 E82036F5FF call 0041E04C
- 004CAA2C 6A04 push $04
- 004CAA2E 8D442404 lea eax, [esp+$04]
- 004CAA32 50 push eax
- 004CAA33 B904000000 mov ecx, $00000004
- 004CAA38 BA1C000000 mov edx, $0000001C
- 004CAA3D B830000000 mov eax, $00000030
- 004CAA42 E8F95EF4FF call 00410940
- 004CAA47 54 push esp
- 004CAA48 6A04 push $04
- 004CAA4A 8D442418 lea eax, [esp+$18]
- 004CAA4E 50 push eax
- 004CAA4F 8B533C mov edx, [ebx+$3C]
- 004CAA52 83EA04 sub edx, +$04
- 004CAA55 8B4338 mov eax, [ebx+$38]
- 004CAA58 83E804 sub eax, +$04
- 004CAA5B B904000000 mov ecx, $00000004
- 004CAA60 E8DB5EF4FF call 00410940
- 004CAA65 8D442414 lea eax, [esp+$14]
- 004CAA69 50 push eax
- 004CAA6A 8B4500 mov eax, [ebp+$00]
- 004CAA6D 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CAA73 E81889F5FF call 00423390
- 004CAA78 50 push eax
- 004CAA79 8BC3 mov eax, ebx
- 004CAA7B E8802AF8FF call 0044D500
- 004CAA80 59 pop ecx
- 004CAA81 5A pop edx
- 004CAA82 E8C535F5FF call 0041E04C
- 004CAA87 8BC3 mov eax, ebx
- 004CAA89 E8722AF8FF call 0044D500
- 004CAA8E 8B4014 mov eax, [eax+$14]
- 004CAA91 8B5500 mov edx, [ebp+$00]
- 004CAA94 8B92180B0000 mov edx, [edx+$0B18]
- 004CAA9A E87D30F5FF call 0041DB1C
- 004CAA9F 8B433C mov eax, [ebx+$3C]
- 004CAAA2 83E81C sub eax, +$1C
- 004CAAA5 50 push eax
- 004CAAA6 8D442404 lea eax, [esp+$04]
- 004CAAAA 50 push eax
- 004CAAAB 8B4B38 mov ecx, [ebx+$38]
- 004CAAAE 83E908 sub ecx, +$08
- 004CAAB1 BA18000000 mov edx, $00000018
- 004CAAB6 B804000000 mov eax, $00000004
- 004CAABB E8805EF4FF call 00410940
- 004CAAC0 54 push esp
- 004CAAC1 8BC3 mov eax, ebx
- 004CAAC3 E8382AF8FF call 0044D500
- 004CAAC8 5A pop edx
- 004CAAC9 E82E37F5FF call 0041E1FC
- 004CAACE 83C420 add esp, +$20
- 004CAAD1 5D pop ebp
- 004CAAD2 5F pop edi
- 004CAAD3 5E pop esi
- 004CAAD4 5B pop ebx
- 004CAAD5 C3 ret
- }
- end ;
- procedure TAnim.FormResize(Sender: TObject);
- begin
- {
- 004CAAD8 8B10 mov edx, [eax]
- 004CAADA FF5278 call dword ptr [edx+$78]
- 004CAADD C3 ret
- }
- end ;
- procedure TAnim.Timer1Timer(Sender: TObject);
- begin
- {
- 004CA698 53 push ebx
- 004CA699 56 push esi
- 004CA69A 57 push edi
- 004CA69B 8BD8 mov ebx, eax
- 004CA69D BE10735400 mov esi, $00547310
- 004CA6A2 BF14735400 mov edi, $00547314
- 004CA6A7 A118735400 mov eax, dword ptr [$547318]
- 004CA6AC 3B06 cmp eax, [esi]
- 004CA6AE 7E05 jle 004CA6B5
- 004CA6B0 830623 add dword ptr [esi], +$23
- 004CA6B3 EB02 jmp 004CA6B7
- 004CA6B5 8906 mov [esi], eax
- 004CA6B7 A11C735400 mov eax, dword ptr [$54731C]
- 004CA6BC 3B07 cmp eax, [edi]
- 004CA6BE 7E05 jle 004CA6C5
- 004CA6C0 830723 add dword ptr [edi], +$23
- 004CA6C3 EB02 jmp 004CA6C7
- 004CA6C5 8907 mov [edi], eax
- 004CA6C7 8B06 mov eax, [esi]
- 004CA6C9 3B0518735400 cmp eax, [$547318]
- 004CA6CF 7C07 jl 004CA6D8
- 004CA6D1 A118735400 mov eax, dword ptr [$547318]
- 004CA6D6 8906 mov [esi], eax
- 004CA6D8 8B07 mov eax, [edi]
- 004CA6DA 3B051C735400 cmp eax, [$54731C]
- 004CA6E0 7C07 jl 004CA6E9
- 004CA6E2 A11C735400 mov eax, dword ptr [$54731C]
- 004CA6E7 8907 mov [edi], eax
- 004CA6E9 8B06 mov eax, [esi]
- 004CA6EB D1F8 sar eax, 1
- 004CA6ED 7903 jns 004CA6F2
- 004CA6EF 83D000 adc eax, +$00
- 004CA6F2 8B1508735400 mov edx, [$547308]
- 004CA6F8 2BD0 sub edx, eax
- 004CA6FA 8BC3 mov eax, ebx
- 004CA6FC E8ABB7F6FF call 00435EAC
- 004CA701 8B07 mov eax, [edi]
- 004CA703 D1F8 sar eax, 1
- 004CA705 7903 jns 004CA70A
- 004CA707 83D000 adc eax, +$00
- 004CA70A 8B150C735400 mov edx, [$54730C]
- 004CA710 2BD0 sub edx, eax
- 004CA712 8BC3 mov eax, ebx
- 004CA714 E8B7B7F6FF call 00435ED0
- 004CA719 8B16 mov edx, [esi]
- 004CA71B 8BC3 mov eax, ebx
- 004CA71D E8D6B7F6FF call 00435EF8
- 004CA722 8B17 mov edx, [edi]
- 004CA724 8BC3 mov eax, ebx
- 004CA726 E8F1B7F6FF call 00435F1C
- 004CA72B 8B06 mov eax, [esi]
- 004CA72D 3B0518735400 cmp eax, [$547318]
- 004CA733 0F9DC0 setnl al
- 004CA736 8B17 mov edx, [edi]
- 004CA738 3B151C735400 cmp edx, [$54731C]
- 004CA73E 0F9DC2 setnl dl
- 004CA741 22C2 and al, dl
- 004CA743 7428 jz 004CA76D
- 004CA745 33D2 xor edx, edx
- 004CA747 8B83C4020000 mov eax, [ebx+$02C4]
- 004CA74D E86EBAF8FF call 004561C0
- 004CA752 A120735400 mov eax, dword ptr [$547320]
- 004CA757 E82853F8FF call 0044FA84
- 004CA75C A100735400 mov eax, dword ptr [$547300]
- 004CA761 E81653F8FF call 0044FA7C
- 004CA766 C683CC02000001 mov byte ptr [ebx+$02CC], $01
- 004CA76D 5F pop edi
- 004CA76E 5E pop esi
- 004CA76F 5B pop ebx
- 004CA770 C3 ret
- }
- end ;
- end.
English
