蝴蝶屏保ElectricIrisButterflyScreenSaver...注册 (200分)

网上下的Electric Iris Butterfly Screensaver 1.0.0.1 注册机没用，我儿子很喜欢这个，
200大洋
[h3][red]不是蝴蝶花园3D屏保[/red][/h3]
请不要再给如下答案：
Name : Tom McConnell
Personal Info: wsinvestments@bazarov.net
Serial Number: GG8SS-WHSFM-FA5QW-UFFF8-WJR5B

Name : Tom McConnell
Personal Info: wsinvestments@bazarov.net
Serial Number: GG8SS-WHSFM-FA5QW-UFFF8-WJR5B

蝴蝶花园3D屏保
name: 任意添
info: 任意添
Sn: g7bgq-nc2j9-j5fa9-j2jj7-efaac

各位搞错了，不是蝴蝶花园3D屏保，是这里下的，see here
http://soft.flymoon.com/list.asp?id=429

我找下一大把
教你找
去
http://www.google.com/
输入 “ Electric Iris Butterfly ScreenSaver + crack ”
一大把都符合

很久前的模仿之作.部分功能未完成.
http://tty.yyun.net/lovejingtao/ocx/ScreensaverMaker.rar

google我还能没去过？！
根本没用啊！

to jingtao,
我在win2000下跑你的程序，异常，能公布source吗，放久了也发霉

异常?奇怪.本来就是在2K下开发的啊.
是不是你的电脑没有安装FLASH的OCX?另外,里面用到的GIF控件有点小问题.不过好像解决了啊.
代码要找找看了.

//关注。

楼主，打开时要密码，密码是多少。下载了打不开啊。mltyj2001@163.net
注册机是：
Name : Tom McConnell
Personal Info: wsinvestments@bazarov.net
Serial Number: GG8SS-WHSFM-FA5QW-UFFF8-WJR5B
不知有没有用，没用过。

http://soft.flymoon.com/list.asp?id=429下的,解压密码: www.flymoon.com

up

{---------------------------单元说明---------------------------------------
名称:FileMark.pas
描述:写入和读出文件大小及标记模块
功能:将原始文件的大小写入文件,在自身大小改变后仍然可取得原始大小
依赖:无
作者与版权所有:陈经韬,lovejingtao@21cn.com,http://lovejingtao.126.com
最后修改日期:2002,10,26
修改历史:无
---------------------------------------------------------------------------}
unit FileMark;
interface
uses SysUtils,Classes;
function My_IsOriginFile:Boolean;
function My_WriteFileOriginSize(const FileName:String):Boolean;
function My_ReadFileOriginSize(const FileName:String):integer;//返回-1说明失败
function My_ReadSelfOriginSize:integer;//返回-1说明失败
implementation
const OldMark='This';
NewMark='Size';
//-------------------private function---------------------------
function GetFileSize(const FileName: string): LongInt;
var
SearchRec: TSearchRec;
begin
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
Result := SearchRec.Size
else
Result := 0;
end;
function FindSubStrInFile(const SubStr,FileName: string;const PackSize:integer=1024):integer;
var
fs : TFileStream;
TempStr:String;
begin
Result:=-1;//返回-1说明失败
if GetFileSize(FileName)<PackSize then
Exit;
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
try
SetLength(TempStr, PackSize);
fs.Read(TempStr[1], PackSize);
//Move(fs.Memory^,TempStr[1], PackSize);
finally
end;
fs.Free;
Result:=Pred(Pos(SubStr,TempStr));
end;
//--------------------public function--------------------------------
function My_IsOriginFile:Boolean;
begin
if (FindSubStrInFile(OldMark,Paramstr(0))<>-1) then
Result:=True else
Result:=False;
end;
function My_WriteFileOriginSize(const FileName:String):Boolean;
var
TempStream:TFileStream;
FileSize:integer;
begin
Result:=True;
if ((FindSubStrInFile(OldMark,FileName)=-1) and (FindSubStrInFile(NewMark,FileName)<>-1)) then
Exit;
TempStream:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareDenyNone);
try
TempStream.Seek(FindSubStrInFile(OldMark,FileName),soFrombegin
ning);
TempStream.Write(NewMark,Length(NewMark));
FileSize:=GetFileSize(FileName);
TempStream.Write(FileSize,SizeOf(FileSize));
finally
TempStream.Free;
end;
Result:=True;
end;
function My_ReadFileOriginSize(const FileName:String):integer;//返回-1说明失败
var
fs : TFileStream;
begin
Result:=-1;
if ((FindSubStrInFile(OldMark,FileName)<>-1) and (FindSubStrInFile(NewMark,FileName)=-1)) then
begin
Result:=GetFileSize(FileName);
Exit;
end;
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
fs.Seek(FindSubStrInFile(NewMark,FileName)+Length(NewMark),soFrombegin
ning);
fs.Read(Result,SizeOf(Result));
fs.Free;
end;
function My_ReadSelfOriginSize:integer;
begin
Result:=My_ReadFileOriginSize(Paramstr(0));
end;

end.
unit FlashSizeUnit;
interface
uses
Windows,Sysutils,Classes;
function GetFlashMovieWidth(const FileName: String ): Integer;//取得Flash图像原始宽度
function GetFlashMovieHeight(const FileName: String ): Integer;//取得Flash图像原始高度
implementation
{private code}
function GetSysDir: String;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>'/' then
Result := Result + '/';
end;

function LoadHeader( const FileName: String ): String;
Var
fs: TFileStream;
begin
// Returns the piece of header in a swf movie
// (that contains the width and height)
// called 'filename' as a string
fs:= TFilestream.Create( FileName, fmOpenRead or fmShareDenyNone);
try
SetLength(Result, 17);
fs.Seek(8, soFrombegin
ning);
fs.Readbuffer( Result[1], Length( result ));
finally
fs.free
end;
end;
function IsBitSet(const val: byte;
const TheBit: byte):
boolean;
begin
// Checks to see if bit 'TheBit' in 'val' is a 1
// returns True if so
result := (val and (1 shl TheBit)) <> 0;
end;
function BitInString(const HeaderS: String;
const TheBit:
byte): boolean;
var
a,b,c: byte;
begin
// This returns True if bit 'TheBit' in string 'HeaderS'
// is a 1
a:=TheBit shr 3;
b:=a shl 3;
inc(a);
c:=TheBit-b;
result:=IsBitSet(ord(HeaderS[a]),7-c);
end;
function BitLenth(headers: string):byte;
begin
// This returns how many bits long each width and
// height record is
result := ord(HeaderS[1]) shr 3;
end;
function BitOn(const val: Integer;
const TheBit: byte):
Integer;
begin
// Turn bit 'TheBit' in 'val' to a 1
result := val or (1 shl TheBit);
end;
{public code}

function GetFlashMovieWidth(const FileName: String ): Integer;
var
i,a,b: byte;
HeaderS:String;
begin
// This returns the width of a swf movie as an integer.
// 'HeaderS' is a string that holds the piece of the header
// which was loaded earlier with LoadHeader
HeaderS:=LoadHeader(FileName);
result:=0;
a:=BitLenth(HeaderS);
b:=4 + a shl 1;
for I := 4+a to bdo
begin
if BitInString(HeaderS,I) then
result:=BitOn(result,a);
dec(a);
end;
// The width and height are actually stored as TWIPS and
// need to be divided by 20 to know what they are in pixels
result:=result div 20;
end;
function GetFlashMovieHeight(const FileName: String ): Integer;
var
i,a,b: byte;
HeaderS:String;
begin
// This returns the height of a swf movie as an integer.
// 'HeaderS' is a string that holds the piece of the header
// which was loaded earlier with LoadHeader
HeaderS:=LoadHeader(FileName);
result:=0;
a:=BitLenth(HeaderS);
b:=4 + a shl 2;
for I := 4 + a * 3 to bdo
begin
if BitInString(HeaderS,I) then
result:=BitOn(result,a);
dec(a);
end;
// The width and height are actually stored as TWIPS and
// need to be divided by 20 to know what they are in pixels
result:=result div 20;
end;

end.

下了玩玩去

唔咳哂

关注

Name : Tom McConnell
Personal Info: wsinvestments@bazarov.net
Serial Number: GG8SS-WHSFM-FA5QW-UFFF8-WJR5B

都有孩子了，幸福啊～～～

注册了不行阿