📄 p_suoha.pas
字号:
unit p_SuoHa;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TForm1=class(TForm)
wavClick: N.A.;
wavSwitch: N.A.;
DXSound: N.A.;
DXWaveList: N.A.;
TopPanel: N.A.;
AdHead: N.A.;
ToolImg: N.A.;
Image1: N.A.;
epBMPButton3: N.A.;
Label9: N.A.;
epBMPButton4: N.A.;
Label10: N.A.;
epBMPButton5: N.A.;
Label11: N.A.;
epBMPButton6: N.A.;
Label12: N.A.;
start: N.A.;
M1: N.A.;
PlayerList: N.A.;
my_name: N.A.;
Left_Name: N.A.;
Right_Name: N.A.;
Top_Name: N.A.;
WallPaper: N.A.;
backpic: N.A.;
ps_list: N.A.;
Talk: N.A.;
RvStyle1: N.A.;
Splitter1: N.A.;
center: N.A.;
userPanel: N.A.;
one: N.A.;
two: N.A.;
three: N.A.;
follow: N.A.;
nofollow: N.A.;
showhand: N.A.;
Send: N.A.;
Act: N.A.;
LtTimer: N.A.;
TalkArea: N.A.;
Sprite: N.A.;
TmpM: N.A.;
Play_Clock: N.A.;
clock: N.A.;
N1: N.A.;
N2: N.A.;
M2: N.A.;
M3: N.A.;
N3: N.A.;
M4: N.A.;
N4: N.A.;
TmpN: N.A.;
AdRight: N.A.;
Back: N.A.;
RightPanel: N.A.;
wSocket: N.A.;
MyCardSprite: N.A.;
MyOutSprite: N.A.;
pkpTimer: N.A.;
OFFS_0C5C: N.A.;
OFFS_0C40: N.A.;
OFFS_0C0C: N.A.;
OFFS_0C43: N.A.;
OFFS_0C42: N.A.;
OFFS_0C41: N.A.;
OFFS_0C5D: N.A.;
OFFS_0BD8: N.A.;
OFFS_0BC4: N.A.;
OFFS_03C2: N.A.;
OFFS_03C3: N.A.;
OFFS_0E08: N.A.;
procedure epBMPButton5Click(Sender : TObject);
procedure FormResize(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormCanResize(Sender : TObject);
procedure PlayerListDblClick(Sender : TObject);
procedure TalkKeyDown(Sender : TObject);
procedure SendClick(Sender : TObject);
procedure LtTimerTimer(Sender : TObject);
procedure ActClick(Sender : TObject);
procedure pkpMouseDown(Sender : TObject);
procedure Splitter2Moved(Sender : TObject);
procedure FollowClick(Sender : TObject);
procedure ShowHandClick(Sender : TObject);
procedure ThreeClick(Sender : TObject);
procedure TwoClick(Sender : TObject);
procedure OneClick(Sender : TObject);
procedure NoFollowClick(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure play_clockTimer(Sender : TObject);
procedure MovePai(Sender : TObject);
procedure startClick(Sender : TObject);
procedure epBMPButton6Click(Sender : TObject);
procedure epBMPButton3Click(Sender : TObject);
procedure SetSoundFlag(Sender : TObject);
procedure WMEraseBkgnd(Sender : TObject);
procedure epBMPButton4Click(Sender : TObject);
procedure wSocketDataAvailable(Sender : TObject);
procedure wSocketSessionConnected(Sender : TObject);
procedure wSocketSessionClosed(Sender : TObject);
procedure pkpMouseUp(Sender : TObject);
procedure pkpTimerTimer(Sender : TObject);
procedure p_SuoHa.Initialization(Sender : TObject);
procedure p_SuoHa.Finalization(Sender : TObject);
procedure Proc_00500430(Sender : TObject);
procedure Proc_00501F24(Sender : TObject);
procedure Proc_00502850(Sender : TObject);
procedure Proc_0050146C(Sender : TObject);
procedure Proc_00503198(Sender : TObject);
procedure Proc_00504C90(Sender : TObject);
procedure Proc_0050133C(Sender : TObject);
procedure Proc_00505B28(Sender : TObject);
procedure Proc_00505BF4(Sender : TObject);
procedure Proc_00502FC4(Sender : TObject);
procedure Proc_00500C7C(Sender : TObject);
procedure Proc_0050590C(Sender : TObject);
procedure Proc_00505F28(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1: TForm1;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TForm1.epBMPButton5Click(Sender : TObject);
begin
(*
* Reference to field TForm1.OFFS_0C5C : Byte
|
005015E8 C6805C0C000001 mov byte ptr [eax+$0C5C], $01
* Reference to : TCustomForm.Close(TCustomForm);()
|
005015EF E88C7FF4FF call 00449580
005015F4 C3 ret
*)
end;
procedure TForm1.FormResize(Sender : TObject);
begin
(*
005015F8 53 push ebx
005015F9 56 push esi
005015FA 57 push edi
005015FB 8BD8 mov ebx, eax
005015FD 8B832C030000 mov eax, [ebx+$032C]
00501603 8B483C mov ecx, [eax+$3C]
00501606 8B9344030000 mov edx, [ebx+$0344]
0050160C 2B4A3C sub ecx, dword ptr [edx+$3C]
0050160F D1F9 sar ecx, 1
00501611 7903 jns 00501616
00501613 83D100 adc ecx, +$00
00501616 034834 add ecx, [eax+$34]
00501619 8BC1 mov eax, ecx
0050161B 92 xchg eax, edx
* Reference to : TControl.SetTop(TControl;Integer);()
|
0050161C E8BFC5F2FF call 0042DBE0
* Reference to control WallPaper : N.A.
|
00501621 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0038
|
00501627 8B4838 mov ecx, [eax+$38]
* Reference to control center : N.A.
|
0050162A 8B9344030000 mov edx, [ebx+$0344]
00501630 2B4A38 sub ecx, dword ptr [edx+$38]
00501633 D1F9 sar ecx, 1
00501635 7903 jns 0050163A
00501637 83D100 adc ecx, +$00
0050163A 034830 add ecx, [eax+$30]
0050163D 8BC1 mov eax, ecx
0050163F 92 xchg eax, edx
* Reference to : TControl.SetLeft(TControl;Integer);()
|
00501640 E87BC5F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
00501645 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0030
|
0050164B 8B4830 mov ecx, [eax+$30]
0050164E 034838 add ecx, [eax+$38]
00501651 83E914 sub ecx, +$14
* Reference to control userPanel : N.A.
|
00501654 8B9348030000 mov edx, [ebx+$0348]
0050165A 2B4A38 sub ecx, dword ptr [edx+$38]
0050165D 8BC1 mov eax, ecx
0050165F 92 xchg eax, edx
* Reference to : TControl.SetLeft(TControl;Integer);()
|
00501660 E85BC5F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
00501665 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0034
|
0050166B 8B4834 mov ecx, [eax+$34]
0050166E 03483C add ecx, [eax+$3C]
00501671 83E90A sub ecx, +$0A
* Reference to control userPanel : N.A.
|
00501674 8B9348030000 mov edx, [ebx+$0348]
0050167A 2B4A3C sub ecx, dword ptr [edx+$3C]
0050167D 8BC1 mov eax, ecx
0050167F 92 xchg eax, edx
* Reference to : TControl.SetTop(TControl;Integer);()
|
00501680 E85BC5F2FF call 0042DBE0
* Reference to control WallPaper : N.A.
|
00501685 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0034
|
0050168B 8B5034 mov edx, [eax+$34]
0050168E 03503C add edx, [eax+$3C]
00501691 83EA1E sub edx, +$1E
* Reference to control my_name : N.A.
|
00501694 8B831C030000 mov eax, [ebx+$031C]
* Reference to : TControl.SetTop(TControl;Integer);()
|
0050169A E841C5F2FF call 0042DBE0
* Reference to control WallPaper : N.A.
|
0050169F 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0030
|
005016A5 8B5030 mov edx, [eax+$30]
* Reference to field N.A..OFFS_0038
|
005016A8 8B4038 mov eax, [eax+$38]
005016AB D1F8 sar eax, 1
005016AD 7903 jns 005016B2
005016AF 83D000 adc eax, +$00
005016B2 03D0 add edx, eax
005016B4 83EA6E sub edx, +$6E
* Reference to control my_name : N.A.
|
005016B7 8B831C030000 mov eax, [ebx+$031C]
* Reference to : TControl.SetLeft(TControl;Integer);()
|
005016BD E8FEC4F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
005016C2 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0034
|
005016C8 8B5034 mov edx, [eax+$34]
* Reference to field N.A..OFFS_003C
|
005016CB 8B403C mov eax, [eax+$3C]
005016CE D1F8 sar eax, 1
005016D0 7903 jns 005016D5
005016D2 83D000 adc eax, +$00
005016D5 03D0 add edx, eax
005016D7 83EA60 sub edx, +$60
005016DA 83EA12 sub edx, +$12
* Reference to control Right_Name : N.A.
|
005016DD 8B8324030000 mov eax, [ebx+$0324]
* Reference to : TControl.SetTop(TControl;Integer);()
|
005016E3 E8F8C4F2FF call 0042DBE0
* Reference to control WallPaper : N.A.
|
005016E8 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0030
|
005016EE 8B4830 mov ecx, [eax+$30]
005016F1 034838 add ecx, [eax+$38]
* Reference to control Right_Name : N.A.
|
005016F4 8B9324030000 mov edx, [ebx+$0324]
005016FA 2B4A38 sub ecx, dword ptr [edx+$38]
005016FD 83E90A sub ecx, +$0A
00501700 8BC1 mov eax, ecx
00501702 92 xchg eax, edx
* Reference to : TControl.SetLeft(TControl;Integer);()
|
00501703 E8B8C4F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
00501708 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0034
|
0050170E 8B5034 mov edx, [eax+$34]
00501711 83C214 add edx, +$14
* Reference to control Top_Name : N.A.
|
00501714 8B8328030000 mov eax, [ebx+$0328]
* Reference to : TControl.SetTop(TControl;Integer);()
|
0050171A E8C1C4F2FF call 0042DBE0
* Reference to control WallPaper : N.A.
|
0050171F 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0030
|
00501725 8B5030 mov edx, [eax+$30]
* Reference to field N.A..OFFS_0038
|
00501728 8B4038 mov eax, [eax+$38]
0050172B D1F8 sar eax, 1
0050172D 7903 jns 00501732
0050172F 83D000 adc eax, +$00
00501732 03D0 add edx, eax
00501734 83EA6E sub edx, +$6E
* Reference to control Top_Name : N.A.
|
00501737 8B8328030000 mov eax, [ebx+$0328]
* Reference to : TControl.SetLeft(TControl;Integer);()
|
0050173D E87EC4F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
00501742 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0034
|
00501748 8B5034 mov edx, [eax+$34]
* Reference to field N.A..OFFS_003C
|
0050174B 8B403C mov eax, [eax+$3C]
0050174E D1F8 sar eax, 1
00501750 7903 jns 00501755
00501752 83D000 adc eax, +$00
00501755 03D0 add edx, eax
00501757 83EA60 sub edx, +$60
0050175A 83EA12 sub edx, +$12
* Reference to control Left_Name : N.A.
|
0050175D 8B8320030000 mov eax, [ebx+$0320]
* Reference to : TControl.SetTop(TControl;Integer);()
|
00501763 E878C4F2FF call 0042DBE0
00501768 BA0A000000 mov edx, $0000000A
* Reference to control Left_Name : N.A.
|
0050176D 8B8320030000 mov eax, [ebx+$0320]
* Reference to : TControl.SetLeft(TControl;Integer);()
|
00501773 E848C4F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
00501778 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_0038
|
0050177E 8B4838 mov ecx, [eax+$38]
* Reference to control start : N.A.
|
00501781 8B9310030000 mov edx, [ebx+$0310]
00501787 2B4A38 sub ecx, dword ptr [edx+$38]
0050178A D1F9 sar ecx, 1
0050178C 7903 jns 00501791
0050178E 83D100 adc ecx, +$00
00501791 034830 add ecx, [eax+$30]
00501794 8BC1 mov eax, ecx
00501796 92 xchg eax, edx
* Reference to : TControl.SetLeft(TControl;Integer);()
|
00501797 E824C4F2FF call 0042DBC0
* Reference to control WallPaper : N.A.
|
0050179C 8B832C030000 mov eax, [ebx+$032C]
* Reference to field N.A..OFFS_003C
|
005017A2 8B703C mov esi, [eax+$3C]
005017A5 8BC6 mov eax, esi
005017A7 BF19000000 mov edi, $00000019
005017AC 99 cdq
005017AD F7FF idiv edi
* Reference to control WallPaper : N.A.
|
005017AF 8B8B2C030000 mov ecx, [ebx+$032C]
005017B5 8B5134 mov edx, [ecx+$34]
005017B8 03D6 add edx, esi
005017BA 83EA5B sub edx, +$5B
005017BD 83EA1E sub edx, +$1E
005017C0 2BD0 sub edx, eax
* Reference to control start : N.A.
|
005017C2 8B8310030000 mov eax, [ebx+$0310]
* Reference to : TControl.SetTop(TControl;Integer);()
|
005017C8 E813C4F2FF call 0042DBE0
005017CD 5F pop edi
005017CE 5E pop esi
005017CF 5B pop ebx
005017D0 C3 ret
*)
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -