?? createchr.pas
字號:
unit CreateChr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmCreateChr=class(TForm)
EdUserId: TEdit;
EdChrName: TEdit;
Label1: TLabel;
Label2: TLabel;
BitBtnOK: TBitBtn;
BitBtnCancel: TBitBtn;
Label3: TLabel;
EditSelectID: TEdit;
procedure FormShow(Sender : TObject);
procedure _PROC_004971E1(Sender : TObject);
procedure _PROC_004971EC(Sender : TObject);
procedure _PROC_00497201(Sender : TObject);
procedure _PROC_0049733C(Sender : TObject);
procedure _PROC_0049734F(Sender : TObject);
procedure _PROC_0049738C(Sender : TObject);
procedure _PROC_00497394(Sender : TObject);
procedure _PROC_0049741A(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmCreateChr: TFrmCreateChr;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmCreateChr.FormShow(Sender : TObject);
begin
(*
004971CC 8B80F8020000 mov eax, [eax+$02F8]
004971D2 8B10 mov edx, [eax]
004971D4 FF92C4000000 call dword ptr [edx+$00C4]
004971DA C3 ret
*)
end;
procedure TFrmCreateChr._PROC_004971E1(Sender : TObject);
begin
(*
004971E1 1803 sbb [ebx], al
004971E3 0000 add [eax], al
*)
end;
procedure TFrmCreateChr._PROC_004971EC(Sender : TObject);
begin
(*
004971EC 1C03 sbb al, $03
004971EE 0000 add [eax], al
*)
end;
procedure TFrmCreateChr._PROC_00497201(Sender : TObject);
begin
(*
00497201 8BEC mov ebp, esp
00497203 33C9 xor ecx, ecx
00497205 51 push ecx
00497206 51 push ecx
00497207 51 push ecx
00497208 51 push ecx
00497209 51 push ecx
0049720A 51 push ecx
0049720B 53 push ebx
0049720C 56 push esi
0049720D 57 push edi
0049720E 8BF0 mov esi, eax
00497210 33C0 xor eax, eax
00497212 55 push ebp
00497213 682C734900 push $0049732C
***** TRY
|
00497218 64FF30 push dword ptr fs:[eax]
0049721B 648920 mov fs:[eax], esp
0049721E 33DB xor ebx, ebx
00497220 8B9618030000 mov edx, [esi+$0318]
00497226 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0049722C E83B9FFCFF call 0046116C
00497231 8B961C030000 mov edx, [esi+$031C]
00497237 8B86FC020000 mov eax, [esi+$02FC]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0049723D E82A9FFCFF call 0046116C
00497242 8BC6 mov eax, esi
00497244 8B10 mov edx, [eax]
00497246 FF92EC000000 call dword ptr [edx+$00EC]
0049724C 48 dec eax
0049724D 0F859B000000 jnz 004972EE
00497253 8D55F8 lea edx, [ebp-$08]
00497256 8B86F8020000 mov eax, [esi+$02F8]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0049725C E8DB9EFCFF call 0046113C
00497261 8B45F8 mov eax, [ebp-$08]
00497264 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00497267 E8DC39F7FF call 0040AC48
0049726C 8B55FC mov edx, [ebp-$04]
0049726F 8D8618030000 lea eax, [esi+$0318]
* Reference to: System.@LStrAsg(void;void;void;void);
|
00497275 E8D2D7F6FF call 00404A4C
0049727A 8D55F0 lea edx, [ebp-$10]
0049727D 8B86FC020000 mov eax, [esi+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00497283 E8B49EFCFF call 0046113C
00497288 8B45F0 mov eax, [ebp-$10]
0049728B 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0049728E E8B539F7FF call 0040AC48
00497293 8B55F4 mov edx, [ebp-$0C]
00497296 8D861C030000 lea eax, [esi+$031C]
* Reference to: System.@LStrAsg(void;void;void;void);
|
0049729C E8ABD7F6FF call 00404A4C
004972A1 8D55E8 lea edx, [ebp-$18]
004972A4 8B8614030000 mov eax, [esi+$0314]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004972AA E88D9EFCFF call 0046113C
004972AF 8B45E8 mov eax, [ebp-$18]
004972B2 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004972B5 E88E39F7FF call 0040AC48
004972BA 8B45EC mov eax, [ebp-$14]
004972BD 83CAFF or edx, -$01
|
004972C0 E8CFF4FFFF call 00496794
004972C5 8BF8 mov edi, eax
004972C7 89BE20030000 mov [esi+$0320], edi
004972CD 85FF test edi, edi
004972CF 7D1B jnl 004972EC
004972D1 6A30 push $30
* Possible String Reference to: '確認信息'
|
004972D3 683C734900 push $0049733C
* Possible String Reference to: '選擇ID輸入不正確。'
|
004972D8 6848734900 push $00497348
004972DD 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
| or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
| or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
| or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
| or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
| or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
004972DF E84006FDFF call 00467924
004972E4 50 push eax
*)
end;
procedure TFrmCreateChr._PROC_0049733C(Sender : TObject);
begin
(*
0049733C C8B7 enter , $B7
0049733E C8CF enter , $CF
00497340 D0C5 rol ch, 1
00497342 CF iret
00497343 A200000000 mov byte ptr [$00000000], al
00497348 D1A1D4F14944 shl dword ptr [ecx+$4449F1D4], 1
0049734E CA ret
*)
end;
procedure TFrmCreateChr._PROC_0049734F(Sender : TObject);
begin
(*
0049734F E4C8 in al, $C8
|
00497351 EBB2 jmp 00497305
00497353 BBD5FDC8B7 mov ebx, $B7C8FDD5
00497358 A1A3000055 mov eax, dword ptr [$550000A3]
0049735D 8BEC mov ebp, esp
0049735F 33C0 xor eax, eax
00497361 55 push ebp
* Possible String Reference to: '槭霄?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -