paracfg.pas

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

unit paracfg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TParaFrm=class(TForm)
    Label3: TLabel;
    Label1: TLabel;
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    EditMaxDelay: TMaskEdit;
    EditStepTime: TMaskEdit;
    GBSound: TGroupBox;
    RadioYes: TRadioButton;
    RadioNo: TRadioButton;
    GroupBox1: TGroupBox;
    RadioDisp: TRadioButton;
    RadioPrint: TRadioButton;
    procedure BtnCancelClick(Sender : TObject);
    procedure BtnOkClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure EditStepTimeChange(Sender : TObject);
    procedure _PROC_004CA5F9(Sender : TObject);
    procedure _PROC_004CA628(Sender : TObject);
    procedure _PROC_004CA630(Sender : TObject);
    procedure _PROC_004CA660(Sender : TObject);
    procedure _PROC_004CA668(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ParaFrm: TParaFrm;

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

implementation

{$R *.DFM}

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

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004CA318   E81F2EFBFF             call    0047D13C
004CA31D   C3                     ret

*)
end;

procedure TParaFrm.BtnOkClick(Sender : TObject);
begin
(*
004CA320   55                     push    ebp
004CA321   8BEC                   mov     ebp, esp
004CA323   33C9                   xor     ecx, ecx
004CA325   51                     push    ecx
004CA326   51                     push    ecx
004CA327   51                     push    ecx
004CA328   51                     push    ecx
004CA329   53                     push    ebx
004CA32A   8BD8                   mov     ebx, eax
004CA32C   33C0                   xor     eax, eax
004CA32E   55                     push    ebp

* Possible String Reference to: '殒滙