📄 frmpicoption.pas
字号:
unit FrmPicOption;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TpicOtherFrm=class(TForm)
GroupBox1: N.A.;
edt2000: N.A.;
edt2001: N.A.;
edt2002: N.A.;
Label1: N.A.;
Label2: N.A.;
Label3: N.A.;
Label4: N.A.;
Button2: N.A.;
Button3: N.A.;
GroupBox2: N.A.;
cfg13: N.A.;
cfg12: N.A.;
cfg9: N.A.;
cfg8: N.A.;
cfg6: N.A.;
cfg3: N.A.;
cfg2: N.A.;
cfg1: N.A.;
cfg0: N.A.;
cfg7: N.A.;
Button1: N.A.;
Button4: N.A.;
edt2003: N.A.;
BitBtn1: N.A.;
Button5: N.A.;
procedure FormCreate(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure edt2000KeyPress(Sender : TObject);
procedure edt2002KeyPress(Sender : TObject);
procedure edt2001KeyPress(Sender : TObject);
procedure edt2003KeyPress(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure _PROC_004E7BE8(Sender : TObject);
procedure _PROC_004E7C0C(Sender : TObject);
procedure _PROC_004E7D18(Sender : TObject);
procedure _PROC_004E8359(Sender : TObject);
procedure _PROC_004E8388(Sender : TObject);
procedure _PROC_004E8390(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
picOtherFrm: TpicOtherFrm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TpicOtherFrm.FormCreate(Sender : TObject);
begin
(*
004E7ED8 53 push ebx
004E7ED9 8BD8 mov ebx, eax
004E7EDB A180725000 mov eax, dword ptr [$00507280]
004E7EE0 8B00 mov eax, [eax]
004E7EE2 8B8090050000 mov eax, [eax+$0590]
|
004E7EE8 E8FFCEFAFF call 00494DEC
004E7EED 8BC3 mov eax, ebx
* Reference to : TpicOtherFrm._PROC_004E7C0C()
|
004E7EEF E818FDFFFF call 004E7C0C
004E7EF4 8BC3 mov eax, ebx
* Reference to : TpicOtherFrm._PROC_004E7D18()
|
004E7EF6 E81DFEFFFF call 004E7D18
004E7EFB 5B pop ebx
004E7EFC C3 ret
*)
end;
procedure TpicOtherFrm.Button3Click(Sender : TObject);
begin
(*
004E7F00 55 push ebp
004E7F01 8BEC mov ebp, esp
004E7F03 33C9 xor ecx, ecx
004E7F05 51 push ecx
004E7F06 51 push ecx
004E7F07 51 push ecx
004E7F08 51 push ecx
004E7F09 51 push ecx
004E7F0A 51 push ecx
004E7F0B 53 push ebx
004E7F0C 56 push esi
004E7F0D 57 push edi
004E7F0E 8BF0 mov esi, eax
004E7F10 33C0 xor eax, eax
004E7F12 55 push ebp
* Possible String Reference to: '閐埋
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -