📄 sysinf.pas
字号:
unit SysInf;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TSysShezhi=class(TForm)
spSkinPageControl1: TspSkinPageControl;
TabSheet2: TspSkinTabSheet;
spDynamicSkinForm1: TspDynamicSkinForm;
TabSheet1: TspSkinTabSheet;
RadioBox1: TspSkinCheckRadioBox;
OpenDialog1: TOpenDialog;
Label1: TspSkinStdLabel;
FilenameEdit1: TspSkinEdit;
Label2: TspSkinStdLabel;
FilenameEdit2: TspSkinEdit;
FilenameEdit3: TspSkinEdit;
Label4: TspSkinStdLabel;
FilenameEdit4: TspSkinEdit;
Label5: TspSkinStdLabel;
FilenameEdit5: TspSkinEdit;
Button5: TspSkinButton;
Button4: TspSkinButton;
Button3: TspSkinButton;
Button2: TspSkinButton;
Button1: TspSkinButton;
Label3: TspSkinStdLabel;
Label6: TspSkinStdLabel;
TimerEdit: TspSkinEdit;
Label7: TspSkinStdLabel;
Label8: TspSkinStdLabel;
PortEdit: TspSkinEdit;
Button6: TspSkinButton;
RadioBox8: TspSkinCheckRadioBox;
UpClientRadioBox: TspSkinCheckRadioBox;
nButton1: TspSkinButton;
RadioBox9: TspSkinCheckRadioBox;
procedure FilenameEdit1Change(Sender : TObject);
procedure FilenameEdit2Change(Sender : TObject);
procedure FilenameEdit3Change(Sender : TObject);
procedure FilenameEdit4Change(Sender : TObject);
procedure FilenameEdit5Change(Sender : TObject);
procedure RadioBox1Click(Sender : TObject);
procedure FilenameEdit1ButtonClick(Sender : TObject);
procedure FilenameEdit2ButtonClick(Sender : TObject);
procedure FilenameEdit3ButtonClick(Sender : TObject);
procedure FilenameEdit4ButtonClick(Sender : TObject);
procedure FilenameEdit5ButtonClick(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure nButton1Click(Sender : TObject);
procedure TimerEditKeyPress(Sender : TObject);
procedure PortEditChange(Sender : TObject);
procedure _PROC_00586A51(Sender : TObject);
procedure _PROC_005872C1(Sender : TObject);
procedure _PROC_005872F0(Sender : TObject);
procedure _PROC_005872F8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
SysShezhi: TSysShezhi;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TSysShezhi.FilenameEdit1Change(Sender : TObject);
begin
(*
00585F10 55 push ebp
00585F11 8BEC mov ebp, esp
00585F13 6A00 push $00
00585F15 6A00 push $00
00585F17 53 push ebx
00585F18 56 push esi
00585F19 57 push edi
00585F1A 8BD8 mov ebx, eax
00585F1C 33C0 xor eax, eax
00585F1E 55 push ebp
00585F1F 68AA5F5800 push $00585FAA
***** TRY
|
00585F24 64FF30 push dword ptr fs:[eax]
00585F27 648920 mov fs:[eax], esp
00585F2A 33C0 xor eax, eax
00585F2C 55 push ebp
00585F2D 68855F5800 push $00585F85
***** TRY
|
00585F32 64FF30 push dword ptr fs:[eax]
00585F35 648920 mov fs:[eax], esp
00585F38 8D55FC lea edx, [ebp-$04]
* Reference to control TSysShezhi.FilenameEdit1 : TspSkinEdit
|
00585F3B 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
00585F41 E82AFFF3FF call 004C5E70
00585F46 8B45FC mov eax, [ebp-$04]
00585F49 50 push eax
* Reference to pointer to GlobalVar_005DF888
|
00585F4A A1D4BA5D00 mov eax, dword ptr [$005DBAD4]
00585F4F 8B00 mov eax, [eax]
* Possible String Reference to: 'Sound1'
|
00585F51 B9C05F5800 mov ecx, $00585FC0
* Possible String Reference to: 'Operation'
|
00585F56 BAD05F5800 mov edx, $00585FD0
00585F5B 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_005DF888.OFFS_04
|
00585F5D FF5604 call dword ptr [esi+$04]
00585F60 8D55F8 lea edx, [ebp-$08]
* Reference to control TSysShezhi.FilenameEdit1 : TspSkinEdit
|
00585F63 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
00585F69 E802FFF3FF call 004C5E70
00585F6E 8B55F8 mov edx, [ebp-$08]
* Reference to pointer to GlobalVar_005DF89C
|
00585F71 A138B85D00 mov eax, dword ptr [$005DB838]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00585F76 E805EBE7FF call 00404A80
00585F7B 33C0 xor eax, eax
00585F7D 5A pop edx
00585F7E 59 pop ecx
00585F7F 59 pop ecx
00585F80 648910 mov fs:[eax], edx
00585F83 EB0A jmp 00585F8F
* Reference to: System.@HandleAnyException;
|
00585F85 E952E1E7FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
00585F8A E8B5E4E7FF call 00404444
****** END
|
00585F8F 33C0 xor eax, eax
00585F91 5A pop edx
00585F92 59 pop ecx
00585F93 59 pop ecx
00585F94 648910 mov fs:[eax], edx
****** FINALLY
|
00585F97 68B15F5800 push $00585FB1
00585F9C 8D45F8 lea eax, [ebp-$08]
00585F9F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00585FA4 E8A7EAE7FF call 00404A50
00585FA9 C3 ret
* Reference to: System.@HandleFinally;
|
00585FAA E9E1E3E7FF jmp 00404390
00585FAF EBEB jmp 00585F9C
****** END
|
00585FB1 5F pop edi
00585FB2 5E pop esi
00585FB3 5B pop ebx
00585FB4 59 pop ecx
00585FB5 59 pop ecx
00585FB6 5D pop ebp
00585FB7 C3 ret
*)
end;
procedure TSysShezhi.FilenameEdit2Change(Sender : TObject);
begin
(*
00585FDC 55 push ebp
00585FDD 8BEC mov ebp, esp
00585FDF 6A00 push $00
00585FE1 6A00 push $00
00585FE3 53 push ebx
00585FE4 56 push esi
00585FE5 57 push edi
00585FE6 8BD8 mov ebx, eax
00585FE8 33C0 xor eax, eax
00585FEA 55 push ebp
00585FEB 6876605800 push $00586076
***** TRY
|
00585FF0 64FF30 push dword ptr fs:[eax]
00585FF3 648920 mov fs:[eax], esp
00585FF6 33C0 xor eax, eax
00585FF8 55 push ebp
00585FF9 6851605800 push $00586051
***** TRY
|
00585FFE 64FF30 push dword ptr fs:[eax]
00586001 648920 mov fs:[eax], esp
00586004 8D55FC lea edx, [ebp-$04]
* Reference to control TSysShezhi.FilenameEdit2 : TspSkinEdit
|
00586007 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
0058600D E85EFEF3FF call 004C5E70
00586012 8B45FC mov eax, [ebp-$04]
00586015 50 push eax
* Reference to pointer to GlobalVar_005DF888
|
00586016 A1D4BA5D00 mov eax, dword ptr [$005DBAD4]
0058601B 8B00 mov eax, [eax]
* Possible String Reference to: 'Sound2'
|
0058601D B98C605800 mov ecx, $0058608C
* Possible String Reference to: 'Operation'
|
00586022 BA9C605800 mov edx, $0058609C
00586027 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_005DF888.OFFS_04
|
00586029 FF5604 call dword ptr [esi+$04]
0058602C 8D55F8 lea edx, [ebp-$08]
* Reference to control TSysShezhi.FilenameEdit2 : TspSkinEdit
|
0058602F 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
00586035 E836FEF3FF call 004C5E70
0058603A 8B55F8 mov edx, [ebp-$08]
* Reference to pointer to GlobalVar_005DF8A0
|
0058603D A150B55D00 mov eax, dword ptr [$005DB550]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00586042 E839EAE7FF call 00404A80
00586047 33C0 xor eax, eax
00586049 5A pop edx
0058604A 59 pop ecx
0058604B 59 pop ecx
0058604C 648910 mov fs:[eax], edx
0058604F EB0A jmp 0058605B
* Reference to: System.@HandleAnyException;
|
00586051 E986E0E7FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
00586056 E8E9E3E7FF call 00404444
****** END
|
0058605B 33C0 xor eax, eax
0058605D 5A pop edx
0058605E 59 pop ecx
0058605F 59 pop ecx
00586060 648910 mov fs:[eax], edx
****** FINALLY
|
00586063 687D605800 push $0058607D
00586068 8D45F8 lea eax, [ebp-$08]
0058606B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00586070 E8DBE9E7FF call 00404A50
00586075 C3 ret
* Reference to: System.@HandleFinally;
|
00586076 E915E3E7FF jmp 00404390
0058607B EBEB jmp 00586068
****** END
|
0058607D 5F pop edi
0058607E 5E pop esi
0058607F 5B pop ebx
00586080 59 pop ecx
00586081 59 pop ecx
00586082 5D pop ebp
00586083 C3 ret
*)
end;
procedure TSysShezhi.FilenameEdit3Change(Sender : TObject);
begin
(*
005860A8 55 push ebp
005860A9 8BEC mov ebp, esp
005860AB 6A00 push $00
005860AD 6A00 push $00
005860AF 53 push ebx
005860B0 56 push esi
005860B1 57 push edi
005860B2 8BD8 mov ebx, eax
005860B4 33C0 xor eax, eax
005860B6 55 push ebp
005860B7 6842615800 push $00586142
***** TRY
|
005860BC 64FF30 push dword ptr fs:[eax]
005860BF 648920 mov fs:[eax], esp
005860C2 33C0 xor eax, eax
005860C4 55 push ebp
005860C5 681D615800 push $0058611D
***** TRY
|
005860CA 64FF30 push dword ptr fs:[eax]
005860CD 648920 mov fs:[eax], esp
005860D0 8D55FC lea edx, [ebp-$04]
* Reference to control TSysShezhi.FilenameEdit3 : TspSkinEdit
|
005860D3 8B8320030000 mov eax, [ebx+$0320]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
005860D9 E892FDF3FF call 004C5E70
005860DE 8B45FC mov eax, [ebp-$04]
005860E1 50 push eax
* Reference to pointer to GlobalVar_005DF888
|
005860E2 A1D4BA5D00 mov eax, dword ptr [$005DBAD4]
005860E7 8B00 mov eax, [eax]
* Possible String Reference to: 'Sound3'
|
005860E9 B958615800 mov ecx, $00586158
* Possible String Reference to: 'Operation'
|
005860EE BA68615800 mov edx, $00586168
005860F3 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_005DF888.OFFS_04
|
005860F5 FF5604 call dword ptr [esi+$04]
005860F8 8D55F8 lea edx, [ebp-$08]
* Reference to control TSysShezhi.FilenameEdit3 : TspSkinEdit
|
005860FB 8B8320030000 mov eax, [ebx+$0320]
* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
00586101 E86AFDF3FF call 004C5E70
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -