端午节经典短信

该日志由 samool 发表于 2006-05-31 9:36 AM

我那天在自己动手包粽子,眼看就要包好了,可是我找了半天也不知道包点什么肉进去的好。直到我突然看见了你,我决定就包点猪头肉进去吧。
 
生日的时候,我会送你一个蛋糕;中秋的时候,我会送你一盒月饼,端午节来了,我送你一粒糯米,希望你把它种下去,用心呵护,等待收获我的祝福吧。

» 阅读该日志全文...

端午节快乐!!

该日志由 samool 发表于 2006-05-31 9:33 AM

端午节是我国的传统节日,端午节又称端节、蒲节、重五节、端阳节、天中节、天长节、五月节、女娲节、龙子节、诗人节、女儿节、娃娃节、龙船节。香包节、沐兰节、白赏节、解粽节、粽包节,时在农历五月初五(唯温州地区为纪念明代忠臣刘景下狱而定在五月初四),并有“小端阳”(五月初五)与“大端阳”(五月十五)之分。

百度的Logo已经换成端午节了,真好看。

 

» 阅读该日志全文...

校验文件大小

该日志由 samool 发表于 2006-05-29 10:02 AM

实现对EXE文件的校验字节大小,防止程序被修改或中病毒.

const
//先定义文件的大小

     ThisFileSize = 12429824 ;

function  CheckThisFileSizeok:boolean;
var vv:ofstruct;
    i,len1:integer;
begin
  Result :=false;
  i:=openfile(pchar(Application.exename),vv,0);
  len1:=GetFileSize(i,nil);
  _lclose(i);
  if len1=ThisFileSize then
    Result :=true;
end;

QQ手机短信传情V3.01

该日志由 samool 发表于 2006-05-28 7:01 PM

本软件采用QQ的自写短信服务发送手机短信。请在软件消息管理里设置多条消息内容,号码管理里选择多个号码可以循环发送消息!

使用方法: 请先打开短消息发送窗口, 输入你的QQ号(必须已经绑定手机或开通短信超人),打开消息窗口后, 就可以群发手机短消息了, 软件自带有用户手机号码导入导出工具. 

关于注册:请留下您的联系方式和机器码,我会在一个工作日内为您发送注册码.谢谢您的支持!

» 阅读该日志全文...

该日志标签: qq

Delphi中三种延时方法

该日志由 samool 发表于 2006-05-28 3:27 PM

在Delphi中,通常可以用以下三种方法来实现程序的延时,即TTtimer控件,Sleep函数,GetTickCount函数。但是其精度是各不相同的。

» 阅读该日志全文...

世界上最时尚的女人

该日志由 samool 发表于 2006-05-27 10:29 PM

由老外制作的电脑特技图。

图片附件(缩略图):
1.jpg

大小: 29.06 K
尺寸: 255 x 380
浏览: 536 次
点击打开新窗口浏览全图

图片附件(缩略图):
2.jpg

大小: 29.98 K
尺寸: 255 x 380
浏览: 555 次
点击打开新窗口浏览全图

图片附件(缩略图):
3.jpg

大小: 30.41 K
尺寸: 255 x 380
浏览: 546 次
点击打开新窗口浏览全图

图片附件(缩略图):
4.jpg

大小: 29.43 K
尺寸: 255 x 380
浏览: 574 次
点击打开新窗口浏览全图

图片附件(缩略图):
5.jpg

大小: 28.51 K
尺寸: 255 x 380
浏览: 554 次
点击打开新窗口浏览全图

图片附件(缩略图):
6.jpg

大小: 27.03 K
尺寸: 255 x 380
浏览: 533 次
点击打开新窗口浏览全图

图片附件(缩略图):
7.jpg

大小: 26.03 K
尺寸: 255 x 380
浏览: 545 次
点击打开新窗口浏览全图

图片附件(缩略图):
8.jpg

大小: 27.26 K
尺寸: 255 x 380
浏览: 544 次
点击打开新窗口浏览全图

图片附件:
9.jpg

大小: 29.91 K
尺寸: 336 x 500
浏览: 554 次
点击打开新窗口浏览全图

图片附件:
10.jpg

大小: 27.77 K
尺寸: 336 x 500
浏览: 549 次
点击打开新窗口浏览全图

图片附件(缩略图):
11.jpg

大小: 30.38 K
尺寸: 255 x 380
浏览: 552 次
点击打开新窗口浏览全图

图片附件:
12.jpg

大小: 27.14 K
尺寸: 336 x 500
浏览: 569 次
点击打开新窗口浏览全图

图片附件:
13.jpg

大小: 28.63 K
尺寸: 336 x 500
浏览: 558 次
点击打开新窗口浏览全图

SplitString分隔函数

该日志由 samool 发表于 2006-05-27 6:00 PM

function SplitString(Source, Deli: string ): TStringList;
var
    EndOfCurrentString: byte;
    StringList:TStringList;
begin
    StringList:=TStringList.Create;
    while Pos(Deli, Source)>0 do
    begin
        EndOfCurrentString := Pos(Deli, Source);
        StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
        Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
    end;
    Result := StringList;
    StringList.Add(source);
end;

该日志标签: 函数

调出QQ2006beta2阻止群消息选项

该日志由 samool 发表于 2006-05-26 9:37 AM

我Q上面群多,有些群只是有空的时候才聊,平时就屏蔽着呵呵,不然人多很乱。不知为什么TX在beta2屏蔽了这个阻止选项,很不方便,现在我们把它调出来,经测试还是有效的,看来功能还是可以用,选项没了而已。希望对需要的朋友有所帮助!

» 阅读该日志全文...

该日志标签: qq

老子今天早上绝食

该日志由 samool 发表于 2006-05-22 9:21 AM

今天5:30就起床了,本来打算早点起来看一下书的,碰了一下那该死的女人,得到的结果是非常残忍的,噗,不由分说给了我一鹰爪,手臂上马上留下了一条痕迹,我靠,是我不对,你睡觉的时候,我不敢来打扰你,但你。。。。也不应该那样对我撒,你的手法简至可以用三个字来形容:“凶,狠,辣”。

就说前天晚上吧,我在电脑上写东西,你猛地过来用手卡住我的嘴,还来亲我,卡的我很难受,我还要跟你亲,撞你妈的鬼哦,我就推了一你一下,换来的结果是,拍一声,打在我肩上,老子当时真想猛踢你狗日两脚。

跟你计较吧,说我小气。不跟你计较吧,弄死不得改掉你的坏毛病,老子遇得到哦。MD。。。。。

WinRAR 意外收获

该日志由 samool 发表于 2006-05-21 7:26 AM

昨天想把RAR格式的压缩软件转换为ISO文件,在网上找了很久,都没有相应的软件。

把WINRAR软件各个菜单翻遍了,听说网上有人说,WINRAR自带有这个功能,我怎么没有找到呢?

里边有一个格式转换功能,但是始终没有没成功,郁闷,好像是把其它压缩文件转换为RAR或ZIP格式。

要是那位兄弟发现了类型的软件,麻烦告诉我一声啊。

---------------------------------------------------

开场白完了,该说正题了,偶意外发现WINRAR带有多种皮肤,用WINRAR也有好几年了,但是从来没有注意过,平时也就用两个功能,压缩文件,解压文件,自带的其它功能就很少留意了。

其实上WINRAR不仅可以生成自解压文件,生成安装文件,支持的压缩格式非常多,比老牌的WINZIP功能好像要大多了,它还有好几种比较漂亮的皮肤,见附件贴图。

不过更换皮肤后,右键功能键上,左边的图标有结走样,估计跟支持色彩有关系吧。

图片附件:
a.jpg

大小: 27.53 K
尺寸: 281 x 288
浏览: 438 次
点击打开新窗口浏览全图

图片附件:
b.jpg

大小: 30.99 K
尺寸: 281 x 288
浏览: 442 次
点击打开新窗口浏览全图

图片附件:
c.jpg

大小: 51.18 K
尺寸: 281 x 288
浏览: 460 次
点击打开新窗口浏览全图

图片附件:
1.jpg

大小: 94.7 K
尺寸: 500 x 224
浏览: 462 次
点击打开新窗口浏览全图

图片附件:
2.jpg

大小: 15.2 K
尺寸: 401 x 100
浏览: 436 次
点击打开新窗口浏览全图

图片附件:
3.jpg

大小: 16.05 K
尺寸: 414 x 99
浏览: 428 次
点击打开新窗口浏览全图

图片附件:
4.jpg

大小: 15.32 K
尺寸: 431 x 104
浏览: 400 次
点击打开新窗口浏览全图

图片附件(缩略图):
5.jpg

大小: 17.13 K
尺寸: 380 x 75
浏览: 408 次
点击打开新窗口浏览全图

图片附件:
6.jpg

大小: 17.26 K
尺寸: 414 x 100
浏览: 431 次
点击打开新窗口浏览全图

图片附件:
7.jpg

大小: 15.09 K
尺寸: 419 x 99
浏览: 410 次
点击打开新窗口浏览全图

图片附件:
8.jpg

大小: 17.75 K
尺寸: 397 x 100
浏览: 457 次
点击打开新窗口浏览全图

图片附件:
9.jpg

大小: 16.07 K
尺寸: 401 x 99
浏览: 415 次
点击打开新窗口浏览全图

该日志标签: winrar

Total:30123Next ›