reghexedit.pas

灰鸽子2007VIP版源码

unit RegHexEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TRegHex=class(TForm)
    HexEditor1: THexEditor;
    spDynamicSkinForm1: TspDynamicSkinForm;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Label1: TspSkinStdLabel;
    NameEdit: TspSkinEdit;
    Label2: TspSkinStdLabel;
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure _PROC_00596B20(Sender : TObject);
    procedure _PROC_00596B50(Sender : TObject);
    procedure _PROC_00596B58(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  RegHex: TRegHex;

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

implementation

{$R *.DFM}

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

* Reference to RegHex
|
00596B04   8B1574085E00           mov     edx, [$005E0874]

* Reference to field RegHex.OFFS_000C
|
00596B0A   C7420C64000000         mov     dword ptr [edx+$0C], $00000064

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00596B11   E8D2D4EEFF             call    00483FE8
00596B16   C3                     ret

*)
end;

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

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00596B18   E8CBD4EEFF             call    00483FE8
00596B1D   C3                     ret

*)
end;

procedure TRegHex._PROC_00596B20(Sender : TObject);
begin
(*
00596B20   55                     push    ebp
00596B21   8BEC                   mov     ebp, esp
00596B23   33C0                   xor     eax, eax
00596B25   55                     push    ebp
00596B26   68456B5900             push    $00596B45

***** TRY
|
00596B2B   64FF30                 push    dword ptr fs:[eax]
00596B2E   648920                 mov     fs:[eax], esp
00596B31   FF0578085E00           inc     dword ptr [$005E0878]
00596B37   33C0                   xor     eax, eax
00596B39   5A                     pop     edx
00596B3A   59                     pop     ecx
00596B3B   59                     pop     ecx
00596B3C   648910                 mov     fs:[eax], edx

****** FINALLY
|
00596B3F   684C6B5900             push    $00596B4C
00596B44   C3                     ret


* Reference to: System.@HandleFinally;
|
00596B45   E946D8E6FF             jmp     00404390
00596B4A   EBF8                   jmp     00596B44

****** END
|
00596B4C   5D                     pop     ebp
00596B4D   C3                     ret

*)
end;

procedure TRegHex._PROC_00596B50(Sender : TObject);
begin
(*
00596B50   832D78085E0001         sub     dword ptr [$005E0878], +$01
00596B57   C3                     ret

*)
end;

procedure TRegHex._PROC_00596B58(Sender : TObject);
begin
(*
00596B58   A4                     movsb
00596B59   6B590000               imul    ebx, [ecx+$00], $00
00596B5D   0000                   add     [eax], al

*)
end;

end.