keyloc.pas

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

unit keyloc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TKeyFrm=class(TForm)
    EditKey: TLabeledEdit;
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    ListBox1: TListBox;
    BtnAddBm: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure BtnOkClick(Sender : TObject);
    procedure BtnCancelClick(Sender : TObject);
    procedure BtnAddBmClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_004CBC75(Sender : TObject);
    procedure _PROC_004CBF29(Sender : TObject);
    procedure _PROC_004CC3D5(Sender : TObject);
    procedure _PROC_004CC41C(Sender : TObject);
    procedure _PROC_004CC424(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  KeyFrm: TKeyFrm;

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

implementation

{$R *.DFM}

procedure TKeyFrm.BtnOkClick(Sender : TObject);
begin
(*
004CBB18   55                     push    ebp
004CBB19   8BEC                   mov     ebp, esp
004CBB1B   33C9                   xor     ecx, ecx
004CBB1D   51                     push    ecx
004CBB1E   51                     push    ecx
004CBB1F   51                     push    ecx
004CBB20   51                     push    ecx
004CBB21   51                     push    ecx
004CBB22   53                     push    ebx
004CBB23   8BD8                   mov     ebx, eax
004CBB25   33C0                   xor     eax, eax
004CBB27   55                     push    ebp

* Possible String Reference to: '樯勼