splash.pas

灰鸽子2007VIP版源码

unit Splash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSplashForm=class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormKeyDown(Sender : TObject);
    procedure _PROC_005B13CC(Sender : TObject);
    procedure _PROC_005B13FC(Sender : TObject);
    procedure _PROC_005B1404(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SplashForm: TSplashForm;

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

implementation

{$R *.DFM}

procedure TSplashForm.FormKeyDown(Sender : TObject);
begin
(*
005B13B4   55                     push    ebp
005B13B5   8BEC                   mov     ebp, esp
005B13B7   66833973               cmp     word ptr [ecx], +$73
005B13BB   750B                   jnz     005B13C8
005B13BD   F6450802               test    byte ptr [ebp+$08], $02
005B13C1   7405                   jz      005B13C8
005B13C3   66C7010000             mov     word ptr [ecx], $0000
005B13C8   5D                     pop     ebp
005B13C9   C20400                 ret     $0004

*)
end;

procedure TSplashForm._PROC_005B13CC(Sender : TObject);
begin
(*
005B13CC   55                     push    ebp
005B13CD   8BEC                   mov     ebp, esp
005B13CF   33C0                   xor     eax, eax
005B13D1   55                     push    ebp
005B13D2   68F1135B00             push    $005B13F1

***** TRY
|
005B13D7   64FF30                 push    dword ptr fs:[eax]
005B13DA   648920                 mov     fs:[eax], esp
005B13DD   FF05900C5E00           inc     dword ptr [$005E0C90]
005B13E3   33C0                   xor     eax, eax
005B13E5   5A                     pop     edx
005B13E6   59                     pop     ecx
005B13E7   59                     pop     ecx
005B13E8   648910                 mov     fs:[eax], edx

****** FINALLY
|
005B13EB   68F8135B00             push    $005B13F8
005B13F0   C3                     ret


* Reference to: System.@HandleFinally;
|
005B13F1   E99A2FE5FF             jmp     00404390
005B13F6   EBF8                   jmp     005B13F0

****** END
|
005B13F8   5D                     pop     ebp
005B13F9   C3                     ret

*)
end;

procedure TSplashForm._PROC_005B13FC(Sender : TObject);
begin
(*
005B13FC   832D900C5E0001         sub     dword ptr [$005E0C90], +$01
005B1403   C3                     ret

*)
end;

procedure TSplashForm._PROC_005B1404(Sender : TObject);
begin
(*
005B1404   50                     push    eax
005B1405   145B                   adc     al, $5B
005B1407   0000                   add     [eax], al

*)
end;

end.