S
sjx
Unregistered / Unconfirmed
GUEST, unregistred user!
能翻译的还可加分,在线等待
unit WorkerLogon;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TWorkerLogonForm=class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
Panel2: TPanel;
Image1: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label3: TLabel;
Edit3: TEdit;
procedure FormShow(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure Edit1KeyPress(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure Edit1Click(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
WorkerLogonForm: TWorkerLogonForm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TWorkerLogonForm.FormShow(Sender : TObject);
begin
(*
004AA7D4 55 push ebp
004AA7D5 8BEC mov ebp, esp
004AA7D7 6A00 push $00
004AA7D9 6A00 push $00
004AA7DB 6A00 push $00
004AA7DD 53 push ebx
004AA7DE 56 push esi
004AA7DF 57 push edi
004AA7E0 8BD8 mov ebx, eax
004AA7E2 33C0 xor eax, eax
004AA7E4 55 push ebp
* Possible String Reference to: '楦嬽
unit WorkerLogon;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TWorkerLogonForm=class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
Panel2: TPanel;
Image1: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label3: TLabel;
Edit3: TEdit;
procedure FormShow(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure Edit1KeyPress(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure Edit1Click(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
WorkerLogonForm: TWorkerLogonForm;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TWorkerLogonForm.FormShow(Sender : TObject);
begin
(*
004AA7D4 55 push ebp
004AA7D5 8BEC mov ebp, esp
004AA7D7 6A00 push $00
004AA7D9 6A00 push $00
004AA7DB 6A00 push $00
004AA7DD 53 push ebx
004AA7DE 56 push esi
004AA7DF 57 push edi
004AA7E0 8BD8 mov ebx, eax
004AA7E2 33C0 xor eax, eax
004AA7E4 55 push ebp
* Possible String Reference to: '楦嬽