gameset.pas

唆哈...源码对于想赢分的人有用

unit GameSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSetClient=class(TForm)
    RG: N.A.;
    Bevel1: N.A.;
    FlatButton1: N.A.;
    FlatButton2: N.A.;
    Bevel2: N.A.;
    procedure FlatButton1Click(Sender : TObject);
    procedure FlatButton2Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_004FFC05(Sender : TObject);
    procedure GameSet.Initialization(Sender : TObject);
    procedure GameSet.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SetClient: TSetClient;

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

implementation

{$R *.DFM}

procedure TSetClient.FlatButton1Click(Sender : TObject);
begin
(*
004FFB50   53                     push    ebx
004FFB51   8BD8                   mov     ebx, eax
004FFB53   8B83D0020000           mov     eax, [ebx+$02D0]
004FFB59   83B80002000000         cmp     dword ptr [eax+$0200], +$00
004FFB60   750E                   jnz     004FFB70
004FFB62   B201                   mov     dl, $01

* Possible String Reference to: 'SuoHa'
|
004FFB64   B898FB4F00             mov     eax, $004FFB98

* Reference to: Unit_004E59A9.Proc_004E5D0C
|
004FFB69   E89E61FEFF             call    004E5D0C
004FFB6E   EB0C                   jmp     004FFB7C
004FFB70   33D2                   xor     edx, edx

* Possible String Reference to: 'SuoHa'
|
004FFB72   B898FB4F00             mov     eax, $004FFB98

* Reference to: Unit_004E59A9.Proc_004E5D0C
|
004FFB77   E89061FEFF             call    004E5D0C
004FFB7C   33D2                   xor     edx, edx
004FFB7E   8BC3                   mov     eax, ebx

* Reference to : TCustomForm.SetFormStyle(TCustomForm;TFormStyle);()
|
004FFB80   E8A374F4FF             call    00447028
004FFB85   8BC3                   mov     eax, ebx

* Reference to : TCustomForm.Close(TCustomForm);()
|
004FFB87   E8F499F4FF             call    00449580
004FFB8C   5B                     pop     ebx
004FFB8D   C3                     ret

*)
end;

procedure TSetClient.FlatButton2Click(Sender : TObject);
begin
(*
004FFBA0   53                     push    ebx
004FFBA1   8BD8                   mov     ebx, eax
004FFBA3   33D2                   xor     edx, edx
004FFBA5   8BC3                   mov     eax, ebx

* Reference to : TCustomForm.SetFormStyle(TCustomForm;TFormStyle);()
|
004FFBA7   E87C74F4FF             call    00447028
004FFBAC   8BC3                   mov     eax, ebx

* Reference to : TCustomForm.Close(TCustomForm);()
|
004FFBAE   E8CD99F4FF             call    00449580
004FFBB3   5B                     pop     ebx
004FFBB4   C3                     ret

*)
end;

procedure TSetClient.FormCreate(Sender : TObject);
begin
(*
004FFBB8   53                     push    ebx
004FFBB9   8BD8                   mov     ebx, eax

* Possible String Reference to: 'SuoHa'
|
004FFBBB   B8F4FB4F00             mov     eax, $004FFBF4

* Reference to: Unit_004E59A9.Proc_004E5C64
|
004FFBC0   E89F60FEFF             call    004E5C64
004FFBC5   84C0                   test    al, al
004FFBC7   740F                   jz      004FFBD8
004FFBC9   33D2                   xor     edx, edx
004FFBCB   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to : TCustomRadioGroup.SetItemIndex(TCustomRadioGroup;Integer);()
|
004FFBD1   E89A17F5FF             call    00451370
004FFBD6   5B                     pop     ebx
004FFBD7   C3                     ret

004FFBD8   BA01000000             mov     edx, $00000001

* Reference to control wavClick : N.A.
|
004FFBDD   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to : TCustomRadioGroup.SetItemIndex(TCustomRadioGroup;Integer);()
|
004FFBE3   E88817F5FF             call    00451370
004FFBE8   5B                     pop     ebx
004FFBE9   C3                     ret

*)
end;

procedure TSetClient.FormClose(Sender : TObject);
begin
(*
004FFBFC   33D2                   xor     edx, edx

* Reference to : TCustomForm.SetFormStyle(TCustomForm;TFormStyle);()
|
004FFBFE   E82574F4FF             call    00447028
004FFC03   C3                     ret

*)
end;

procedure TSetClient._PROC_004FFC05(Sender : TObject);
begin
(*
004FFC05   8BEC                   mov     ebp, esp
004FFC07   33C0                   xor     eax, eax
004FFC09   55                     push    ebp
004FFC0A   6829FC4F00             push    $004FFC29

***** TRY
|
004FFC0F   64FF30                 push    dword ptr fs:[eax]
004FFC12   648920                 mov     fs:[eax], esp
004FFC15   FF05F8055100           inc     dword ptr [$005105F8]
004FFC1B   33C0                   xor     eax, eax
004FFC1D   5A                     pop     edx
004FFC1E   59                     pop     ecx
004FFC1F   59                     pop     ecx
004FFC20   648910                 mov     fs:[eax], edx

****** FINALLY
|
004FFC23   6830FC4F00             push    $004FFC30
004FFC28   C3                     ret


* Reference to : TObject.System.@HandleFinally;()
|
004FFC29   E94A39F0FF             jmp     00403578
004FFC2E   EBF8                   jmp     004FFC28

****** END
|
004FFC30   5D                     pop     ebp
004FFC31   C3                     ret

*)
end;

procedure TSetClient.GameSet.Initialization(Sender : TObject);
begin
(*
004FFC34   832DF805510001         sub     dword ptr [$005105F8], +$01
004FFC3B   C3                     ret

*)
end;

procedure TSetClient.GameSet.Finalization(Sender : TObject);
begin
(*
004FFC04   55                     push    ebp
004FFC05   8BEC                   mov     ebp, esp
004FFC07   33C0                   xor     eax, eax
004FFC09   55                     push    ebp
004FFC0A   6829FC4F00             push    $004FFC29

***** TRY
|
004FFC0F   64FF30                 push    dword ptr fs:[eax]
004FFC12   648920                 mov     fs:[eax], esp
004FFC15   FF05F8055100           inc     dword ptr [$005105F8]
004FFC1B   33C0                   xor     eax, eax
004FFC1D   5A                     pop     edx
004FFC1E   59                     pop     ecx
004FFC1F   59                     pop     ecx
004FFC20   648910                 mov     fs:[eax], edx

****** FINALLY
|
004FFC23   6830FC4F00             push    $004FFC30
004FFC28   C3                     ret


* Reference to : TObject.System.@HandleFinally;()
|
004FFC29   E94A39F0FF             jmp     00403578
004FFC2E   EBF8                   jmp     004FFC28

****** END
|
004FFC30   5D                     pop     ebp
004FFC31   C3                     ret

*)
end;

end.