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='Ӧ<EFBFBD><EFBFBD><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='<EFBFBD><EFBFBD><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.
|