📄 p2pstockdrv1.pas
字号:
unit P2PStockdrv1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, ComCtrls, Buttons
type
TForm1=class(TForm)
ImageTitle: TImage;
sysMenuExit: TSpeedButton;
PMenu: TPopupMenu;
PMemu1: TMenuItem;
PMemu3: TMenuItem;
PMemu2: TMenuItem;
PMemu4: TMenuItem;
PMemu5: TMenuItem;
Panel1: TPanel;
D1: TGroupBox;
TdxHqBox: TComboBox;
L10: TLabel;
L11: TLabel;
L12: TLabel;
L13: TLabel;
L14: TLabel;
L15: TLabel;
E11: TEdit;
E12: TEdit;
E13: TEdit;
E14: TEdit;
E15: TEdit;
Login1: TSpeedButton;
Login2: TSpeedButton;
Login3: TSpeedButton;
M0: TCheckBox;
M1: TCheckBox;
Timer1: TTimer;
Panel2: TPanel;
D2: TGroupBox;
M2: TCheckBox;
M3: TCheckBox;
M4: TCheckBox;
M5: TCheckBox;
LabeledEdit2: TLabeledEdit;
LabeledEdit1: TLabeledEdit;
RG1: TRadioGroup;
LoadDataLabel: TLabel;
PBar1: TProgressBar;
SB1: TStatusBar;
Shape1: TShape;
Label1: TLabel;
Button1: TButton;
Panel3: TPanel;
Memo1: TMemo;
procedure sysMenuExitClick(Sender : TObject);
procedure ImageTitleMouseDown(Sender : TObject);
procedure TdxHqBoxChange(Sender : TObject);
procedure Login1Click(Sender : TObject);
procedure Login2Click(Sender : TObject);
procedure Login3Click(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure MMClick(Sender : TObject);
procedure PMemuClick(Sender : TObject);
procedure PMemu5Click(Sender : TObject);
procedure LabeledEditChange(Sender : TObject);
procedure Label1MouseEnter(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1: TForm1;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TForm1.sysMenuExitClick(Sender : TObject);
begin
(*
00405E18 33D2 xor edx, edx
|
00405E1A E8598F0400 call 0044ED78
00405E1F C3 ret
*)
end;
procedure TForm1.ImageTitleMouseDown(Sender : TObject);
begin
(*
00405E20 55 push ebp
00405E21 8BEC mov ebp, esp
00405E23 53 push ebx
00405E24 8BD8 mov ebx, eax
00405E26 84C9 test cl, cl
00405E28 7518 jnz 00405E42
* Reference to: ReleaseCapture()
|
00405E2A E8298C0800 call 0048EA58
00405E2F 6A00 push $00
00405E31 B917F00000 mov ecx, $0000F017
00405E36 BA12010000 mov edx, $00000112
00405E3B 8BC3 mov eax, ebx
|
00405E3D E8CEC90500 call 00462810
00405E42 5B pop ebx
00405E43 5D pop ebp
00405E44 C20C00 ret $000C
*)
end;
procedure TForm1.TdxHqBoxChange(Sender : TObject);
begin
(*
00405E48 55 push ebp
00405E49 8BEC mov ebp, esp
00405E4B 83C4C8 add esp, -$38
00405E4E 53 push ebx
00405E4F 56 push esi
00405E50 57 push edi
00405E51 8BD8 mov ebx, eax
00405E53 B87CF94900 mov eax, $0049F97C
|
00405E58 E897D60700 call 004834F4
* Reference to control TdxHqBox : TComboBox
|
00405E5D 8B8318030000 mov eax, [ebx+$0318]
00405E63 8B10 mov edx, [eax]
00405E65 FF92C8000000 call dword ptr [edx+$00C8]
00405E6B 8BF0 mov esi, eax
00405E6D 66C745D80800 mov word ptr [ebp-$28], $0008
00405E73 8BFE mov edi, esi
00405E75 8B83AC030000 mov eax, [ebx+$03AC]
00405E7B C1E703 shl edi, $03
00405E7E 2BFE sub edi, esi
00405E80 8B506E mov edx, [eax+$6E]
00405E83 C1E703 shl edi, $03
00405E86 8D45FC lea eax, [ebp-$04]
00405E89 2BFE sub edi, esi
00405E8B 03FF add edi, edi
00405E8D 03D7 add edx, edi
|
00405E8F E8B47F0800 call 0048DE48
00405E94 FF45E4 inc dword ptr [ebp-$1C]
00405E97 8B10 mov edx, [eax]
* Reference to control E11 : TEdit
|
00405E99 8B8334030000 mov eax, [ebx+$0334]
|
00405E9F E8E8B70500 call 0046168C
00405EA4 FF4DE4 dec dword ptr [ebp-$1C]
00405EA7 8D45FC lea eax, [ebp-$04]
00405EAA BA02000000 mov edx, $00000002
|
00405EAF E894800800 call 0048DF48
00405EB4 66C745D81400 mov word ptr [ebp-$28], $0014
00405EBA 8B8BAC030000 mov ecx, [ebx+$03AC]
00405EC0 8D45F8 lea eax, [ebp-$08]
00405EC3 8B516E mov edx, [ecx+$6E]
00405EC6 03D7 add edx, edi
00405EC8 83C232 add edx, +$32
|
00405ECB E8787F0800 call 0048DE48
00405ED0 FF45E4 inc dword ptr [ebp-$1C]
00405ED3 8B10 mov edx, [eax]
* Reference to control E12 : TEdit
|
00405ED5 8B8338030000 mov eax, [ebx+$0338]
|
00405EDB E8ACB70500 call 0046168C
00405EE0 FF4DE4 dec dword ptr [ebp-$1C]
00405EE3 8D45F8 lea eax, [ebp-$08]
00405EE6 BA02000000 mov edx, $00000002
|
00405EEB E858800800 call 0048DF48
00405EF0 66C745D82000 mov word ptr [ebp-$28], $0020
00405EF6 8B8BAC030000 mov ecx, [ebx+$03AC]
00405EFC 8D45F4 lea eax, [ebp-$0C]
00405EFF 8B516E mov edx, [ecx+$6E]
00405F02 03D7 add edx, edi
00405F04 83C246 add edx, +$46
|
00405F07 E83C7F0800 call 0048DE48
00405F0C FF45E4 inc dword ptr [ebp-$1C]
00405F0F 8B10 mov edx, [eax]
* Reference to control E13 : TEdit
|
00405F11 8B833C030000 mov eax, [ebx+$033C]
|
00405F17 E870B70500 call 0046168C
00405F1C FF4DE4 dec dword ptr [ebp-$1C]
00405F1F 8D45F4 lea eax, [ebp-$0C]
00405F22 BA02000000 mov edx, $00000002
|
00405F27 E81C800800 call 0048DF48
00405F2C 66C745D82C00 mov word ptr [ebp-$28], $002C
00405F32 8B8BAC030000 mov ecx, [ebx+$03AC]
00405F38 8D45F0 lea eax, [ebp-$10]
00405F3B 8B516E mov edx, [ecx+$6E]
00405F3E 03D7 add edx, edi
00405F40 83C24C add edx, +$4C
|
00405F43 E8007F0800 call 0048DE48
00405F48 FF45E4 inc dword ptr [ebp-$1C]
00405F4B 8B10 mov edx, [eax]
* Reference to control E14 : TEdit
|
00405F4D 8B8340030000 mov eax, [ebx+$0340]
|
00405F53 E834B70500 call 0046168C
00405F58 FF4DE4 dec dword ptr [ebp-$1C]
00405F5B 8D45F0 lea eax, [ebp-$10]
00405F5E BA02000000 mov edx, $00000002
|
00405F63 E8E07F0800 call 0048DF48
00405F68 66C745D83800 mov word ptr [ebp-$28], $0038
00405F6E 8B8BAC030000 mov ecx, [ebx+$03AC]
00405F74 8D45EC lea eax, [ebp-$14]
00405F77 8B516E mov edx, [ecx+$6E]
00405F7A 03D7 add edx, edi
00405F7C 83C258 add edx, +$58
|
00405F7F E8C47E0800 call 0048DE48
00405F84 FF45E4 inc dword ptr [ebp-$1C]
00405F87 8B10 mov edx, [eax]
* Reference to control E15 : TEdit
|
00405F89 8B8344030000 mov eax, [ebx+$0344]
|
00405F8F E8F8B60500 call 0046168C
00405F94 FF4DE4 dec dword ptr [ebp-$1C]
00405F97 8D45EC lea eax, [ebp-$14]
00405F9A BA02000000 mov edx, $00000002
|
00405F9F E8A47F0800 call 0048DF48
00405FA4 8B8BAC030000 mov ecx, [ebx+$03AC]
00405FAA 66897174 mov [ecx+$74], si
00405FAE 8B45C8 mov eax, [ebp-$38]
00405FB1 64A300000000 mov dword ptr [$00000000], eax
00405FB7 5F pop edi
00405FB8 5E pop esi
00405FB9 5B pop ebx
00405FBA 8BE5 mov esp, ebp
00405FBC 5D pop ebp
00405FBD C3 ret
*)
end;
procedure TForm1.Login1Click(Sender : TObject);
begin
(*
00406000 53 push ebx
00406001 8BD8 mov ebx, eax
00406003 8B83B4030000 mov eax, [ebx+$03B4]
00406009 80B8F800000000 cmp byte ptr [eax+$00F8], $00
00406010 7407 jz 00406019
00406012 50 push eax
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -