📄 modifyusr.pas
字号:
* Reference to: Unit_00409434.Proc_0040A8BC
|
00656837 E88040DBFF call 0040A8BC
0065683C 84C0 test al, al
0065683E 741A jz 0065685A
* Reference to pointer to GlobalVar_007992A4
|
00656840 8B0DC4D47700 mov ecx, [$0077D4C4]
00656846 8B09 mov ecx, [ecx]
00656848 B201 mov dl, $01
* Reference to class TMemIniFile
|
0065684A A1B05A4600 mov eax, dword ptr [$00465AB0]
* Reference to: Unit_00465948.Proc_0046667C
|
0065684F E828FEE0FF call 0046667C
* Reference to field TfrmModifyUserInfo.OFFS_03E4 : TStringList
|
00656854 8983E4030000 mov [ebx+$03E4], eax
* Reference to field TfrmModifyUserInfo.OFFS_03E4 : TStringList
|
0065685A 83BBE403000000 cmp dword ptr [ebx+$03E4], +$00
00656861 0F8481000000 jz 006568E8
* Reference to field TfrmModifyUserInfo.OFFS_03D8
|
00656867 8D83D8030000 lea eax, [ebx+$03D8]
0065686D 50 push eax
* Reference to control TfrmModifyUserInfo.mOrgComboBox : TComboBox
|
0065686E 8D8318030000 lea eax, [ebx+$0318]
00656874 50 push eax
* Reference to field TfrmModifyUserInfo.OFFS_03E8
|
00656875 8D8BE8030000 lea ecx, [ebx+$03E8]
* Possible String Reference to: 'ORG'
|
0065687B BA7C696500 mov edx, $0065697C
00656880 8BC3 mov eax, ebx
* Reference to : TfrmModifyUserInfo.Proc_006565D0()
|
00656882 E849FDFFFF call 006565D0
* Reference to field TfrmModifyUserInfo.OFFS_03E0
|
00656887 668983E0030000 mov [ebx+$03E0], ax
* Reference to field TfrmModifyUserInfo.OFFS_03D4
|
0065688E 8D83D4030000 lea eax, [ebx+$03D4]
00656894 50 push eax
* Reference to control TfrmModifyUserInfo.mAreaComboBox : TComboBox
|
00656895 8D8314030000 lea eax, [ebx+$0314]
0065689B 50 push eax
* Reference to field TfrmModifyUserInfo.OFFS_03EC
|
0065689C 8D8BEC030000 lea ecx, [ebx+$03EC]
* Possible String Reference to: 'Area'
|
006568A2 BA88696500 mov edx, $00656988
006568A7 8BC3 mov eax, ebx
* Reference to : TfrmModifyUserInfo.Proc_006565D0()
|
006568A9 E822FDFFFF call 006565D0
* Reference to field TfrmModifyUserInfo.OFFS_03DE
|
006568AE 668983DE030000 mov [ebx+$03DE], ax
* Reference to control TfrmModifyUserInfo.mOrgComboBox : TComboBox
|
006568B5 8B8318030000 mov eax, [ebx+$0318]
* Reference to field TComboBox.Items : TStrings
|
006568BB 8B80F0010000 mov eax, [eax+$01F0]
* Possible String Reference to: '所有券商'
|
006568C1 BA98696500 mov edx, $00656998
006568C6 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006568C8 FF5134 call dword ptr [ecx+$34]
* Reference to control TfrmModifyUserInfo.mAreaComboBox : TComboBox
|
006568CB 8B8314030000 mov eax, [ebx+$0314]
* Reference to field TComboBox.Items : TStrings
|
006568D1 8B80F0010000 mov eax, [eax+$01F0]
* Possible String Reference to: '所有地域'
|
006568D7 BAAC696500 mov edx, $006569AC
006568DC 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006568DE FF5134 call dword ptr [ecx+$34]
006568E1 8BC3 mov eax, ebx
* Reference to : TfrmModifyUserInfo.Proc_00656F6C()
|
006568E3 E884060000 call 00656F6C
006568E8 8BC3 mov eax, ebx
* Reference to : TfrmModifyUserInfo.Proc_006574B8()
|
006568EA E8C90B0000 call 006574B8
006568EF 33C0 xor eax, eax
006568F1 5A pop edx
006568F2 59 pop ecx
006568F3 59 pop ecx
006568F4 648910 mov fs:[eax], edx
****** FINALLY
|
006568F7 6811696500 push $00656911
006568FC 8D45F0 lea eax, [ebp-$10]
006568FF BA04000000 mov edx, $00000004
* Reference to: system.@LStrArrayClr;
|
00656904 E80FD8DAFF call 00404118
00656909 C3 ret
* Reference to: system.@HandleFinally;
|
0065690A E91DD1DAFF jmp 00403A2C
0065690F EBEB jmp 006568FC
****** END
|
00656911 5F pop edi
00656912 5E pop esi
00656913 5B pop ebx
00656914 8BE5 mov esp, ebp
00656916 5D pop ebp
00656917 C3 ret
*)
end;
procedure TfrmModifyUserInfo.mListSelClick(Sender : TObject);
begin
(*
* Reference to : TfrmModifyUserInfo._PROC_00656FA8()
|
00657004 E89FFFFFFF call 00656FA8
00657009 C3 ret
*)
end;
procedure TfrmModifyUserInfo.FormDestroy(Sender : TObject);
begin
(*
00657194 53 push ebx
00657195 8BD8 mov ebx, eax
* Reference to field TfrmModifyUserInfo.OFFS_03E4 : TStringList
|
00657197 8B83E4030000 mov eax, [ebx+$03E4]
0065719D 85C0 test eax, eax
0065719F 7405 jz 006571A6
* Reference to: system.TObject.Free(TObject);
|
006571A1 E826C1DAFF call 004032CC
* Reference to field TfrmModifyUserInfo.OFFS_03D0
|
006571A6 8B83D0030000 mov eax, [ebx+$03D0]
006571AC 85C0 test eax, eax
006571AE 7405 jz 006571B5
* Reference to: system.@FreeMem;
|
006571B0 E8CBB6DAFF call 00402880
* Reference to field TfrmModifyUserInfo.OFFS_03D4
|
006571B5 8B83D4030000 mov eax, [ebx+$03D4]
006571BB 85C0 test eax, eax
006571BD 7405 jz 006571C4
* Reference to: system.@FreeMem;
|
006571BF E8BCB6DAFF call 00402880
* Reference to field TfrmModifyUserInfo.OFFS_03D8
|
006571C4 8B83D8030000 mov eax, [ebx+$03D8]
006571CA 85C0 test eax, eax
006571CC 7405 jz 006571D3
* Reference to: system.@FreeMem;
|
006571CE E8ADB6DAFF call 00402880
006571D3 5B pop ebx
006571D4 C3 ret
*)
end;
procedure TfrmModifyUserInfo.Button4Click(Sender : TObject);
begin
(*
006573F8 53 push ebx
006573F9 56 push esi
006573FA 8BF0 mov esi, eax
006573FC 33DB xor ebx, ebx
006573FE 33C0 xor eax, eax
00657400 8AC3 mov al, bl
00657402 80BC06F803000000 cmp byte ptr [esi+eax+$03F8], $00
0065740A 744F jz 0065745B
0065740C 33C0 xor eax, eax
0065740E 8AC3 mov al, bl
00657410 83F804 cmp eax, +$04
00657413 7746 jnbe 0065745B
00657415 FF24851C746500 jmp dword ptr [$65741C+eax*4]
0065741C 4B dec ebx
0065741D 7465 jz 00657484
0065741F 00547465 add [esp+esi*2+$65], dl
00657423 0039 add [ecx], bh
00657425 7465 jz 0065748C
00657427 004274 add [edx+$74], al
0065742A 650030 add gs:[eax], dh
0065742D 7465 jz 00657494
0065742F 008BC6E82105 add [ebx+$521E8C6], cl
00657435 0000 add [eax], al
00657437 EB22 jmp 0065745B
00657439 8BC6 mov eax, esi
* Reference to : TfrmModifyUserInfo.Proc_006582B4()
|
0065743B E8740E0000 call 006582B4
00657440 EB19 jmp 0065745B
00657442 8BC6 mov eax, esi
* Reference to : TfrmModifyUserInfo.Proc_006585B0()
|
00657444 E867110000 call 006585B0
00657449 EB10 jmp 0065745B
0065744B 8BC6 mov eax, esi
* Reference to : TfrmModifyUserInfo.Proc_00657D38()
|
0065744D E8E6080000 call 00657D38
00657452 EB07 jmp 0065745B
00657454 8BC6 mov eax, esi
* Reference to : TfrmModifyUserInfo.Proc_00658010()
|
00657456 E8B50B0000 call 00658010
0065745B 43 inc ebx
0065745C 80FB05 cmp bl, $05
0065745F 759D jnz 006573FE
00657461 B001 mov al, $01
00657463 33DB xor ebx, ebx
00657465 84C0 test al, al
00657467 740E jz 00657477
00657469 33C0 xor eax, eax
0065746B 8AC3 mov al, bl
0065746D 80BC06F803000000 cmp byte ptr [esi+eax+$03F8], $00
00657475 7404 jz 0065747B
00657477 33C0 xor eax, eax
00657479 EB02 jmp 0065747D
0065747B B001 mov al, $01
0065747D 43 inc ebx
0065747E 80FB05 cmp bl, $05
00657481 75E2 jnz 00657465
00657483 84C0 test al, al
00657485 7417 jz 0065749E
* Possible String Reference to: '修改成功!'
|
00657487 B8AC746500 mov eax, $006574AC
* Reference to: dialogs.ShowMessage(AnsiString);
|
0065748C E8C7E2E0FF call 00465758
00657491 33D2 xor edx, edx
* Reference to control TfrmModifyUserInfo.Button4 : TButton
|
00657493 8B86B4030000 mov eax, [esi+$03B4]
00657499 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
0065749B FF515C call dword ptr [ecx+$5C]
0065749E 5E pop esi
0065749F 5B pop ebx
006574A0 C3 ret
*)
end;
procedure TfrmModifyUserInfo.mAreaComboBoxChange(Sender : TObject);
begin
(*
006571D8 55 push ebp
006571D9 8BEC mov ebp, esp
006571DB 33C9 xor ecx, ecx
006571DD 51 push ecx
006571DE 51 push ecx
006571DF 51 push ecx
006571E0 51 push ecx
006571E1 51 push ecx
006571E2 51 push ecx
006571E3 51 push ecx
006571E4 53 push ebx
006571E5 56 push esi
006571E6 57 push edi
006571E7 8BF8 mov edi, eax
006571E9 33C0 xor eax, eax
006571EB 55 push ebp
* Possible String Reference to: '橄期⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -