2317 lines
74 KiB
ObjectPascal
2317 lines
74 KiB
ObjectPascal
unit U_YFFKList;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TfrmYFFKList=class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
Panel1: TPanel;
|
||
ToolButton2: TToolButton;
|
||
ToolButton1: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label3: TLabel;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxGridLevel1: TcxGridLevel;
|
||
Label2: TLabel;
|
||
Label6: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
v2Column5: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
v2Column2: TcxGridDBColumn;
|
||
v2Column3: TcxGridDBColumn;
|
||
v2BQKP: TcxGridDBColumn;
|
||
v2WKP: TcxGridDBColumn;
|
||
Label1: TLabel;
|
||
ComTaiTou: TEdit;
|
||
v2Column4: TcxGridDBColumn;
|
||
ADOQueryMain: TADOQuery;
|
||
CDS_HZ: TClientDataSet;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
v2ComTaiTou: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
v2P_Spec: TcxGridDBColumn;
|
||
v2YFName: TcxGridDBColumn;
|
||
v2ps: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
v2Column7: TcxGridDBColumn;
|
||
v2Column8: TcxGridDBColumn;
|
||
v2Column9: TcxGridDBColumn;
|
||
v2Column10: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
cxSplitter1: TcxSplitter;
|
||
DataSource1: TDataSource;
|
||
YForder_Sub: TClientDataSet;
|
||
v1FKTaitou: TcxGridDBColumn;
|
||
v2KHType: TcxGridDBColumn;
|
||
Label4: TLabel;
|
||
KHType: TComboBox;
|
||
FactoryName: TComboBox;
|
||
TFP: TToolButton;
|
||
v1FXMoney: TcxGridDBColumn;
|
||
v1SXMoney: TcxGridDBColumn;
|
||
v2BQFXMoney: TcxGridDBColumn;
|
||
v2BQSXMoney: TcxGridDBColumn;
|
||
v1ConnO: TcxGridDBColumn;
|
||
v1OrderNO: TcxGridDBColumn;
|
||
v2SQQP: TcxGridDBColumn;
|
||
v2BQXKMoney: TcxGridDBColumn;
|
||
procedure FormDestroy(Sender : TObject);
|
||
procedure FormClose(Sender : TObject);
|
||
procedure TBCloseClick(Sender : TObject);
|
||
procedure FormShow(Sender : TObject);
|
||
procedure TBRafreshClick(Sender : TObject);
|
||
procedure ToolButton2Click(Sender : TObject);
|
||
procedure FactoryNameChange(Sender : TObject);
|
||
procedure ToolButton1Click(Sender : TObject);
|
||
procedure Tv2CellClick(Sender : TObject);
|
||
procedure TFPClick(Sender : TObject);
|
||
procedure Tv2CellDblClick(Sender : TObject);
|
||
procedure _PROC_00809170(Sender : TObject);
|
||
procedure _PROC_008091A0(Sender : TObject);
|
||
procedure _PROC_00809421(Sender : TObject);
|
||
procedure _PROC_008094A4(Sender : TObject);
|
||
procedure _PROC_008094AC(Sender : TObject);
|
||
procedure _PROC_008094DC(Sender : TObject);
|
||
procedure _PROC_008094E4(Sender : TObject);
|
||
procedure _PROC_00809514(Sender : TObject);
|
||
procedure _PROC_0080951C(Sender : TObject);
|
||
procedure _PROC_0080952C(Sender : TObject);
|
||
procedure _PROC_008095D4(Sender : TObject);
|
||
procedure _PROC_008095FC(Sender : TObject);
|
||
procedure _PROC_00809618(Sender : TObject);
|
||
procedure _PROC_00809644(Sender : TObject);
|
||
procedure _PROC_00809744(Sender : TObject);
|
||
procedure _PROC_00809778(Sender : TObject);
|
||
procedure _PROC_008097C8(Sender : TObject);
|
||
procedure _PROC_00809800(Sender : TObject);
|
||
procedure _PROC_00809820(Sender : TObject);
|
||
procedure _PROC_0080989F(Sender : TObject);
|
||
procedure _PROC_00809964(Sender : TObject);
|
||
procedure _PROC_0080999C(Sender : TObject);
|
||
procedure _PROC_008099E4(Sender : TObject);
|
||
procedure _PROC_00809A2C(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
frmYFFKList: TfrmYFFKList;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TfrmYFFKList.FormDestroy(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808860 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_00893CF8
|
||
|
|
||
00808862 A3F83C8900 mov dword ptr [$00893CF8], eax
|
||
00808867 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.FormClose(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808868 C60102 mov byte ptr [ecx], $02
|
||
0080886B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.TBCloseClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080886C 53 push ebx
|
||
0080886D 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0080886F B9AC888000 mov ecx, $008088AC
|
||
|
||
* Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView
|
||
|
|
||
00808874 8B9328030000 mov edx, [ebx+$0328]
|
||
|
||
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>1'
|
||
|
|
||
0080887A B8C0888000 mov eax, $008088C0
|
||
|
||
|
|
||
0080887F E81CF3FAFF call 007B7BA0
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00808884 B9AC888000 mov ecx, $008088AC
|
||
|
||
* Reference to control TfrmYFFKList.Tv1 : TcxGridDBTableView
|
||
|
|
||
00808889 8B937C030000 mov edx, [ebx+$037C]
|
||
|
||
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>2'
|
||
|
|
||
0080888F B8D8888000 mov eax, $008088D8
|
||
|
||
|
|
||
00808894 E807F3FAFF call 007B7BA0
|
||
00808899 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
0080889B E8F8D6C9FF call 004A5F98
|
||
008088A0 5B pop ebx
|
||
008088A1 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
008088E8 55 push ebp
|
||
008088E9 8BEC mov ebp, esp
|
||
008088EB 6A00 push $00
|
||
008088ED 53 push ebx
|
||
008088EE 8BD8 mov ebx, eax
|
||
008088F0 33C0 xor eax, eax
|
||
008088F2 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>L<EFBFBD><4C><EFBFBD><EFBFBD><EFBFBD>[Y]<5D>'
|
||
|
|
||
008088F3 68A3898000 push $008089A3
|
||
|
||
***** TRY
|
||
|
|
||
008088F8 64FF30 push dword ptr fs:[eax]
|
||
008088FB 648920 mov fs:[eax], esp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
008088FE B9B8898000 mov ecx, $008089B8
|
||
|
||
* Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView
|
||
|
|
||
00808903 8B9328030000 mov edx, [ebx+$0328]
|
||
|
||
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>1'
|
||
|
|
||
00808909 B8CC898000 mov eax, $008089CC
|
||
|
||
|
|
||
0080890E E891F0FAFF call 007B79A4
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00808913 B9B8898000 mov ecx, $008089B8
|
||
|
||
* Reference to control TfrmYFFKList.Tv1 : TcxGridDBTableView
|
||
|
|
||
00808918 8B937C030000 mov edx, [ebx+$037C]
|
||
|
||
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>2'
|
||
|
|
||
0080891E B8E4898000 mov eax, $008089E4
|
||
|
||
|
|
||
00808923 E87CF0FAFF call 007B79A4
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryTemp : TADOQuery
|
||
|
|
||
00808928 8B8304030000 mov eax, [ebx+$0304]
|
||
|
||
|
|
||
0080892E E855C0FAFF call 007B4988
|
||
00808933 83C4F8 add esp, -$08
|
||
00808936 DD1C24 fstp qword ptr [esp]
|
||
00808939 9B wait
|
||
|
||
* Reference to control TfrmYFFKList.Enddate : TDateTimePicker
|
||
|
|
||
0080893A 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
00808940 E8E798C6FF call 0047222C
|
||
|
||
* Reference to control TfrmYFFKList.Enddate : TDateTimePicker
|
||
|
|
||
00808945 8B833C030000 mov eax, [ebx+$033C]
|
||
0080894B DD8010020000 fld qword ptr [eax+$0210]
|
||
00808951 D825F4898000 fsub dword ptr [$008089F4]
|
||
00808957 83C4F8 add esp, -$08
|
||
0080895A DD1C24 fstp qword ptr [esp]
|
||
0080895D 9B wait
|
||
|
||
* Reference to control TfrmYFFKList.begdate : TDateTimePicker
|
||
|
|
||
0080895E 8B8338030000 mov eax, [ebx+$0338]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
00808964 E8C398C6FF call 0047222C
|
||
00808969 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Possible String Reference to: 'select distinct (A.FactoryName) nam
|
||
| e from YF_Money_CR A where A.CRType
|
||
| ='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
||
|
|
||
0080896C BA008A8000 mov edx, $00808A00
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00808971 E846CABFFF call 004053BC
|
||
00808976 8B45FC mov eax, [ebp-$04]
|
||
00808979 50 push eax
|
||
0080897A 33C9 xor ecx, ecx
|
||
|
||
* Reference to control TfrmYFFKList.FactoryName : TComboBox
|
||
|
|
||
0080897C 8B93D4030000 mov edx, [ebx+$03D4]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery
|
||
|
|
||
00808982 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
00808988 E8BBE8FAFF call 007B7248
|
||
0080898D 33C0 xor eax, eax
|
||
0080898F 5A pop edx
|
||
00808990 59 pop ecx
|
||
00808991 59 pop ecx
|
||
00808992 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[Y]<5D>'
|
||
|
|
||
00808995 68AA898000 push $008089AA
|
||
0080899A 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0080899D E882C9BFFF call 00405324
|
||
008089A2 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008089A3 E94CC1BFFF jmp 00404AF4
|
||
008089A8 EBF0 jmp 0080899A
|
||
|
||
****** END
|
||
|
|
||
008089AA 5B pop ebx
|
||
008089AB 59 pop ecx
|
||
008089AC 5D pop ebp
|
||
008089AD C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.TBRafreshClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
|
||
|
|
||
00808A58 E877FBFFFF call 008085D4
|
||
00808A5D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.ToolButton2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808A60 55 push ebp
|
||
00808A61 8BEC mov ebp, esp
|
||
00808A63 6A00 push $00
|
||
00808A65 6A00 push $00
|
||
00808A67 53 push ebx
|
||
00808A68 8BD8 mov ebx, eax
|
||
00808A6A 33C0 xor eax, eax
|
||
00808A6C 55 push ebp
|
||
00808A6D 68F68A8000 push $00808AF6
|
||
|
||
***** TRY
|
||
|
|
||
00808A72 64FF30 push dword ptr fs:[eax]
|
||
00808A75 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808A78 8B8370030000 mov eax, [ebx+$0370]
|
||
|
||
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
||
|
|
||
00808A7E E891CFCBFF call 004C5A14
|
||
00808A83 84C0 test al, al
|
||
00808A85 7454 jz 00808ADB
|
||
00808A87 8D45F8 lea eax, [ebp-$08]
|
||
00808A8A 50 push eax
|
||
00808A8B B902000000 mov ecx, $00000002
|
||
00808A90 BA01000000 mov edx, $00000001
|
||
|
||
* Reference to control TfrmYFFKList.Panel1 : TPanel
|
||
|
|
||
00808A95 8B830C030000 mov eax, [ebx+$030C]
|
||
|
||
|
|
||
00808A9B E810D6FAFF call 007B60B0
|
||
00808AA0 8B45F8 mov eax, [ebp-$08]
|
||
00808AA3 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00808AA6 E8411EC0FF call 0040A8EC
|
||
00808AAB 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808AAE 8B8370030000 mov eax, [ebx+$0370]
|
||
|
||
|
|
||
00808AB4 E80FE2FAFF call 007B6CC8
|
||
|
||
* Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet
|
||
|
|
||
00808AB9 8B9374030000 mov edx, [ebx+$0374]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808ABF 8B8370030000 mov eax, [ebx+$0370]
|
||
|
||
|
|
||
00808AC5 E8C6E3FAFF call 007B6E90
|
||
|
||
* Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet
|
||
|
|
||
00808ACA 8B9374030000 mov edx, [ebx+$0374]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808AD0 8B8370030000 mov eax, [ebx+$0370]
|
||
|
||
|
|
||
00808AD6 E83DE5FAFF call 007B7018
|
||
00808ADB 33C0 xor eax, eax
|
||
00808ADD 5A pop edx
|
||
00808ADE 59 pop ecx
|
||
00808ADF 59 pop ecx
|
||
00808AE0 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00808AE3 68FD8A8000 push $00808AFD
|
||
00808AE8 8D45F8 lea eax, [ebp-$08]
|
||
00808AEB BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00808AF0 E853C8BFFF call 00405348
|
||
00808AF5 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00808AF6 E9F9BFBFFF jmp 00404AF4
|
||
00808AFB EBEB jmp 00808AE8
|
||
|
||
****** END
|
||
|
|
||
00808AFD 5B pop ebx
|
||
00808AFE 59 pop ecx
|
||
00808AFF 59 pop ecx
|
||
00808B00 5D pop ebp
|
||
00808B01 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.FactoryNameChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808B04 56 push esi
|
||
|
||
* Reference to control TfrmYFFKList.ToolButton2 : TToolButton
|
||
|
|
||
00808B05 8B8010030000 mov eax, [eax+$0310]
|
||
00808B0B 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
00808B0F E840BABFFF call 00404554
|
||
00808B14 5E pop esi
|
||
00808B15 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.ToolButton1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808B18 53 push ebx
|
||
00808B19 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808B1B 8B8370030000 mov eax, [ebx+$0370]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00808B21 E89AF3CBFF call 004C7EC0
|
||
00808B26 84C0 test al, al
|
||
00808B28 7516 jnz 00808B40
|
||
|
||
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EEB8B6>ͳ<EFBFBD><CDB3><EFBFBD>б<EFBFBD>'
|
||
|
|
||
00808B2A B94C8B8000 mov ecx, $00808B4C
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryMain : TADOQuery
|
||
|
|
||
00808B2F 8B9370030000 mov edx, [ebx+$0370]
|
||
|
||
* Reference to control TfrmYFFKList.Tv2 : TcxGridDBTableView
|
||
|
|
||
00808B35 8B8328030000 mov eax, [ebx+$0328]
|
||
|
||
|
|
||
00808B3B E8F0F6FAFF call 007B8230
|
||
00808B40 5B pop ebx
|
||
00808B41 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.Tv2CellClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00808B60 55 push ebp
|
||
00808B61 8BEC mov ebp, esp
|
||
00808B63 51 push ecx
|
||
00808B64 B905000000 mov ecx, $00000005
|
||
00808B69 6A00 push $00
|
||
00808B6B 6A00 push $00
|
||
00808B6D 49 dec ecx
|
||
00808B6E 75F9 jnz 00808B69
|
||
00808B70 874DFC xchg [ebp-$04], ecx
|
||
00808B73 53 push ebx
|
||
00808B74 56 push esi
|
||
00808B75 8BF0 mov esi, eax
|
||
00808B77 33C0 xor eax, eax
|
||
00808B79 55 push ebp
|
||
00808B7A 68238E8000 push $00808E23
|
||
|
||
***** TRY
|
||
|
|
||
00808B7F 64FF30 push dword ptr fs:[eax]
|
||
00808B82 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet
|
||
|
|
||
00808B85 8B8674030000 mov eax, [esi+$0374]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00808B8B E830F3CBFF call 004C7EC0
|
||
00808B90 84C0 test al, al
|
||
00808B92 0F8570020000 jnz 00808E08
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery
|
||
|
|
||
00808B98 8B9E08030000 mov ebx, [esi+$0308]
|
||
00808B9E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00808BA0 E82FCDCBFF call 004C58D4
|
||
00808BA5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808BA7 E80054CDFF call 004DDFAC
|
||
00808BAC 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00808BAE FF5244 call dword ptr [edx+$44]
|
||
00808BB1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808BB3 E8F453CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select AA.* '
|
||
|
|
||
00808BB8 BA3C8E8000 mov edx, $00808E3C
|
||
00808BBD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808BBF FF5138 call dword ptr [ecx+$38]
|
||
00808BC2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808BC4 E8E353CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from (select A.*,cast(Money as dec
|
||
| imal(18,2)) yfk,cast(0 as decimal(1
|
||
| 8,2)) fk,cast(0 as decimal(18,2)) y
|
||
| fkye'
|
||
|
|
||
00808BC9 BA548E8000 mov edx, $00808E54
|
||
00808BCE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808BD0 FF5138 call dword ptr [ecx+$38]
|
||
00808BD3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808BD5 E8D253CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
00808BDA BACC8E8000 mov edx, $00808ECC
|
||
00808BDF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808BE1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where A.CRTime>=''
|
||
|
|
||
00808BE4 68E88E8000 push $00808EE8
|
||
|
||
* Reference to control TfrmYFFKList.begdate : TDateTimePicker
|
||
|
|
||
00808BE9 8B8638030000 mov eax, [esi+$0338]
|
||
00808BEF FFB014020000 push dword ptr [eax+$0214]
|
||
00808BF5 FFB010020000 push dword ptr [eax+$0210]
|
||
00808BFB 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00808BFE B8048F8000 mov eax, $00808F04
|
||
|
||
|
|
||
00808C03 E8B45FC0FF call 0040EBBC
|
||
00808C08 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00808C0B 68188F8000 push $00808F18
|
||
00808C10 8D45FC lea eax, [ebp-$04]
|
||
00808C13 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00808C18 E897CABFFF call 004056B4
|
||
00808C1D 8B45FC mov eax, [ebp-$04]
|
||
00808C20 50 push eax
|
||
00808C21 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808C23 E88453CDFF call 004DDFAC
|
||
00808C28 5A pop edx
|
||
00808C29 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808C2B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and A.CRTime<''
|
||
|
|
||
00808C2E 68248F8000 push $00808F24
|
||
|
||
* Reference to control TfrmYFFKList.Enddate : TDateTimePicker
|
||
|
|
||
00808C33 8B863C030000 mov eax, [esi+$033C]
|
||
00808C39 DD8010020000 fld qword ptr [eax+$0210]
|
||
00808C3F D805348F8000 fadd dword ptr [$00808F34]
|
||
00808C45 83C4F8 add esp, -$08
|
||
00808C48 DD1C24 fstp qword ptr [esp]
|
||
00808C4B 9B wait
|
||
00808C4C 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00808C4F B8048F8000 mov eax, $00808F04
|
||
|
||
|
|
||
00808C54 E8635FC0FF call 0040EBBC
|
||
00808C59 FF75F0 push dword ptr [ebp-$10]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00808C5C 68188F8000 push $00808F18
|
||
00808C61 8D45F4 lea eax, [ebp-$0C]
|
||
00808C64 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00808C69 E846CABFFF call 004056B4
|
||
00808C6E 8B45F4 mov eax, [ebp-$0C]
|
||
00808C71 50 push eax
|
||
00808C72 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808C74 E83353CDFF call 004DDFAC
|
||
00808C79 5A pop edx
|
||
00808C7A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808C7C FF5138 call dword ptr [ecx+$38]
|
||
00808C7F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808C81 E82653CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRType='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
||
|
|
||
00808C86 BA408F8000 mov edx, $00808F40
|
||
00808C8B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808C8D FF5138 call dword ptr [ecx+$38]
|
||
00808C90 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808C92 E81553CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')='2' '
|
||
|
|
||
00808C97 BA648F8000 mov edx, $00808F64
|
||
00808C9C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808C9E FF5138 call dword ptr [ecx+$38]
|
||
00808CA1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808CA3 E80453CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' union all'
|
||
|
|
||
00808CA8 BA8C8F8000 mov edx, $00808F8C
|
||
00808CAD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808CAF FF5138 call dword ptr [ecx+$38]
|
||
00808CB2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808CB4 E8F352CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select A.*,cast(0 as decimal(18,2
|
||
| )) yfk,cast(Money as decimal(18,2))
|
||
| fk,cast(0 as decimal(18,2)) yfkye'
|
||
|
|
||
00808CB9 BAA08F8000 mov edx, $00808FA0
|
||
00808CBE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808CC0 FF5138 call dword ptr [ecx+$38]
|
||
00808CC3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808CC5 E8E252CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
00808CCA BACC8E8000 mov edx, $00808ECC
|
||
00808CCF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808CD1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where A.CRTime>=''
|
||
|
|
||
00808CD4 68E88E8000 push $00808EE8
|
||
|
||
* Reference to control TfrmYFFKList.begdate : TDateTimePicker
|
||
|
|
||
00808CD9 8B8638030000 mov eax, [esi+$0338]
|
||
00808CDF FFB014020000 push dword ptr [eax+$0214]
|
||
00808CE5 FFB010020000 push dword ptr [eax+$0210]
|
||
00808CEB 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00808CEE B8048F8000 mov eax, $00808F04
|
||
|
||
|
|
||
00808CF3 E8C45EC0FF call 0040EBBC
|
||
00808CF8 FF75E8 push dword ptr [ebp-$18]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00808CFB 68188F8000 push $00808F18
|
||
00808D00 8D45EC lea eax, [ebp-$14]
|
||
00808D03 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00808D08 E8A7C9BFFF call 004056B4
|
||
00808D0D 8B45EC mov eax, [ebp-$14]
|
||
00808D10 50 push eax
|
||
00808D11 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808D13 E89452CDFF call 004DDFAC
|
||
00808D18 5A pop edx
|
||
00808D19 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808D1B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and A.CRTime<''
|
||
|
|
||
00808D1E 68248F8000 push $00808F24
|
||
|
||
* Reference to control TfrmYFFKList.Enddate : TDateTimePicker
|
||
|
|
||
00808D23 8B863C030000 mov eax, [esi+$033C]
|
||
00808D29 DD8010020000 fld qword ptr [eax+$0210]
|
||
00808D2F D805348F8000 fadd dword ptr [$00808F34]
|
||
00808D35 83C4F8 add esp, -$08
|
||
00808D38 DD1C24 fstp qword ptr [esp]
|
||
00808D3B 9B wait
|
||
00808D3C 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00808D3F B8048F8000 mov eax, $00808F04
|
||
|
||
|
|
||
00808D44 E8735EC0FF call 0040EBBC
|
||
00808D49 FF75E0 push dword ptr [ebp-$20]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00808D4C 68188F8000 push $00808F18
|
||
00808D51 8D45E4 lea eax, [ebp-$1C]
|
||
00808D54 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00808D59 E856C9BFFF call 004056B4
|
||
00808D5E 8B45E4 mov eax, [ebp-$1C]
|
||
00808D61 50 push eax
|
||
00808D62 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808D64 E84352CDFF call 004DDFAC
|
||
00808D69 5A pop edx
|
||
00808D6A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808D6C FF5138 call dword ptr [ecx+$38]
|
||
00808D6F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808D71 E83652CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRType='<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
||
|
|
||
00808D76 BA14908000 mov edx, $00809014
|
||
00808D7B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808D7D FF5138 call dword ptr [ecx+$38]
|
||
00808D80 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808D82 E82552CDFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')='2' ) AA'
|
||
|
|
||
00808D87 BA38908000 mov edx, $00809038
|
||
00808D8C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808D8E FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where AA.FactoryName=''
|
||
|
|
||
00808D91 6864908000 push $00809064
|
||
|
||
* Possible String Reference to: 'FactoryName'
|
||
|
|
||
00808D96 BA84908000 mov edx, $00809084
|
||
|
||
* Reference to control TfrmYFFKList.CDS_HZ : TClientDataSet
|
||
|
|
||
00808D9B 8B8674030000 mov eax, [esi+$0374]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00808DA1 E80EDECBFF call 004C6BB4
|
||
00808DA6 8D55D4 lea edx, [ebp-$2C]
|
||
00808DA9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00808DAB FF5160 call dword ptr [ecx+$60]
|
||
00808DAE 8B45D4 mov eax, [ebp-$2C]
|
||
00808DB1 8D55D8 lea edx, [ebp-$28]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00808DB4 E8331BC0FF call 0040A8EC
|
||
00808DB9 FF75D8 push dword ptr [ebp-$28]
|
||
00808DBC 6898908000 push $00809098
|
||
00808DC1 8D45DC lea eax, [ebp-$24]
|
||
00808DC4 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00808DC9 E8E6C8BFFF call 004056B4
|
||
00808DCE 8B45DC mov eax, [ebp-$24]
|
||
00808DD1 50 push eax
|
||
00808DD2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00808DD4 E8D351CDFF call 004DDFAC
|
||
00808DD9 5A pop edx
|
||
00808DDA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00808DDC FF5138 call dword ptr [ecx+$38]
|
||
00808DDF 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00808DE1 E8E2CACBFF call 004C58C8
|
||
|
||
* Reference to control TfrmYFFKList.YForder_Sub : TClientDataSet
|
||
|
|
||
00808DE6 8B96C0030000 mov edx, [esi+$03C0]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery
|
||
|
|
||
00808DEC 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
|
|
||
00808DF2 E899E0FAFF call 007B6E90
|
||
|
||
* Reference to control TfrmYFFKList.YForder_Sub : TClientDataSet
|
||
|
|
||
00808DF7 8B96C0030000 mov edx, [esi+$03C0]
|
||
|
||
* Reference to control TfrmYFFKList.ADOQueryCmd : TADOQuery
|
||
|
|
||
00808DFD 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
|
|
||
00808E03 E810E2FAFF call 007B7018
|
||
00808E08 33C0 xor eax, eax
|
||
00808E0A 5A pop edx
|
||
00808E0B 59 pop ecx
|
||
00808E0C 59 pop ecx
|
||
00808E0D 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00808E10 682A8E8000 push $00808E2A
|
||
00808E15 8D45D4 lea eax, [ebp-$2C]
|
||
00808E18 BA0B000000 mov edx, $0000000B
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00808E1D E826C5BFFF call 00405348
|
||
00808E22 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00808E23 E9CCBCBFFF jmp 00404AF4
|
||
00808E28 EBEB jmp 00808E15
|
||
|
||
****** END
|
||
|
|
||
00808E2A 5E pop esi
|
||
00808E2B 5B pop ebx
|
||
00808E2C 8BE5 mov esp, ebp
|
||
00808E2E 5D pop ebp
|
||
00808E2F C20C00 ret $000C
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.TFPClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080909C 55 push ebp
|
||
0080909D 8BEC mov ebp, esp
|
||
0080909F 6A00 push $00
|
||
008090A1 6A00 push $00
|
||
008090A3 53 push ebx
|
||
008090A4 8BD8 mov ebx, eax
|
||
008090A6 33C0 xor eax, eax
|
||
008090A8 55 push ebp
|
||
008090A9 6838918000 push $00809138
|
||
|
||
***** TRY
|
||
|
|
||
008090AE 64FF30 push dword ptr fs:[eax]
|
||
008090B1 648920 mov fs:[eax], esp
|
||
008090B4 8BCB mov ecx, ebx
|
||
008090B6 B201 mov dl, $01
|
||
|
||
* Reference to class TfrmYSSKList_KPFK
|
||
|
|
||
008090B8 A14C658000 mov eax, dword ptr [$0080654C]
|
||
|
||
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
|
|
||
008090BD E80E8DC9FF call 004A1DD0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList.Tv2CellDblClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809158 55 push ebp
|
||
00809159 8BEC mov ebp, esp
|
||
0080915B 56 push esi
|
||
|
||
* Reference to control TfrmYFFKList.TFP : TToolButton
|
||
|
|
||
0080915C 8B80D8030000 mov eax, [eax+$03D8]
|
||
00809162 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
00809166 E8E9B3BFFF call 00404554
|
||
0080916B 5E pop esi
|
||
0080916C 5D pop ebp
|
||
0080916D C20C00 ret $000C
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809170(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809170 55 push ebp
|
||
00809171 8BEC mov ebp, esp
|
||
00809173 33C0 xor eax, eax
|
||
00809175 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Z<EFBFBD><5A><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D><<3C>'
|
||
|
|
||
00809176 6895918000 push $00809195
|
||
|
||
***** TRY
|
||
|
|
||
0080917B 64FF30 push dword ptr fs:[eax]
|
||
0080917E 648920 mov fs:[eax], esp
|
||
00809181 FF05FC3C8900 inc dword ptr [$00893CFC]
|
||
00809187 33C0 xor eax, eax
|
||
00809189 5A pop edx
|
||
0080918A 59 pop ecx
|
||
0080918B 59 pop ecx
|
||
0080918C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
||
|
|
||
0080918F 689C918000 push $0080919C
|
||
00809194 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809195 E95AB9BFFF jmp 00404AF4
|
||
0080919A EBF8 jmp 00809194
|
||
|
||
****** END
|
||
|
|
||
0080919C 5D pop ebp
|
||
0080919D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008091A0(Sender : TObject);
|
||
begin
|
||
(*
|
||
008091A0 832DFC3C890001 sub dword ptr [$00893CFC], +$01
|
||
008091A7 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809421(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809421 8BEC mov ebp, esp
|
||
00809423 33C0 xor eax, eax
|
||
00809425 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>T<EFBFBD><54><EFBFBD><EFBFBD><EFBFBD>]Ã-'
|
||
|
|
||
00809426 689B948000 push $0080949B
|
||
|
||
***** TRY
|
||
|
|
||
0080942B 64FF30 push dword ptr fs:[eax]
|
||
0080942E 648920 mov fs:[eax], esp
|
||
00809431 FF05003D8900 inc dword ptr [$00893D00]
|
||
00809437 7554 jnz 0080948D
|
||
00809439 B800008900 mov eax, $00890000
|
||
0080943E B90A000000 mov ecx, $0000000A
|
||
|
||
* Reference to object String
|
||
|
|
||
00809443 8B1520114000 mov edx, [$00401120]
|
||
|
||
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
||
|
|
||
00809449 E8C6CCBFFF call 00406114
|
||
0080944E B8F0FF8800 mov eax, $0088FFF0
|
||
00809453 B904000000 mov ecx, $00000004
|
||
|
||
* Reference to object String
|
||
|
|
||
00809458 8B1520114000 mov edx, [$00401120]
|
||
|
||
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
||
|
|
||
0080945E E8B1CCBFFF call 00406114
|
||
00809463 B8A4FF8800 mov eax, $0088FFA4
|
||
00809468 B913000000 mov ecx, $00000013
|
||
|
||
* Reference to object String
|
||
|
|
||
0080946D 8B1520114000 mov edx, [$00401120]
|
||
|
||
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
||
|
|
||
00809473 E89CCCBFFF call 00406114
|
||
00809478 B884FF8800 mov eax, $0088FF84
|
||
0080947D B908000000 mov ecx, $00000008
|
||
|
||
* Reference to object String
|
||
|
|
||
00809482 8B1520114000 mov edx, [$00401120]
|
||
|
||
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
||
|
|
||
00809488 E887CCBFFF call 00406114
|
||
0080948D 33C0 xor eax, eax
|
||
0080948F 5A pop edx
|
||
00809490 59 pop ecx
|
||
00809491 59 pop ecx
|
||
00809492 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ã-'
|
||
|
|
||
00809495 68A2948000 push $008094A2
|
||
0080949A C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0080949B E954B6BFFF jmp 00404AF4
|
||
008094A0 EBF8 jmp 0080949A
|
||
|
||
****** END
|
||
|
|
||
008094A2 5D pop ebp
|
||
008094A3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008094A4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008094A4 832D003D890001 sub dword ptr [$00893D00], +$01
|
||
008094AB C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008094AC(Sender : TObject);
|
||
begin
|
||
(*
|
||
008094AC 55 push ebp
|
||
008094AD 8BEC mov ebp, esp
|
||
008094AF 33C0 xor eax, eax
|
||
008094B1 55 push ebp
|
||
008094B2 68D1948000 push $008094D1
|
||
|
||
***** TRY
|
||
|
|
||
008094B7 64FF30 push dword ptr fs:[eax]
|
||
008094BA 648920 mov fs:[eax], esp
|
||
008094BD FF05043D8900 inc dword ptr [$00893D04]
|
||
008094C3 33C0 xor eax, eax
|
||
008094C5 5A pop edx
|
||
008094C6 59 pop ecx
|
||
008094C7 59 pop ecx
|
||
008094C8 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
008094CB 68D8948000 push $008094D8
|
||
008094D0 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008094D1 E91EB6BFFF jmp 00404AF4
|
||
008094D6 EBF8 jmp 008094D0
|
||
|
||
****** END
|
||
|
|
||
008094D8 5D pop ebp
|
||
008094D9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008094DC(Sender : TObject);
|
||
begin
|
||
(*
|
||
008094DC 832D043D890001 sub dword ptr [$00893D04], +$01
|
||
008094E3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008094E4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008094E4 55 push ebp
|
||
008094E5 8BEC mov ebp, esp
|
||
008094E7 33C0 xor eax, eax
|
||
008094E9 55 push ebp
|
||
008094EA 6809958000 push $00809509
|
||
|
||
***** TRY
|
||
|
|
||
008094EF 64FF30 push dword ptr fs:[eax]
|
||
008094F2 648920 mov fs:[eax], esp
|
||
008094F5 FF05083D8900 inc dword ptr [$00893D08]
|
||
008094FB 33C0 xor eax, eax
|
||
008094FD 5A pop edx
|
||
008094FE 59 pop ecx
|
||
008094FF 59 pop ecx
|
||
00809500 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00809503 6810958000 push $00809510
|
||
00809508 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809509 E9E6B5BFFF jmp 00404AF4
|
||
0080950E EBF8 jmp 00809508
|
||
|
||
****** END
|
||
|
|
||
00809510 5D pop ebp
|
||
00809511 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809514(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809514 832D083D890001 sub dword ptr [$00893D08], +$01
|
||
0080951B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_0080951C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080951C 53 push ebx
|
||
0080951D 8BD8 mov ebx, eax
|
||
0080951F 53 push ebx
|
||
|
||
* Reference to: shell32.SHGetDesktopFolder()
|
||
|
|
||
00809520 E8BB4FC3FF call 0043E4E0
|
||
|
||
* Reference to: ComObj.OleCheck(HRESULT);
|
||
|
|
||
00809525 E88E8DCAFF call 004B22B8
|
||
0080952A 5B pop ebx
|
||
0080952B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_0080952C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080952C 55 push ebp
|
||
0080952D 8BEC mov ebp, esp
|
||
0080952F 83C4F8 add esp, -$08
|
||
00809532 53 push ebx
|
||
00809533 56 push esi
|
||
00809534 33DB xor ebx, ebx
|
||
00809536 895DF8 mov [ebp-$08], ebx
|
||
00809539 8BF1 mov esi, ecx
|
||
0080953B 8BD8 mov ebx, eax
|
||
0080953D 33C0 xor eax, eax
|
||
0080953F 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>+<2B><><EFBFBD><EFBFBD><EFBFBD>^[YY]Í@'
|
||
|
|
||
00809540 68C4958000 push $008095C4
|
||
|
||
***** TRY
|
||
|
|
||
00809545 64FF30 push dword ptr fs:[eax]
|
||
00809548 648920 mov fs:[eax], esp
|
||
0080954B 8B03 mov eax, [ebx]
|
||
0080954D 83E801 sub eax, +$01
|
||
00809550 723D jb 0080958F
|
||
00809552 741A jz 0080956E
|
||
00809554 48 dec eax
|
||
00809555 7557 jnz 008095AE
|
||
|
||
* Reference to field TfrmYFFKList.Owner : TComponent
|
||
|
|
||
00809557 8D4304 lea eax, [ebx+$04]
|
||
0080955A 50 push eax
|
||
|
||
* Reference to: kernel32.lstrlenA()
|
||
|
|
||
0080955B E834EEBFFF call 00408394
|
||
00809560 8BC8 mov ecx, eax
|
||
|
||
* Reference to field TfrmYFFKList.Owner : TComponent
|
||
|
|
||
00809562 8D5304 lea edx, [ebx+$04]
|
||
00809565 8BC6 mov eax, esi
|
||
|
||
* Reference to: System.@WStrFromPCharLen(WideString;WideString;PAnsiChar;Integer);
|
||
|
|
||
00809567 E83CC5BFFF call 00405AA8
|
||
0080956C EB40 jmp 008095AE
|
||
|
||
* Reference to field TComponent.OFFS_0002
|
||
|
|
||
0080956E 8D4202 lea eax, [edx+$02]
|
||
00809571 8945FC mov [ebp-$04], eax
|
||
|
||
* Reference to field TfrmYFFKList.Owner : TComponent
|
||
|
|
||
00809574 8B4304 mov eax, [ebx+$04]
|
||
00809577 83E802 sub eax, +$02
|
||
0080957A 0145FC add [ebp-$04], eax
|
||
0080957D 0FB70A movzx ecx, word ptr [edx]
|
||
00809580 2B4B04 sub ecx, dword ptr [ebx+$04]
|
||
00809583 8BC6 mov eax, esi
|
||
00809585 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to: System.@WStrFromPCharLen(WideString;WideString;PAnsiChar;Integer);
|
||
|
|
||
00809588 E81BC5BFFF call 00405AA8
|
||
0080958D EB1F jmp 008095AE
|
||
0080958F 8BD6 mov edx, esi
|
||
00809591 8B4304 mov eax, [ebx+$04]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809618()
|
||
|
|
||
00809594 E87F000000 call 00809618
|
||
00809599 8B4304 mov eax, [ebx+$04]
|
||
0080959C 50 push eax
|
||
0080959D 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_008095D4()
|
||
|
|
||
008095A0 E82F000000 call 008095D4
|
||
008095A5 8B45F8 mov eax, [ebp-$08]
|
||
008095A8 50 push eax
|
||
008095A9 8B00 mov eax, [eax]
|
||
008095AB FF5014 call dword ptr [eax+$14]
|
||
008095AE 33C0 xor eax, eax
|
||
008095B0 5A pop edx
|
||
008095B1 59 pop ecx
|
||
008095B2 59 pop ecx
|
||
008095B3 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[YY]Í@'
|
||
|
|
||
008095B6 68CB958000 push $008095CB
|
||
008095BB 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
||
|
|
||
008095BE E84DDFBFFF call 00407510
|
||
008095C3 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008095C4 E92BB5BFFF jmp 00404AF4
|
||
008095C9 EBF0 jmp 008095BB
|
||
|
||
****** END
|
||
|
|
||
008095CB 5E pop esi
|
||
008095CC 5B pop ebx
|
||
008095CD 59 pop ecx
|
||
008095CE 59 pop ecx
|
||
008095CF 5D pop ebp
|
||
008095D0 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008095D4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008095D4 53 push ebx
|
||
008095D5 8BD8 mov ebx, eax
|
||
008095D7 833D1C3D890000 cmp dword ptr [$00893D1C], +$00
|
||
008095DE 750A jnz 008095EA
|
||
008095E0 681C3D8900 push $00893D1C
|
||
|
||
* Reference to: shell32.SHGetMalloc()
|
||
|
|
||
008095E5 E8FE4EC3FF call 0043E4E8
|
||
008095EA 8BC3 mov eax, ebx
|
||
008095EC 8B151C3D8900 mov edx, [$00893D1C]
|
||
|
||
* Reference to: System.@IntfCopy(IInterface;IInterface;IInterface);
|
||
|
|
||
008095F2 E831DFBFFF call 00407528
|
||
008095F7 5B pop ebx
|
||
008095F8 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008095FC(Sender : TObject);
|
||
begin
|
||
(*
|
||
008095FC 89FA mov edx, edi
|
||
008095FE 89C7 mov edi, eax
|
||
00809600 B9FFFFFFFF mov ecx, $FFFFFFFF
|
||
00809605 6631C0 xor ax, ax
|
||
00809608 F2 repne
|
||
00809609 66AF scasw
|
||
0080960B B8FEFFFFFF mov eax, $FFFFFFFE
|
||
00809610 29C8 sub eax, ecx
|
||
00809612 89D7 mov edi, edx
|
||
00809614 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809618(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809618 53 push ebx
|
||
00809619 56 push esi
|
||
0080961A 57 push edi
|
||
0080961B 8BFA mov edi, edx
|
||
0080961D 8BF0 mov esi, eax
|
||
0080961F 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmYFFKList._PROC_008095FC()
|
||
|
|
||
00809621 E8D6FFFFFF call 008095FC
|
||
00809626 8BD8 mov ebx, eax
|
||
00809628 8BC7 mov eax, edi
|
||
0080962A 8BD3 mov edx, ebx
|
||
|
||
|
|
||
0080962C E85FC9BFFF call 00405F90
|
||
00809631 8BCB mov ecx, ebx
|
||
00809633 03C9 add ecx, ecx
|
||
00809635 8B07 mov eax, [edi]
|
||
00809637 8BD6 mov edx, esi
|
||
|
||
* Reference to: Classes.TPersistent.AssignTo(TPersistent;TPersistent);
|
||
| or: Classes.TComponent.ReadState(TComponent;TReader);
|
||
| or: FMTBcd.VarFMTBcdCreate(TBcd;TBcd):Variant;overload;
|
||
| or: QGraphics.TGraphic.AssignsTo(classofTGraphic;TGraphicClass):Boolean;
|
||
| or: SqlTimSt.VarSQLTimeStampCreate(TSQLTimeStamp;TSQLTimeStamp):Variant;overload;
|
||
| or: System.WideCharToStrVar(PWideChar;String;String);
|
||
|
|
||
00809639 E866F8BFFF call 00408EA4
|
||
0080963E 5F pop edi
|
||
0080963F 5E pop esi
|
||
00809640 5B pop ebx
|
||
00809641 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809644(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809644 55 push ebp
|
||
00809645 8BEC mov ebp, esp
|
||
00809647 83C4F4 add esp, -$0C
|
||
0080964A 53 push ebx
|
||
0080964B 56 push esi
|
||
0080964C 33C9 xor ecx, ecx
|
||
0080964E 894DF4 mov [ebp-$0C], ecx
|
||
00809651 8BF2 mov esi, edx
|
||
00809653 8BD8 mov ebx, eax
|
||
00809655 33C0 xor eax, eax
|
||
00809657 55 push ebp
|
||
00809658 6836978000 push $00809736
|
||
|
||
***** TRY
|
||
|
|
||
0080965D 64FF30 push dword ptr fs:[eax]
|
||
00809660 648920 mov fs:[eax], esp
|
||
00809663 8BC6 mov eax, esi
|
||
|
||
* Reference to: System.@WStrClr(void;void);
|
||
|
|
||
00809665 E8D6C3BFFF call 00405A40
|
||
0080966A 85DB test ebx, ebx
|
||
0080966C 0F84AE000000 jz 00809720
|
||
00809672 833D2C00890000 cmp dword ptr [$0089002C], +$00
|
||
00809679 7558 jnz 008096D3
|
||
0080967B B805010000 mov eax, $00000105
|
||
|
||
|
|
||
00809680 E83795BFFF call 00402BBC
|
||
00809685 8945FC mov [ebp-$04], eax
|
||
00809688 33C0 xor eax, eax
|
||
0080968A 55 push ebp
|
||
0080968B 68CC968000 push $008096CC
|
||
|
||
***** TRY
|
||
|
|
||
00809690 64FF30 push dword ptr fs:[eax]
|
||
00809693 648920 mov fs:[eax], esp
|
||
00809696 8B45FC mov eax, [ebp-$04]
|
||
00809699 50 push eax
|
||
0080969A 53 push ebx
|
||
0080969B FF1528008900 call dword ptr [$00890028]
|
||
008096A1 8D55F4 lea edx, [ebp-$0C]
|
||
008096A4 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: Dialogs.FixFileName(AnsiString):AnsiString;
|
||
| or: SysUtils.StrPas(PChar):AnsiString;
|
||
|
|
||
008096A7 E8C02FC0FF call 0040C66C
|
||
008096AC 8B55F4 mov edx, [ebp-$0C]
|
||
008096AF 8BC6 mov eax, esi
|
||
|
||
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
||
|
|
||
008096B1 E852C5BFFF call 00405C08
|
||
008096B6 33C0 xor eax, eax
|
||
008096B8 5A pop edx
|
||
008096B9 59 pop ecx
|
||
008096BA 59 pop ecx
|
||
008096BB 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
008096BE 6820978000 push $00809720
|
||
008096C3 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: System.@FreeMem(Pointer):Integer;
|
||
|
|
||
008096C6 E82195BFFF call 00402BEC
|
||
008096CB C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008096CC E923B4BFFF jmp 00404AF4
|
||
008096D1 EBF0 jmp 008096C3
|
||
008096D3 B80A020000 mov eax, $0000020A
|
||
|
||
|
|
||
008096D8 E8DF94BFFF call 00402BBC
|
||
008096DD 8945F8 mov [ebp-$08], eax
|
||
008096E0 33C0 xor eax, eax
|
||
008096E2 55 push ebp
|
||
008096E3 6819978000 push $00809719
|
||
|
||
***** TRY
|
||
|
|
||
008096E8 64FF30 push dword ptr fs:[eax]
|
||
008096EB 648920 mov fs:[eax], esp
|
||
008096EE 8B45F8 mov eax, [ebp-$08]
|
||
008096F1 50 push eax
|
||
008096F2 53 push ebx
|
||
008096F3 FF152C008900 call dword ptr [$0089002C]
|
||
008096F9 8BD6 mov edx, esi
|
||
008096FB 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809618()
|
||
|
|
||
008096FE E815FFFFFF call 00809618
|
||
00809703 33C0 xor eax, eax
|
||
00809705 5A pop edx
|
||
00809706 59 pop ecx
|
||
00809707 59 pop ecx
|
||
00809708 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
0080970B 6820978000 push $00809720
|
||
00809710 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: System.@FreeMem(Pointer):Integer;
|
||
|
|
||
00809713 E8D494BFFF call 00402BEC
|
||
00809718 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809719 E9D6B3BFFF jmp 00404AF4
|
||
0080971E EBF0 jmp 00809710
|
||
|
||
****** END
|
||
|
|
||
00809720 33C0 xor eax, eax
|
||
00809722 5A pop edx
|
||
00809723 59 pop ecx
|
||
00809724 59 pop ecx
|
||
00809725 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00809728 683D978000 push $0080973D
|
||
0080972D 8D45F4 lea eax, [ebp-$0C]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
00809730 E8EFBBBFFF call 00405324
|
||
00809735 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809736 E9B9B3BFFF jmp 00404AF4
|
||
0080973B EBF0 jmp 0080972D
|
||
|
||
****** END
|
||
|
|
||
0080973D 5E pop esi
|
||
0080973E 5B pop ebx
|
||
0080973F 8BE5 mov esp, ebp
|
||
00809741 5D pop ebp
|
||
00809742 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809744(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809744 83C4F8 add esp, -$08
|
||
00809747 890424 mov [esp], eax
|
||
0080974A 85C0 test eax, eax
|
||
0080974C 7424 jz 00809772
|
||
0080974E 89442404 mov [esp+$04], eax
|
||
00809752 EB14 jmp 00809768
|
||
00809754 8B442404 mov eax, [esp+$04]
|
||
00809758 890424 mov [esp], eax
|
||
0080975B 8B442404 mov eax, [esp+$04]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809800()
|
||
|
|
||
0080975F E89C000000 call 00809800
|
||
00809764 89442404 mov [esp+$04], eax
|
||
00809768 8B442404 mov eax, [esp+$04]
|
||
0080976C 66833800 cmp word ptr [eax], +$00
|
||
00809770 75E2 jnz 00809754
|
||
00809772 8B0424 mov eax, [esp]
|
||
00809775 59 pop ecx
|
||
00809776 5A pop edx
|
||
00809777 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809778(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809778 55 push ebp
|
||
00809779 8BEC mov ebp, esp
|
||
0080977B 6A00 push $00
|
||
0080977D 53 push ebx
|
||
0080977E 8BD8 mov ebx, eax
|
||
00809780 33C0 xor eax, eax
|
||
00809782 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>5<EFBFBD><35><EFBFBD><EFBFBD><EFBFBD>[Y]Í@'
|
||
|
|
||
00809783 68BA978000 push $008097BA
|
||
|
||
***** TRY
|
||
|
|
||
00809788 64FF30 push dword ptr fs:[eax]
|
||
0080978B 648920 mov fs:[eax], esp
|
||
0080978E 85DB test ebx, ebx
|
||
00809790 7412 jz 008097A4
|
||
00809792 53 push ebx
|
||
00809793 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_008095D4()
|
||
|
|
||
00809796 E839FEFFFF call 008095D4
|
||
0080979B 8B45FC mov eax, [ebp-$04]
|
||
0080979E 50 push eax
|
||
0080979F 8B00 mov eax, [eax]
|
||
008097A1 FF5014 call dword ptr [eax+$14]
|
||
008097A4 33C0 xor eax, eax
|
||
008097A6 5A pop edx
|
||
008097A7 59 pop ecx
|
||
008097A8 59 pop ecx
|
||
008097A9 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[Y]Í@'
|
||
|
|
||
008097AC 68C1978000 push $008097C1
|
||
008097B1 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
||
|
|
||
008097B4 E857DDBFFF call 00407510
|
||
008097B9 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008097BA E935B3BFFF jmp 00404AF4
|
||
008097BF EBF0 jmp 008097B1
|
||
|
||
****** END
|
||
|
|
||
008097C1 5B pop ebx
|
||
008097C2 59 pop ecx
|
||
008097C3 5D pop ebp
|
||
008097C4 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008097C8(Sender : TObject);
|
||
begin
|
||
(*
|
||
008097C8 53 push ebx
|
||
008097C9 51 push ecx
|
||
008097CA 890424 mov [esp], eax
|
||
008097CD 33DB xor ebx, ebx
|
||
008097CF 833C2400 cmp dword ptr [esp], +$00
|
||
008097D3 7424 jz 008097F9
|
||
008097D5 EB19 jmp 008097F0
|
||
008097D7 43 inc ebx
|
||
008097D8 8B0424 mov eax, [esp]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809800()
|
||
|
|
||
008097DB E820000000 call 00809800
|
||
008097E0 890424 mov [esp], eax
|
||
008097E3 81FB04010000 cmp ebx, $00000104
|
||
008097E9 7E05 jle 008097F0
|
||
008097EB 83CBFF or ebx, -$01
|
||
008097EE EB09 jmp 008097F9
|
||
008097F0 8B0424 mov eax, [esp]
|
||
008097F3 66833800 cmp word ptr [eax], +$00
|
||
008097F7 75DE jnz 008097D7
|
||
008097F9 8BC3 mov eax, ebx
|
||
008097FB 5A pop edx
|
||
008097FC 5B pop ebx
|
||
008097FD C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809800(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809800 51 push ecx
|
||
00809801 33D2 xor edx, edx
|
||
00809803 891424 mov [esp], edx
|
||
00809806 85C0 test eax, eax
|
||
00809808 740E jz 00809818
|
||
0080980A 66833800 cmp word ptr [eax], +$00
|
||
0080980E 7408 jz 00809818
|
||
00809810 0FB710 movzx edx, word ptr [eax]
|
||
00809813 03D0 add edx, eax
|
||
00809815 891424 mov [esp], edx
|
||
00809818 8B0424 mov eax, [esp]
|
||
0080981B 5A pop edx
|
||
0080981C C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809820(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809820 53 push ebx
|
||
00809821 BB30008900 mov ebx, $00890030
|
||
00809826 6A00 push $00
|
||
|
||
* Reference to: ole32.OleInitialize()
|
||
|
|
||
00809828 E8C75EC1FF call 0041F6F4
|
||
|
||
* Possible String Reference to: 'shell32.dll'
|
||
|
|
||
0080982D 68A0988000 push $008098A0
|
||
|
||
* Reference to: kernel32.LoadLibraryA()
|
||
|
|
||
00809832 E865EABFFF call 0040829C
|
||
00809837 8903 mov [ebx], eax
|
||
|
||
* Possible String Reference to: 'SHGetFolderLocation'
|
||
|
|
||
00809839 68AC988000 push $008098AC
|
||
0080983E 8B03 mov eax, [ebx]
|
||
00809840 50 push eax
|
||
|
||
* Reference to: kernel32.GetProcAddress()
|
||
|
|
||
00809841 E896E9BFFF call 004081DC
|
||
|
||
* Reference to GlobalVar_00893D18
|
||
|
|
||
00809846 A3183D8900 mov dword ptr [$00893D18], eax
|
||
0080984B 6A02 push $02
|
||
0080984D 8B03 mov eax, [ebx]
|
||
0080984F 50 push eax
|
||
|
||
* Reference to: kernel32.GetProcAddress()
|
||
|
|
||
00809850 E887E9BFFF call 004081DC
|
||
|
||
* Reference to GlobalVar_00893D0C
|
||
|
|
||
00809855 A30C3D8900 mov dword ptr [$00893D0C], eax
|
||
0080985A 6A04 push $04
|
||
0080985C 8B03 mov eax, [ebx]
|
||
0080985E 50 push eax
|
||
|
||
* Reference to: kernel32.GetProcAddress()
|
||
|
|
||
0080985F E878E9BFFF call 004081DC
|
||
|
||
* Reference to GlobalVar_00893D10
|
||
|
|
||
00809864 A3103D8900 mov dword ptr [$00893D10], eax
|
||
|
||
* Possible String Reference to: 'SHGetPathFromIDListA'
|
||
|
|
||
00809869 68C0988000 push $008098C0
|
||
0080986E 8B03 mov eax, [ebx]
|
||
00809870 50 push eax
|
||
|
||
* Reference to: kernel32.GetProcAddress()
|
||
|
|
||
00809871 E866E9BFFF call 004081DC
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_0080989F(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080989F 007368 add [ebx+$68], dh
|
||
008098A2 656C insb
|
||
008098A4 6C insb
|
||
008098A5 3332 xor esi, [edx]
|
||
008098A7 2E646C insb
|
||
008098AA 6C insb
|
||
008098AB 005348 add [ebx+$48], dl
|
||
008098AE 47 inc edi
|
||
008098AF 657446 jz 008098F8
|
||
008098B2 6F outsd
|
||
008098B3 6C insb
|
||
008098B4 6465724C jb 00809904
|
||
008098B8 6F outsd
|
||
008098B9 636174 arpl [ecx+$74], sp
|
||
008098BC 696F6E00534847 imul ebp, [edi+$6E], $47485300
|
||
008098C3 657450 jz 00809916
|
||
008098C6 61 popa
|
||
008098C7 7468 jz 00809931
|
||
008098C9 46 inc esi
|
||
008098CA 726F jb 0080993B
|
||
008098CC 6D insd
|
||
008098CD 49 dec ecx
|
||
008098CE 44 inc esp
|
||
008098CF 4C dec esp
|
||
008098D0 69737441000000 imul esi, [ebx+$74], $00000041
|
||
008098D7 005348 add [ebx+$48], dl
|
||
008098DA 47 inc edi
|
||
008098DB 657450 jz 0080992E
|
||
008098DE 61 popa
|
||
008098DF 7468 jz 00809949
|
||
008098E1 46 inc esi
|
||
008098E2 726F jb 00809953
|
||
008098E4 6D insd
|
||
008098E5 49 dec ecx
|
||
008098E6 44 inc esp
|
||
008098E7 4C dec esp
|
||
008098E8 69737457000000 imul esi, [ebx+$74], $00000057
|
||
008098EF 00558B add [ebp-$75], dl
|
||
008098F2 EC in al, dx
|
||
008098F3 33C0 xor eax, eax
|
||
008098F5 55 push ebp
|
||
|
||
* Possible String Reference to: '閱<><E996B1><EFBFBD><EFBFBD>]Ë<>U<EFBFBD><55>3<EFBFBD>Uh<55><68><EFBFBD>'
|
||
|
|
||
008098F6 6859998000 push $00809959
|
||
|
||
***** TRY
|
||
|
|
||
008098FB 64FF30 push dword ptr fs:[eax]
|
||
008098FE 648920 mov fs:[eax], esp
|
||
00809901 FF05143D8900 inc dword ptr [$00893D14]
|
||
00809907 7542 jnz 0080994B
|
||
00809909 B81C3D8900 mov eax, $00893D1C
|
||
|
||
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
||
|
|
||
0080990E E8FDDBBFFF call 00407510
|
||
00809913 833D3000890000 cmp dword ptr [$00890030], +$00
|
||
0080991A 740B jz 00809927
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809964(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809964 55 push ebp
|
||
00809965 8BEC mov ebp, esp
|
||
00809967 33C0 xor eax, eax
|
||
00809969 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>^<5E><><EFBFBD><EFBFBD><EFBFBD>]Ë<>U<EFBFBD><55>3<EFBFBD>Uhؙ<68>'
|
||
|
|
||
0080996A 6891998000 push $00809991
|
||
|
||
***** TRY
|
||
|
|
||
0080996F 64FF30 push dword ptr fs:[eax]
|
||
00809972 648920 mov fs:[eax], esp
|
||
00809975 832D143D890001 sub dword ptr [$00893D14], +$01
|
||
0080997C 7305 jnb 00809983
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809820()
|
||
|
|
||
0080997E E89DFEFFFF call 00809820
|
||
00809983 33C0 xor eax, eax
|
||
00809985 5A pop edx
|
||
00809986 59 pop ecx
|
||
00809987 59 pop ecx
|
||
00809988 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<>U<EFBFBD><55>3<EFBFBD>Uhؙ<68>'
|
||
|
|
||
0080998B 6898998000 push $00809998
|
||
00809990 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809991 E95EB1BFFF jmp 00404AF4
|
||
00809996 EBF8 jmp 00809990
|
||
|
||
****** END
|
||
|
|
||
00809998 5D pop ebp
|
||
00809999 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_0080999C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0080999C 55 push ebp
|
||
0080999D 8BEC mov ebp, esp
|
||
0080999F 33C0 xor eax, eax
|
||
008099A1 55 push ebp
|
||
008099A2 68D8998000 push $008099D8
|
||
|
||
***** TRY
|
||
|
|
||
008099A7 64FF30 push dword ptr fs:[eax]
|
||
008099AA 648920 mov fs:[eax], esp
|
||
008099AD FF05283D8900 inc dword ptr [$00893D28]
|
||
008099B3 7515 jnz 008099CA
|
||
008099B5 A12C3D8900 mov eax, dword ptr [$00893D2C]
|
||
008099BA 50 push eax
|
||
|
||
* Reference to: kernel32.CloseHandle()
|
||
|
|
||
008099BB E89CE6BFFF call 0040805C
|
||
008099C0 B8303D8900 mov eax, $00893D30
|
||
|
||
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
||
|
|
||
008099C5 E846DBBFFF call 00407510
|
||
008099CA 33C0 xor eax, eax
|
||
008099CC 5A pop edx
|
||
008099CD 59 pop ecx
|
||
008099CE 59 pop ecx
|
||
008099CF 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Í@'
|
||
|
|
||
008099D2 68DF998000 push $008099DF
|
||
008099D7 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008099D8 E917B1BFFF jmp 00404AF4
|
||
008099DD EBF8 jmp 008099D7
|
||
|
||
****** END
|
||
|
|
||
008099DF 5D pop ebp
|
||
008099E0 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_008099E4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008099E4 55 push ebp
|
||
008099E5 8BEC mov ebp, esp
|
||
008099E7 33C0 xor eax, eax
|
||
008099E9 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>̰<EFBFBD><CCB0><EFBFBD><EFBFBD>]<5D>0<EFBFBD><30>'
|
||
|
|
||
008099EA 68239A8000 push $00809A23
|
||
|
||
***** TRY
|
||
|
|
||
008099EF 64FF30 push dword ptr fs:[eax]
|
||
008099F2 648920 mov fs:[eax], esp
|
||
008099F5 832D283D890001 sub dword ptr [$00893D28], +$01
|
||
008099FC 7317 jnb 00809A15
|
||
008099FE C605343D890000 mov byte ptr [$00893D34], $00
|
||
00809A05 6A00 push $00
|
||
00809A07 6AFF push $FF
|
||
00809A09 6A00 push $00
|
||
|
||
|
|
||
00809A0B E88CE6BFFF call 0040809C
|
||
|
||
* Reference to GlobalVar_00893D2C
|
||
|
|
||
00809A10 A32C3D8900 mov dword ptr [$00893D2C], eax
|
||
00809A15 33C0 xor eax, eax
|
||
00809A17 5A pop edx
|
||
00809A18 59 pop ecx
|
||
00809A19 59 pop ecx
|
||
00809A1A 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']<5D>0<EFBFBD><30>'
|
||
|
|
||
00809A1D 682A9A8000 push $00809A2A
|
||
00809A22 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00809A23 E9CCB0BFFF jmp 00404AF4
|
||
00809A28 EBF8 jmp 00809A22
|
||
|
||
****** END
|
||
|
|
||
00809A2A 5D pop ebp
|
||
00809A2B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYFFKList._PROC_00809A2C(Sender : TObject);
|
||
begin
|
||
(*
|
||
00809A2C 309A80000E22 xor [edx+$220E0080], bl
|
||
00809A32 54 push esp
|
||
00809A33 637853 arpl [eax+$53], di
|
||
00809A36 68656C6C53 push $536C6C65
|
||
00809A3B 7065 jo 00809AA2
|
||
00809A3D 636961 arpl [ecx+$61], bp
|
||
00809A40 6C insb
|
||
00809A41 46 inc esi
|
||
00809A42 6F outsd
|
||
00809A43 6C insb
|
||
00809A44 64657249 jb 00809A91
|
||
00809A48 6E outsb
|
||
00809A49 666F outsw
|
||
00809A4B 54 push esp
|
||
00809A4C 61 popa
|
||
00809A4D 626C6549 bound ebp, qword ptr [ebp+$49]
|
||
00809A51 7465 jz 00809AB8
|
||
00809A53 6D insd
|
||
00809A54 1400 adc al, $00
|
||
00809A56 0000 add [eax], al
|
||
|
||
00809A58 0300 add eax, [eax]
|
||
00809A5A 0000 add [eax], al
|
||
|
||
00809A5C 2011 and [ecx], dl
|
||
00809A5E 40 inc eax
|
||
00809A5F 0008 add [eax], cl
|
||
00809A61 0000 add [eax], al
|
||
|
||
00809A63 0020 add [eax], ah
|
||
00809A65 114000 adc [eax+$00], eax
|
||
00809A68 0C00 or al, $00
|
||
00809A6A 0000 add [eax], al
|
||
|
||
00809A6C 2011 and [ecx], dl
|
||
00809A6E 40 inc eax
|
||
00809A6F 0010 add [eax], dl
|
||
00809A71 0000 add [eax], al
|
||
|
||
00809A73 005356 add [ebx+$56], dl
|
||
00809A76 BE23000000 mov esi, $00000023
|
||
00809A7B BB3C3D8900 mov ebx, $00893D3C
|
||
00809A80 8B03 mov eax, [ebx]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809778()
|
||
|
|
||
00809A82 E8F1FCFFFF call 00809778
|
||
00809A87 33C0 xor eax, eax
|
||
00809A89 8903 mov [ebx], eax
|
||
00809A8B 83C314 add ebx, +$14
|
||
00809A8E 4E dec esi
|
||
00809A8F 75EF jnz 00809A80
|
||
00809A91 5E pop esi
|
||
00809A92 5B pop ebx
|
||
00809A93 C3 ret
|
||
|
||
00809A94 55 push ebp
|
||
00809A95 8BEC mov ebp, esp
|
||
00809A97 81C4D8FEFFFF add esp, $FFFFFED8
|
||
00809A9D 53 push ebx
|
||
00809A9E 56 push esi
|
||
00809A9F 57 push edi
|
||
00809AA0 33DB xor ebx, ebx
|
||
00809AA2 899DD8FEFFFF mov [ebp+$FFFFFED8], ebx
|
||
00809AA8 899DE0FEFFFF mov [ebp+$FFFFFEE0], ebx
|
||
00809AAE 899DDCFEFFFF mov [ebp+$FFFFFEDC], ebx
|
||
00809AB4 899DE4FEFFFF mov [ebp+$FFFFFEE4], ebx
|
||
00809ABA 899DE8FEFFFF mov [ebp+$FFFFFEE8], ebx
|
||
00809AC0 895DF8 mov [ebp-$08], ebx
|
||
00809AC3 8BF9 mov edi, ecx
|
||
00809AC5 8855FF mov [ebp-$01], dl
|
||
00809AC8 8BD8 mov ebx, eax
|
||
00809ACA 33C0 xor eax, eax
|
||
00809ACC 55 push ebp
|
||
|
||
* Possible String Reference to: '逮<><E980AE><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00809ACD 686F9C8000 push $00809C6F
|
||
|
||
***** TRY
|
||
|
|
||
00809AD2 64FF30 push dword ptr fs:[eax]
|
||
00809AD5 648920 mov fs:[eax], esp
|
||
00809AD8 807DFF00 cmp byte ptr [ebp-$01], $00
|
||
00809ADC 7423 jz 00809B01
|
||
00809ADE 8D95E8FEFFFF lea edx, [ebp+$FFFFFEE8]
|
||
00809AE4 8BC3 mov eax, ebx
|
||
|
||
* Reference to : TfrmYFFKList._PROC_00809644()
|
||
|
|
||
00809AE6 E859FBFFFF call 00809644
|
||
00809AEB 8B95E8FEFFFF mov edx, [ebp+$FFFFFEE8]
|
||
00809AF1 8BC7 mov eax, edi
|
||
|
||
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
||
|
|
||
00809AF3 E8C4BABFFF call 004055BC
|
||
00809AF8 833F00 cmp dword ptr [edi], +$00
|
||
00809AFB 0F8532010000 jnz 00809C33
|
||
00809B01 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Reference to: ShellCtrls.DesktopShellFolder:IShellFolder;
|
||
|
|
||
00809B04 E813FAFFFF call 0080951C
|
||
00809B09 8BC3 mov eax, ebx
|
||
|
||
* Reference to : TfrmYFFKList._PROC_008097C8()
|
||
|
|
||
00809B0B E8B8FCFFFF call 008097C8
|
||
00809B10 8BF0 mov esi, eax
|
||
00809B12 33C0 xor eax, eax
|
||
00809B14 8A45FF mov al, byte ptr [ebp-$01]
|
||
00809B17 03F0 add esi, eax
|
||
00809B19 4E dec esi
|
||
00809B1A 85F6 test esi, esi
|
||
00809B1C 0F8ED8000000 jle 00809BFA
|
||
00809B22 0FB703 movzx eax, word ptr [ebx]
|
||
00809B25 83C004 add eax, +$04
|
||
00809B28 50 push eax
|
||
00809B29 8D85E4FEFFFF lea eax, [ebp+$FFFFFEE4]
|
||
|
||
* Reference to : TfrmYFFKList._PROC_008095D4()
|
||
|
|
||
00809B2F E8A0FAFFFF call 008095D4
|
||
00809B34 8B85E4FEFFFF mov eax, [ebp+$FFFFFEE4]
|
||
00809B3A 50 push eax
|
||
00809B3B 8B00 mov eax, [eax]
|
||
00809B3D FF500C call dword ptr [eax+$0C]
|
||
00809B40 8945F4 mov [ebp-$0C], eax
|
||
00809B43 0FB713 movzx edx, word ptr [ebx]
|
||
00809B46 83C204 add edx, +$04
|
||
00809B49 8B45F4 mov eax, [ebp-$0C]
|
||
00809B4C 33C9 xor ecx, ecx
|
||
|
||
* Reference to: System.@FillChar(void;void;Integer;Char);
|
||
|
|
||
00809B4E E8419CBFFF call 00403794
|
||
00809B53 0FB70B movzx ecx, word ptr [ebx]
|
||
00809B56 8BD3 mov edx, ebx
|
||
00809B58 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: Classes.TPersistent.AssignTo(TPersistent;TPersistent);
|
||
| or: Classes.TComponent.ReadState(TComponent;TReader);
|
||
| or: FMTBcd.VarFMTBcdCreate(TBcd;TBcd):Variant;overload;
|
||
| or: QGraphics.TGraphic.AssignsTo(classofTGraphic;TGraphicClass):Boolean;
|
||
| or: SqlTimSt.VarSQLTimeStampCreate(TSQLTimeStamp;TSQLTimeStamp):Variant;overload;
|
||
| or: System.WideCharToStrVar(PWideChar;String;String);
|
||
|
|
||
00809B5B E844F3BFFF call 00408EA4
|
||
00809B60 0FB703 movzx eax, word ptr [ebx]
|
||
00809B63 01C3 add ebx, eax
|
||
00809B65 807DFF00 cmp byte ptr [ebp-$01], $00
|
||
00809B69 7467 jz 00809BD2
|
||
00809B6B 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC]
|
||
00809B71 50 push eax
|
||
00809B72 6A01 push $01
|
||
00809B74 8B45F4 mov eax, [ebp-$0C]
|
||
00809B77 50 push eax
|
||
00809B78 8B45F8 mov eax, [ebp-$08]
|
||
00809B7B 50 push eax
|
||
00809B7C 8B00 mov eax, [eax]
|
||
00809B7E FF502C call dword ptr [eax+$2C]
|
||
00809B81 833F00 cmp dword ptr [edi], +$00
|
||
00809B84 740C jz 00809B92
|
||
00809B86 8BC7 mov eax, edi
|
||
00809B88 BA889C8000 mov edx, $00809C88
|
||
|
||
* Reference to: System.@LStrCat;
|
||
|
|
||
00809B8D E86ABABFFF call 004055FC
|
||
00809B92 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0]
|
||
00809B98 8B17 mov edx, [edi]
|
||
|
||
* Reference to: System.@WStrFromLStr(WideString;WideString;String);
|
||
|
|
||
00809B9A E869C0BFFF call 00405C08
|
||
00809B9F 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0]
|
||
00809BA5 50 push eax
|
||
00809BA6 8D8DDCFEFFFF lea ecx, [ebp+$FFFFFEDC]
|
||
00809BAC 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC]
|
||
00809BB2 8BD3 mov edx, ebx
|
||
|
||
* Reference to : TfrmYFFKList._PROC_0080952C()
|
||
|
|
||
00809BB4 E873F9FFFF call 0080952C
|
||
00809BB9 8B95DCFEFFFF mov edx, [ebp+$FFFFFEDC]
|
||
00809BBF 58 pop eax
|
||
|
||
|
|
||
00809BC0 E86FC0BFFF call 00405C34
|
||
00809BC5 8B95E0FEFFFF mov edx, [ebp+$FFFFFEE0]
|
||
00809BCB 8BC7 mov eax, edi
|
||
|
||
* Reference to: System.@LStrFromWStr(String;String;WideString);
|
||
|
|
||
00809BCD E8EAB9BFFF call 004055BC
|
||
00809BD2 8D45F8 lea eax, [ebp-$08]
|
||
00809BD5 50 push eax
|
||
*)
|
||
end;
|
||
|
||
end. |