newsp.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

unit newsp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSplashForm=class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender : TObject);
    procedure _PROC_00612585(Sender : TObject);
    procedure _PROC_006125B4(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.FormCreate(Sender : TObject);
begin
(*
006124D0   53                     push    ebx
006124D1   8BD8                   mov     ebx, eax

* Possible String Reference to: '..\face\splash.jpg'
|
006124D3   B870256100             mov     eax, $00612570

* Reference to: Unit_00409434.Proc_0040A8BC
|
006124D8   E8DF83DFFF             call    0040A8BC
006124DD   84C0                   test    al, al
006124DF   7474                   jz      00612555

* Reference to control TSplashForm.Image1 : TImage
|
006124E1   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to field TImage.Picture : TPicture
|
006124E7   8B8028010000           mov     eax, [eax+$0128]

* Possible String Reference to: '..\face\splash.jpg'
|
006124ED   BA70256100             mov     edx, $00612570

* Reference to: graphics.TPicture.LoadFromFile(TPicture;AnsiString);
|
006124F2   E859F2E0FF             call    00421750

* Reference to control TSplashForm.Image1 : TImage
|
006124F7   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to field TImage.Width : Integer
|
006124FD   8B5038                 mov     edx, [eax+$38]
00612500   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
00612502   E8816DE2FF             call    00439288

* Reference to control TSplashForm.Image1 : TImage
|
00612507   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to field TImage.Height : Integer
|
0061250D   8B503C                 mov     edx, [eax+$3C]
00612510   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetHeight(TControl;Integer);
|
00612512   E8916DE2FF             call    004392A8

* Reference to TScreen instance
|
00612517   A11CD57700             mov     eax, dword ptr [$0077D51C]
0061251C   8B00                   mov     eax, [eax]

* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
0061251E   E8C54BE4FF             call    004570E8
00612523   8BD0                   mov     edx, eax
00612525   2B533C                 sub     edx, dword ptr [ebx+$3C]
00612528   D1FA                   sar     edx, 1
0061252A   7903                   jns     0061252F
0061252C   83D200                 adc     edx, +$00
0061252F   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetTop(TControl;Integer);
|
00612531   E82E6DE2FF             call    00439264

* Reference to TScreen instance
|
00612536   A11CD57700             mov     eax, dword ptr [$0077D51C]
0061253B   8B00                   mov     eax, [eax]

* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
0061253D   E8B24BE4FF             call    004570F4
00612542   8BD0                   mov     edx, eax
00612544   2B5338                 sub     edx, dword ptr [ebx+$38]
00612547   D1FA                   sar     edx, 1
00612549   7903                   jns     0061254E
0061254B   83D200                 adc     edx, +$00
0061254E   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
00612550   E8EF6CE2FF             call    00439244
00612555   8BC3                   mov     eax, ebx

* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00612557   E82CD8E2FF             call    0043FD88
0061255C   BA1E000000             mov     edx, $0000001E

* Reference to: Unit_00651A88.Proc_00654BA8
|
00612561   E842260400             call    00654BA8
00612566   5B                     pop     ebx
00612567   C3                     ret

*)
end;

procedure TSplashForm._PROC_00612585(Sender : TObject);
begin
(*
00612585   8BEC                   mov     ebp, esp
00612587   33C0                   xor     eax, eax
00612589   55                     push    ebp
0061258A   68A9256100             push    $006125A9

***** TRY
|
0061258F   64FF30                 push    dword ptr fs:[eax]
00612592   648920                 mov     fs:[eax], esp
00612595   FF0548CD7800           inc     dword ptr [$0078CD48]
0061259B   33C0                   xor     eax, eax
0061259D   5A                     pop     edx
0061259E   59                     pop     ecx
0061259F   59                     pop     ecx
006125A0   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']脣纼-H蛒'
|
006125A3   68B0256100             push    $006125B0
006125A8   C3                     ret


* Reference to: system.@HandleFinally;
|
006125A9   E97E14DFFF             jmp     00403A2C
006125AE   EBF8                   jmp     006125A8

****** END
|
006125B0   5D                     pop     ebp
006125B1   C3                     ret

*)
end;

procedure TSplashForm._PROC_006125B4(Sender : TObject);
begin
(*
006125B4   832D48CD780001         sub     dword ptr [$0078CD48], +$01
006125BB   C3                     ret

*)
end;

end.