一个简单的拼图游戏
摘要：自己从来没有做过Flash，看看下面这点代码，可是我费了好久长做出来的，发现ActionScript 3.0与平时其他语言开发工具有很大差别。 MCXY是一些切割好的图片小格，在Firerwork中用web切片工具生成。(为了图像质量问题，费了好多脑细胞，最后发现原来很简单!). 很简单，能改进的还有好多… //记录缺省的空格var CurCol=1;var CurRow=3; ...
阅读全文
posted @
2009-03-20 07:49
garfieldtom
阅读(315)
推荐(0) 编辑
Indy中判断邮件来源
摘要：首先从TidMessage中获得邮件的头信息： strHeader:=aIdMessage.Headers.text; 然后，用正则表达式取出Received: vReceiveIP:=GetNeedStrByPerlReg(strHeader,'(Received:)(.+)(])'); 再取出X-Originating-IP： vOriIP:=GetNeedStrByPerlReg(strHe...
阅读全文
posted @
2009-03-16 15:39
garfieldtom
阅读(263)
推荐(0) 编辑
辛辛苦苦，写了个INNO的安装脚本
摘要：;参考了许多脚本例子，这个脚本包含了大部分可能用到设置。我的这个安装程序中用到了安装数据库、写INI、定制安装等 ; 脚本用 Inno Setup 脚本向导生成。; 查阅文档获取创建 INNO SETUP 脚本文件详细资料! [Setup]AppName=天翔纤维检验管理系统AppVerName=天翔纤维检验管理系统 V2008AppPublisher=青岛天翔软件有限公司AppPublish...
阅读全文
posted @
2009-03-13 19:51
garfieldtom
阅读(1334)
推荐(0) 编辑
根据照片文件的EXIF信息来分目录整理
摘要：unit FfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,FileCtrl, ComCtrls; type TfrmMain = class(TForm) edtSrcDir...
阅读全文
posted @
2009-03-11 17:35
garfieldtom
阅读(964)
推荐(0) 编辑
