frmlanguage.pas

来自「酷鱼下载线源程序」· PAS 代码 · 共 62 行

unit FrmLanguage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TLanguageFrm=class(TForm)
    GroupBox1: N.A.;
    BitBtn1: N.A.;
    ComboBox1: N.A.;
    procedure FormClose(Sender : TObject);
    procedure _PROC_004F68EC(Sender : TObject);
    procedure _PROC_004F691C(Sender : TObject);
    procedure _PROC_004F6924(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  LanguageFrm: TLanguageFrm;

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

implementation

{$R *.DFM}

procedure TLanguageFrm.FormClose(Sender : TObject);
begin
(*
004F68C0   53                     push    ebx
004F68C1   56                     push    esi
004F68C2   8BF1                   mov     esi, ecx
004F68C4   8BD8                   mov     ebx, eax
004F68C6   8B83F8020000           mov     eax, [ebx+$02F8]
004F68CC   8B10                   mov     edx, [eax]
004F68CE   FF92C8000000           call    dword ptr [edx+$00C8]
004F68D4   40                     inc     eax
004F68D5   8B1580725000           mov     edx, [$00507280]
004F68DB   8B12                   mov     edx, [edx]
004F68DD   8982B4050000           mov     [edx+$05B4], eax
004F68E3   C60602                 mov     byte ptr [esi], $02
004F68E6   5E                     pop     esi
004F68E7   5B                     pop     ebx
004F68E8   C3                     ret

*)
end;

procedure TLanguageFrm._PROC_004F68EC(Sender : TObject);
begin
(*
004F68EC   55                     push    ebp
004F68ED   8BEC                   mov     ebp, esp
004F68EF   33C0                   xor     eax, eax
004F68F1   55                     push    ebp

* Possible String Reference to: '槭兖