📄 frmabout.pas
字号:
unit FrmAbout;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TAboutBox=class(TForm)
Panel1: N.A.;
ProgramIcon: N.A.;
ProductName: N.A.;
Version: N.A.;
Copyright: N.A.;
Comments: N.A.;
OKButton: N.A.;
author: N.A.;
ComPort1: N.A.;
procedure CopyrightClick(Sender : TObject);
procedure ComPort1RxChar(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_004FA758(Sender : TObject);
procedure _PROC_004FA7C9(Sender : TObject);
procedure _PROC_004FA7D4(Sender : TObject);
procedure _PROC_004FA7DC(Sender : TObject);
procedure _PROC_004FAC0F(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
AboutBox: TAboutBox;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TAboutBox.CopyrightClick(Sender : TObject);
begin
(*
004FA728 53 push ebx
004FA729 8BD8 mov ebx, eax
004FA72B 6A01 push $01
004FA72D 6A00 push $00
004FA72F 6A00 push $00
004FA731 A180725000 mov eax, dword ptr [$00507280]
004FA736 8B00 mov eax, [eax]
004FA738 8B80B8050000 mov eax, [eax+$05B8]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
004FA73E E889A7F0FF call 00404ECC
004FA743 50 push eax
* Possible String Reference to: 'open'
|
004FA744 6858A74F00 push $004FA758
004FA749 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
004FA74B E8E840F5FF call 0044E838
004FA750 50 push eax
* Reference to: shell32.ShellExecuteA()
|
004FA751 E82A01F4FF call 0043A880
004FA756 5B pop ebx
004FA757 C3 ret
*)
end;
procedure TAboutBox.ComPort1RxChar(Sender : TObject);
begin
(*
004FA760 8B15CC775000 mov edx, [$005077CC]
004FA766 0FB612 movzx edx, byte ptr [edx]
004FA769 3BCA cmp ecx, edx
004FA76B 7511 jnz 004FA77E
004FA76D 8B1524775000 mov edx, [$00507724]
004FA773 8B8010030000 mov eax, [eax+$0310]
* Reference to : TComPort._PROC_00490F24()
|
004FA779 E8A667F9FF call 00490F24
004FA77E A1C4735000 mov eax, dword ptr [$005073C4]
004FA783 C60001 mov byte ptr [eax], $01
004FA786 C3 ret
*)
end;
procedure TAboutBox.FormCreate(Sender : TObject);
begin
(*
004FA788 8B1580725000 mov edx, [$00507280]
004FA78E 8B12 mov edx, [edx]
004FA790 8B92B8050000 mov edx, [edx+$05B8]
004FA796 8B8000030000 mov eax, [eax+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004FA79C E867D8F4FF call 00448008
004FA7A1 C3 ret
*)
end;
procedure TAboutBox._PROC_004FA758(Sender : TObject);
begin
(*
004FA758 6F outsd
004FA759 7065 jo 004FA7C0
004FA75B 6E outsb
004FA75C 0000 add [eax], al
004FA75E 0000 add [eax], al
004FA760 8B15CC775000 mov edx, [$005077CC]
004FA766 0FB612 movzx edx, byte ptr [edx]
004FA769 3BCA cmp ecx, edx
004FA76B 7511 jnz 004FA77E
004FA76D 8B1524775000 mov edx, [$00507724]
004FA773 8B8010030000 mov eax, [eax+$0310]
* Reference to : TComPort._PROC_00490F24()
|
004FA779 E8A667F9FF call 00490F24
004FA77E A1C4735000 mov eax, dword ptr [$005073C4]
004FA783 C60001 mov byte ptr [eax], $01
004FA786 C3 ret
004FA787 90 nop
004FA788 8B1580725000 mov edx, [$00507280]
004FA78E 8B12 mov edx, [edx]
004FA790 8B92B8050000 mov edx, [edx+$05B8]
004FA796 8B8000030000 mov eax, [eax+$0300]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004FA79C E867D8F4FF call 00448008
004FA7A1 C3 ret
004FA7A2 8BC0 mov eax, eax
004FA7A4 55 push ebp
004FA7A5 8BEC mov ebp, esp
004FA7A7 33C0 xor eax, eax
004FA7A9 55 push ebp
004FA7AA 68C9A74F00 push $004FA7C9
***** TRY
|
004FA7AF 64FF30 push dword ptr fs:[eax]
004FA7B2 648920 mov fs:[eax], esp
004FA7B5 FF0504905000 inc dword ptr [$00509004]
004FA7BB 33C0 xor eax, eax
004FA7BD 5A pop edx
004FA7BE 59 pop ecx
004FA7BF 59 pop ecx
004FA7C0 648910 mov fs:[eax], edx
****** FINALLY
|
004FA7C3 68D0A74F00 push $004FA7D0
004FA7C8 C3 ret
*)
end;
procedure TAboutBox._PROC_004FA7C9(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
004FA7C9 E9129BF0FF jmp 004042E0
|
004FA7CE EBF8 jmp 004FA7C8
004FA7D0 5D pop ebp
004FA7D1 C3 ret
*)
end;
procedure TAboutBox._PROC_004FA7D4(Sender : TObject);
begin
(*
004FA7D4 832D0490500001 sub dword ptr [$00509004], +$01
004FA7DB C3 ret
*)
end;
procedure TAboutBox._PROC_004FA7DC(Sender : TObject);
begin
(*
004FA7DC 28A84F000000 sub [eax+$004F], ch
004FA7E2 0000 add [eax], al
*)
end;
procedure TAboutBox._PROC_004FAC0F(Sender : TObject);
begin
(*
004FAC0F 7064 jo 004FAC75
004FAC11 61 popa
004FAC12 7465 jz 004FAC79
004FAC14 46 inc esi
004FAC15 6C insb
004FAC16 61 popa
004FAC17 7368 jnb 004FAC81
004FAC19 46 inc esi
004FAC1A 696C65A40300000D imul ebp, [ebp-$5C], $0D000003
004FAC22 000A add [edx], cl
004FAC24 69734572617365 imul esi, [ebx+$45], $65736172
004FAC2B 41 inc ecx
004FAC2C 6C insb
004FAC2D 6C insb
004FAC2E A803 test al, $03
004FAC30 0000 add [eax], al
004FAC32 0D000C6973 or eax, $73690C00
004FAC37 57 push edi
004FAC38 7269 jb 004FACA3
004FAC3A 7465 jz 004FACA1
004FAC3C 46 inc esi
004FAC3D 6C insb
004FAC3E 61 popa
004FAC3F 7368 jnb 004FACA9
004FAC41 AC lodsb
004FAC42 0300 add eax, [eax]
004FAC44 000D00126973 add [$73691200], cl
004FAC4A 55 push ebp
004FAC4B 7064 jo 004FACB1
004FAC4D 61 popa
004FAC4E 7465 jz 004FACB5
004FAC50 45 inc ebp
004FAC51 45 inc ebp
004FAC52 50 push eax
004FAC53 52 push edx
004FAC54 4F dec edi
004FAC55 4D dec ebp
004FAC56 66696C65B00300 imul bp, word ptr [ebp-$50], $0003
004FAC5D 000D000D6973 add [$73690D00], cl
004FAC63 57 push edi
004FAC64 7269 jb 004FACCF
004FAC66 7465 jz 004FACCD
004FAC68 45 inc ebp
004FAC69 45 inc ebp
004FAC6A 50 push eax
004FAC6B 52 push edx
004FAC6C 4F dec edi
004FAC6D 4D dec ebp
004FAC6E B403 mov ah, $03
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -