//Flash转屏保1.0版注册机(delphi版)
//http://xtzy.51.net/soft/flashscr/flashs.zip
//delphi5.0+控件kol&MCK1.01制作
{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;
interface
{$IFDEF KOL_MCK}
uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
Controls, mckCtrls {$ENDIF};
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
mirror;
{$ENDIF}
type
{$IFDEF KOL_MCK}
{$I MCKfakeClasses.inc}
PfrmMain = ^TfrmMain;
TfrmMain = object(TObj)
Form: PControl;
{$ELSE not_KOL_MCK}
TfrmMain = class(TForm)
{$ENDIF KOL_MCK}
KOLForm1: TKOLForm;
KOLProject1: TKOLProject;
Label1: TKOLLabel;
Label2: TKOLLabel;
EditBox1: TKOLEditBox;
EditBox2: TKOLEditBox;
Button1: TKOLButton;
procedure Button1Click(Sender: PObj);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain {$IFDEF KOL_MCK} : PfrmMain {$ELSE} : TfrmMain {$ENDIF} ;
{$IFDEF KOL_MCK}
procedure NewfrmMain( var Result: PfrmMain; AParent: PControl );
{$ENDIF}
implementation
{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}
procedure TfrmMain.Button1Click(Sender: PObj);
var serial,machinecode:integer;
begin
machinecode:=str2int(editbox1.text);
serial:=machinecode xor ($111a7b-(machinecode mod $a));
editbox2.text:=int2str(serial);
end;
end.
//MCK&KOL的作用使得完成的注册机只有30K大小,i like it!.
- 标 题:Flash转屏保1.0注册机(delphi版) (1千字)
- 作 者:小楼
- 时 间:2001-10-14 14:56:47
- 链 接:http://bbs.pediy.com