📄 zbcomconsg.pas
字号:
unit ZBComConSG;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons
type
TConSGfrm=class(TForm)
ProgressBar1: TProgressBar;
Label1: TLabel;
Button1: TBitBtn;
Button2: TBitBtn;
Button3: TBitBtn;
procedure Button3Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure threadterminated(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_006E4C10(Sender : TObject);
procedure _PROC_006E4C40(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
ConSGfrm: TConSGfrm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TConSGfrm.Button3Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006E4A54 E86316D7FF call 004560BC
006E4A59 C3 ret
*)
end;
procedure TConSGfrm.Button1Click(Sender : TObject);
begin
(*
006E4A5C 53 push ebx
006E4A5D 56 push esi
006E4A5E 8BD8 mov ebx, eax
* Reference to field TConSGfrm.OFFS_0300
|
006E4A60 8BB300030000 mov esi, [ebx+$0300]
006E4A66 0FB74610 movzx eax, word ptr [esi+$10]
006E4A6A 50 push eax
006E4A6B 8D460C lea eax, [esi+$0C]
006E4A6E B901000000 mov ecx, $00000001
* Reference to class TReStockid
|
006E4A73 8B15C8FD7300 mov edx, [$0073FDC8]
* Reference to: system.@DynArraySetLength;
|
006E4A79 E85219D2FF call 004063D0
006E4A7E 83C404 add esp, +$04
006E4A81 B201 mov dl, $01
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4A83 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4A89 E8DA4ED5FF call 00439968
006E4A8E BA01000000 mov edx, $00000001
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4A93 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: comctrls.TProgressBar.SetStep(TProgressBar;Integer);
|
006E4A99 E8564FD9FF call 004799F4
* Reference to field TConSGfrm.OFFS_0300
|
006E4A9E 8B8300030000 mov eax, [ebx+$0300]
006E4AA4 0FB75010 movzx edx, word ptr [eax+$10]
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4AA8 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: comctrls.TProgressBar.SetMax(TProgressBar;Integer);
|
006E4AAE E8E54ED9FF call 00479998
006E4AB3 33D2 xor edx, edx
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4AB5 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: comctrls.TProgressBar.SetPosition(TProgressBar;Integer);
|
006E4ABB E8E84ED9FF call 004799A8
006E4AC0 33D2 xor edx, edx
* Reference to control TConSGfrm.Button1 : TBitBtn
|
006E4AC2 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4AC8 E89B4ED5FF call 00439968
006E4ACD B201 mov dl, $01
* Reference to control TConSGfrm.Button2 : TBitBtn
|
006E4ACF 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4AD5 E88E4ED5FF call 00439968
006E4ADA 33D2 xor edx, edx
* Reference to control TConSGfrm.Label1 : TLabel
|
006E4ADC 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006E4AE2 E8994FD5FF call 00439A80
006E4AE7 B201 mov dl, $01
* Reference to control TConSGfrm.Label1 : TLabel
|
006E4AE9 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4AEF E8744ED5FF call 00439968
006E4AF4 B101 mov cl, $01
006E4AF6 B201 mov dl, $01
* Reference to class selthread
|
006E4AF8 A148FB6D00 mov eax, dword ptr [$006DFB48]
* Reference to: Unit_006DFB48.Proc_006DFBA8
|
006E4AFD E8A6B0FFFF call 006DFBA8
006E4B02 8BF0 mov esi, eax
* Reference to field TConSGfrm.OFFS_02E8
|
006E4B04 89B3E8020000 mov [ebx+$02E8], esi
* Reference to field selthread.OFFS_0040
|
006E4B0A C6464000 mov byte ptr [esi+$40], $00
* Reference to field TConSGfrm.OFFS_02FC
|
006E4B0E 668B83FC020000 mov ax, word ptr [ebx+$02FC]
* Reference to field selthread.OFFS_0042
|
006E4B15 66894642 mov [esi+$42], ax
* Reference to field TConSGfrm.OFFS_02FE
|
006E4B19 668B83FE020000 mov ax, word ptr [ebx+$02FE]
* Reference to field selthread.OFFS_0044
|
006E4B20 66894644 mov [esi+$44], ax
* Reference to control TConSGfrm.Label1 : TLabel
|
006E4B24 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field selthread.OFFS_004C
|
006E4B2A 89464C mov [esi+$4C], eax
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4B2D 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field selthread.OFFS_0050
|
006E4B33 894650 mov [esi+$50], eax
* Reference to field selthread.OFFS_0054
|
006E4B36 8D4E54 lea ecx, [esi+$54]
* Reference to field TConSGfrm.OFFS_02EC
|
006E4B39 8D93EC020000 lea edx, [ebx+$02EC]
006E4B3F A118CB7700 mov eax, dword ptr [$0077CB18]
006E4B44 8B00 mov eax, [eax]
* Reference to: Unit_0070F7F0.Proc_0071ACDC
|
006E4B46 E891610300 call 0071ACDC
* Reference to field TConSGfrm.OFFS_0300
|
006E4B4B 8D9300030000 lea edx, [ebx+$0300]
* Reference to field TConSGfrm.OFFS_02E8
|
006E4B51 8B83E8020000 mov eax, [ebx+$02E8]
006E4B57 895064 mov [eax+$64], edx
006E4B5A 89581C mov [eax+$1C], ebx
006E4B5D C74018984B6E00 mov dword ptr [eax+$18], $006E4B98
* Reference to: classes.TThread.Resume(TThread);
|
006E4B64 E89F65D3FF call 0041B108
006E4B69 5E pop esi
006E4B6A 5B pop ebx
006E4B6B C3 ret
*)
end;
procedure TConSGfrm.FormClose(Sender : TObject);
begin
(*
006E4B6C 53 push ebx
006E4B6D 8BD9 mov ebx, ecx
* Reference to field TConSGfrm.OFFS_02E8
|
006E4B6F 83B8E802000000 cmp dword ptr [eax+$02E8], +$00
006E4B76 740C jz 006E4B84
006E4B78 8BD0 mov edx, eax
* Reference to : TConSGfrm.Button2Click()
|
006E4B7A E80D000000 call 006E4B8C
006E4B7F C60300 mov byte ptr [ebx], $00
006E4B82 5B pop ebx
006E4B83 C3 ret
006E4B84 C60302 mov byte ptr [ebx], $02
006E4B87 5B pop ebx
006E4B88 C3 ret
*)
end;
procedure TConSGfrm.Button2Click(Sender : TObject);
begin
(*
* Reference to field TConSGfrm.OFFS_02E8
|
006E4B8C 8B80E8020000 mov eax, [eax+$02E8]
* Reference to: Classes.Proc_0041B120
|
006E4B92 E88965D3FF call 0041B120
006E4B97 C3 ret
*)
end;
procedure TConSGfrm.threadterminated(Sender : TObject);
begin
(*
006E4B98 53 push ebx
006E4B99 8BD8 mov ebx, eax
006E4B9B 33D2 xor edx, edx
* Reference to control TConSGfrm.ProgressBar1 : TProgressBar
|
006E4B9D 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4BA3 E8C04DD5FF call 00439968
006E4BA8 B201 mov dl, $01
* Reference to control TConSGfrm.Button1 : TBitBtn
|
006E4BAA 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4BB0 E8B34DD5FF call 00439968
006E4BB5 33D2 xor edx, edx
* Reference to control TConSGfrm.Button2 : TBitBtn
|
006E4BB7 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4BBD E8A64DD5FF call 00439968
006E4BC2 33D2 xor edx, edx
* Reference to control TConSGfrm.Label1 : TLabel
|
006E4BC4 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006E4BCA E8994DD5FF call 00439968
* Reference to pointer to GlobalVar_0078D590
|
006E4BCF A1C4D27700 mov eax, dword ptr [$0077D2C4]
006E4BD4 803800 cmp byte ptr [eax], $00
006E4BD7 750D jnz 006E4BE6
006E4BD9 8BD3 mov edx, ebx
* Reference to field TConSGfrm.OFFS_0300
|
006E4BDB 8B8300030000 mov eax, [ebx+$0300]
* Reference to: Unit_0073FBC3.Proc_00740F70
|
006E4BE1 E88AC30500 call 00740F70
006E4BE6 33C0 xor eax, eax
* Reference to field TConSGfrm.OFFS_02E8
|
006E4BE8 8983E8020000 mov [ebx+$02E8], eax
006E4BEE 5B pop ebx
006E4BEF C3 ret
*)
end;
procedure TConSGfrm.FormCreate(Sender : TObject);
begin
(*
006E4BF0 53 push ebx
006E4BF1 8BD8 mov ebx, eax
* Reference to field TConSGfrm.OFFS_0300
|
006E4BF3 83BB0003000000 cmp dword ptr [ebx+$0300], +$00
006E4BFA 7512 jnz 006E4C0E
006E4BFC B201 mov dl, $01
* Reference to class TARStockId
|
006E4BFE A110FE7300 mov eax, dword ptr [$0073FE10]
* Reference to: Unit_0073FBC3.Proc_0073FFD8
|
006E4C03 E8D0B30500 call 0073FFD8
* Reference to field TConSGfrm.OFFS_0300
|
006E4C08 898300030000 mov [ebx+$0300], eax
006E4C0E 5B pop ebx
006E4C0F C3 ret
*)
end;
procedure TConSGfrm._PROC_006E4C10(Sender : TObject);
begin
(*
006E4C10 55 push ebp
006E4C11 8BEC mov ebp, esp
006E4C13 33C0 xor eax, eax
006E4C15 55 push ebp
* Possible String Reference to: '轵硌⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -