📄 gwclip.pas
字号:
unit GWClip;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls
type
TfrmClip=class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Button3: TButton;
StringGrid1: TStringGrid;
Button4: TButton;
Label1: TLabel;
CheckBox3: TCheckBox;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Timer1: TTimer;
Label2: TLabel;
Button2: TButton;
procedure FormCreate(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure _PROC_0074CB9C(Sender : TObject);
procedure _PROC_0074CBD0(Sender : TObject);
procedure _PROC_0074CBEC(Sender : TObject);
procedure _PROC_0074CD18(Sender : TObject);
procedure _PROC_0074CE1D(Sender : TObject);
procedure _PROC_0074CF9D(Sender : TObject);
procedure _PROC_0074D3A8(Sender : TObject);
procedure _PROC_0074D3D8(Sender : TObject);
procedure Proc_0074CB70(Sender : TObject);
procedure Proc_0074CE1C(Sender : TObject);
procedure Proc_0074CF9C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmClip: TfrmClip;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmClip.FormCreate(Sender : TObject);
begin
(*
0074CF30 53 push ebx
0074CF31 56 push esi
0074CF32 8BD8 mov ebx, eax
* Reference to control TfrmClip.StringGrid1 : TStringGrid
|
0074CF34 8BB3E0020000 mov esi, [ebx+$02E0]
* Possible String Reference to: '股票代码'
|
0074CF3A 687CCF7400 push $0074CF7C
0074CF3F 33C9 xor ecx, ecx
0074CF41 33D2 xor edx, edx
0074CF43 8BC6 mov eax, esi
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0074CF45 E8226EDAFF call 004F3D6C
* Possible String Reference to: '股票名称'
|
0074CF4A 6890CF7400 push $0074CF90
0074CF4F 33C9 xor ecx, ecx
0074CF51 BA01000000 mov edx, $00000001
0074CF56 8BC6 mov eax, esi
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0074CF58 E80F6EDAFF call 004F3D6C
0074CF5D B201 mov dl, $01
* Reference to class TGetCmdts
|
0074CF5F A128C87400 mov eax, dword ptr [$0074C828]
* Reference to : TfrmClip.Proc_0074CB70()
|
0074CF64 E807FCFFFF call 0074CB70
* Reference to field TfrmClip.OFFS_0308
|
0074CF69 898308030000 mov [ebx+$0308], eax
0074CF6F 5E pop esi
0074CF70 5B pop ebx
0074CF71 C3 ret
*)
end;
procedure TfrmClip.Button4Click(Sender : TObject);
begin
(*
0074D148 55 push ebp
0074D149 8BEC mov ebp, esp
0074D14B 83C4EC add esp, -$14
0074D14E 53 push ebx
0074D14F 56 push esi
0074D150 57 push edi
0074D151 33C9 xor ecx, ecx
0074D153 894DEC mov [ebp-$14], ecx
0074D156 894DF0 mov [ebp-$10], ecx
0074D159 8945FC mov [ebp-$04], eax
0074D15C 33C0 xor eax, eax
0074D15E 55 push ebp
0074D15F 6848D27400 push $0074D248
***** TRY
|
0074D164 64FF30 push dword ptr fs:[eax]
0074D167 648920 mov fs:[eax], esp
0074D16A 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmClip.OFFS_0308
|
0074D16D 8B8008030000 mov eax, [eax+$0308]
0074D173 83780400 cmp dword ptr [eax+$04], +$00
0074D177 0F84B0000000 jz 0074D22D
* Reference to pointer to GlobalVar_0078CF1C
|
0074D17D A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0074D182 8B00 mov eax, [eax]
* Reference to: Unit_0075FA78.Proc_0075FFA8
|
0074D184 E81F2E0100 call 0075FFA8
0074D189 8BF8 mov edi, eax
0074D18B C645FB00 mov byte ptr [ebp-$05], $00
0074D18F 85FF test edi, edi
0074D191 0F8496000000 jz 0074D22D
0074D197 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmClip.OFFS_0308
|
0074D19A 8B8008030000 mov eax, [eax+$0308]
0074D1A0 8B7008 mov esi, [eax+$08]
0074D1A3 4E dec esi
0074D1A4 85F6 test esi, esi
0074D1A6 7C56 jl 0074D1FE
0074D1A8 46 inc esi
0074D1A9 C745F400000000 mov dword ptr [ebp-$0C], $00000000
0074D1B0 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmClip.OFFS_0308
|
0074D1B3 8B8008030000 mov eax, [eax+$0308]
0074D1B9 8B5804 mov ebx, [eax+$04]
0074D1BC 6B45F413 imul eax, [ebp-$0C], $13
0074D1C0 03D8 add ebx, eax
0074D1C2 8D45F0 lea eax, [ebp-$10]
0074D1C5 8D5301 lea edx, [ebx+$01]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074D1C8 E84B71CBFF call 00404318
0074D1CD 8B4DF0 mov ecx, [ebp-$10]
0074D1D0 8A13 mov dl, byte ptr [ebx]
0074D1D2 8BC7 mov eax, edi
* Reference to : TCmdtArray._PROC_00761FB8()
|
0074D1D4 E8DF4D0100 call 00761FB8
0074D1D9 85C0 test eax, eax
0074D1DB 7D1B jnl 0074D1F8
0074D1DD 8D45EC lea eax, [ebp-$14]
0074D1E0 8D5301 lea edx, [ebx+$01]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074D1E3 E83071CBFF call 00404318
0074D1E8 8B4DEC mov ecx, [ebp-$14]
0074D1EB 8A13 mov dl, byte ptr [ebx]
0074D1ED 8BC7 mov eax, edi
* Reference to : TCmdtArray._PROC_00762130()
|
0074D1EF E83C4F0100 call 00762130
0074D1F4 C645FB01 mov byte ptr [ebp-$05], $01
0074D1F8 FF45F4 inc dword ptr [ebp-$0C]
0074D1FB 4E dec esi
0074D1FC 75B2 jnz 0074D1B0
0074D1FE 807DFB00 cmp byte ptr [ebp-$05], $00
0074D202 7429 jz 0074D22D
* Reference to pointer to GlobalVar_0078CF1C
|
0074D204 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0074D209 8B00 mov eax, [eax]
0074D20B 33D2 xor edx, edx
* Reference to: Unit_0075FA78.Proc_0075FDB8
|
0074D20D E8A62B0100 call 0075FDB8
0074D212 6A00 push $00
0074D214 6A00 push $00
0074D216 68A5050000 push $000005A5
* Reference to THJ32Main instance
|
0074D21B A158D37700 mov eax, dword ptr [$0077D358]
0074D220 8B00 mov eax, [eax]
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0074D222 E8612BCFFF call 0043FD88
0074D227 50 push eax
* Reference to: user32.PostMessageA()
|
0074D228 E82BBACBFF call 00408C58
0074D22D 33C0 xor eax, eax
0074D22F 5A pop edx
0074D230 59 pop ecx
0074D231 59 pop ecx
0074D232 648910 mov fs:[eax], edx
****** FINALLY
|
0074D235 684FD27400 push $0074D24F
0074D23A 8D45EC lea eax, [ebp-$14]
0074D23D BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0074D242 E8D16ECBFF call 00404118
0074D247 C3 ret
* Reference to: system.@HandleFinally;
|
0074D248 E9DF67CBFF jmp 00403A2C
0074D24D EBEB jmp 0074D23A
****** END
|
0074D24F 5F pop edi
0074D250 5E pop esi
0074D251 5B pop ebx
0074D252 8BE5 mov esp, ebp
0074D254 5D pop ebp
0074D255 C3 ret
*)
end;
procedure TfrmClip.FormDestroy(Sender : TObject);
begin
(*
0074D258 53 push ebx
0074D259 8BD8 mov ebx, eax
* Reference to field TfrmClip.OFFS_0308
|
0074D25B 8B8308030000 mov eax, [ebx+$0308]
* Reference to: system.TObject.Free(TObject);
|
0074D261 E86660CBFF call 004032CC
0074D266 33D2 xor edx, edx
* Reference to control TfrmClip.Timer1 : TTimer
|
0074D268 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
0074D26E E85D22D1FF call 0045F4D0
0074D273 A130CE7700 mov eax, dword ptr [$0077CE30]
0074D278 33D2 xor edx, edx
0074D27A 8910 mov [eax], edx
0074D27C 5B pop ebx
0074D27D C3 ret
*)
end;
procedure TfrmClip.Button3Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0074D280 E8378ED0FF call 004560BC
0074D285 C3 ret
*)
end;
procedure TfrmClip.Button1Click(Sender : TObject);
begin
(*
0074D288 53 push ebx
0074D289 8BD8 mov ebx, eax
* Possible String Reference to: '..\clipbrd'
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -