abstime.pas

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

unit abstime;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TAbsTimeFrm=class(TForm)
    Label2: TLabel;
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    CBSaveToBK: TCheckBox;
    EditName: TEdit;
    TimePick: TDateTimePicker;
    procedure BtnCancelClick(Sender : TObject);
    procedure CBSaveToBKClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure BtnOkClick(Sender : TObject);
    procedure _PROC_004CB54D(Sender : TObject);
    procedure _PROC_004CB57C(Sender : TObject);
    procedure _PROC_004CB584(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  AbsTimeFrm: TAbsTimeFrm;

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

implementation

{$R *.DFM}

procedure TAbsTimeFrm.BtnCancelClick(Sender : TObject);
begin
(*

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004CB048   E8EF20FBFF             call    0047D13C
004CB04D   C3                     ret

*)
end;

procedure TAbsTimeFrm.CBSaveToBKClick(Sender : TObject);
begin
(*
004CB050   53                     push    ebx
004CB051   8BD8                   mov     ebx, eax

* Reference to control TAbsTimeFrm.CBSaveToBK : TCheckBox
|
004CB053   8B830C030000           mov     eax, [ebx+$030C]
004CB059   8B10                   mov     edx, [eax]

* Reference to method TCheckBox.GetChecked()
|
004CB05B   FF92C8000000           call    dword ptr [edx+$00C8]
004CB061   3C01                   cmp     al, $01
004CB063   750F                   jnz     004CB074
004CB065   B201                   mov     dl, $01

* Reference to control TAbsTimeFrm.EditName : TEdit
|
004CB067   8B8310030000           mov     eax, [ebx+$0310]
004CB06D   8B08                   mov     ecx, [eax]

* Reference to method TEdit.SetEnabled(Boolean)
|
004CB06F   FF5164                 call    dword ptr [ecx+$64]
004CB072   5B                     pop     ebx
004CB073   C3                     ret

004CB074   33D2                   xor     edx, edx
004CB076   8B8310030000           mov     eax, [ebx+$0310]
004CB07C   8B08                   mov     ecx, [eax]
004CB07E   FF5164                 call    dword ptr [ecx+$64]
004CB081   5B                     pop     ebx
004CB082   C3                     ret

*)
end;

procedure TAbsTimeFrm.FormShow(Sender : TObject);
begin
(*
004CB084   55                     push    ebp
004CB085   8BEC                   mov     ebp, esp
004CB087   33C9                   xor     ecx, ecx
004CB089   51                     push    ecx
004CB08A   51                     push    ecx
004CB08B   51                     push    ecx
004CB08C   51                     push    ecx
004CB08D   51                     push    ecx
004CB08E   51                     push    ecx
004CB08F   51                     push    ecx
004CB090   53                     push    ebx
004CB091   56                     push    esi
004CB092   57                     push    edi
004CB093   8BD8                   mov     ebx, eax
004CB095   33C0                   xor     eax, eax
004CB097   55                     push    ebp

* Possible String Reference to: '閌庴