about.pas

一个类似REALPLAY的播放器的客户端,可以播放UNIX/LINUX下的文本文件的功能

unit About;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TAboutFrm=class(TForm)
    ProgramIcon: TImage;
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label5: TLabel;
    BtnOk: TBitBtn;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    procedure BtnOkClick(Sender : TObject);
    procedure StaticText3Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_004CB865(Sender : TObject);
    procedure _PROC_004CB894(Sender : TObject);
    procedure _PROC_004CB89C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AboutFrm: TAboutFrm;

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

implementation

{$R *.DFM}

procedure TAboutFrm.BtnOkClick(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004CB7D0   E86719FBFF             call    0047D13C
004CB7D5   C3                     ret

*)
end;

procedure TAboutFrm.StaticText3Click(Sender : TObject);
begin
(*
004CB7D8   C3                     ret

*)
end;

procedure TAboutFrm.FormShow(Sender : TObject);
begin
(*
004CB7DC   53                     push    ebx
004CB7DD   51                     push    ecx
004CB7DE   8BD8                   mov     ebx, eax

* Reference to TScreen instance
|
004CB7E0   A150694D00             mov     eax, dword ptr [$004D6950]
004CB7E5   8B00                   mov     eax, [eax]

* Reference to: Forms.TScreen.GetWidth(TScreen):Integer;
|
004CB7E7   E8582BFBFF             call    0047E344
004CB7EC   2B4348                 sub     eax, dword ptr [ebx+$48]
004CB7EF   7105                   jno     004CB7F6

* Reference to: System.@IntOver;
|
004CB7F1   E8E280F3FF             call    004038D8
004CB7F6   890424                 mov     [esp], eax
004CB7F9   DB0424                 fild    dword ptr [esp]
004CB7FC   D83560B84C00           fdiv    dword ptr [$004CB860]

* Reference to: System.@ROUND;
|
004CB802   E89573F3FF             call    00402B9C
004CB807   50                     push    eax
004CB808   C1F81F                 sar     eax, $1F
004CB80B   3BC2                   cmp     eax, edx
004CB80D   58                     pop     eax
004CB80E   7405                   jz      004CB815

* Reference to: System.@BoundErr;
|
004CB810   E8BB80F3FF             call    004038D0
004CB815   8BD0                   mov     edx, eax
004CB817   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
004CB819   E8B245F9FF             call    0045FDD0

* Reference to TScreen instance
|
004CB81E   A150694D00             mov     eax, dword ptr [$004D6950]
004CB823   8B00                   mov     eax, [eax]

* Reference to: Forms.TScreen.GetHeight(TScreen):Integer;
|
004CB825   E80E2BFBFF             call    0047E338
004CB82A   2B434C                 sub     eax, dword ptr [ebx+$4C]
004CB82D   7105                   jno     004CB834

* Reference to: System.@IntOver;
|
004CB82F   E8A480F3FF             call    004038D8
004CB834   890424                 mov     [esp], eax
004CB837   DB0424                 fild    dword ptr [esp]
004CB83A   D83560B84C00           fdiv    dword ptr [$004CB860]

* Reference to: System.@ROUND;
|
004CB840   E85773F3FF             call    00402B9C
004CB845   50                     push    eax
004CB846   C1F81F                 sar     eax, $1F
004CB849   3BC2                   cmp     eax, edx
004CB84B   58                     pop     eax
004CB84C   7405                   jz      004CB853

* Reference to: System.@BoundErr;
|
004CB84E   E87D80F3FF             call    004038D0
004CB853   8BD0                   mov     edx, eax
004CB855   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
004CB857   E89845F9FF             call    0045FDF4
004CB85C   5A                     pop     edx
004CB85D   5B                     pop     ebx
004CB85E   C3                     ret

*)
end;

procedure TAboutFrm._PROC_004CB865(Sender : TObject);
begin
(*
004CB865   8BEC                   mov     ebp, esp
004CB867   33C0                   xor     eax, eax
004CB869   55                     push    ebp

* Possible String Reference to: '閊報