校验文件大小

该日志由 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;

Delphi中三种延时方法

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

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

» 阅读该日志全文...

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;

该日志标签: 函数

windows消息大全

该日志由 samool 发表于 2006-05-16 11:48 AM

消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的,这个记录中包含了消息的类型以及其他信息。例如,对于单击鼠标所产生的消息来说,这个记录中包含了单击鼠标时的坐标。

» 阅读该日志全文...

该日志标签: windows, 消息

Inc函数和Dec函数的用法

该日志由 samool 发表于 2006-05-16 11:15 AM

inc有两种用法:
一个是inc(integer),就是加1

比如
i := 100;
inc(i);
就是i变为101

 
另一个是inc(integer,integer)就是加n
比如
i:=100;
inc(i,50);
就是i变成150

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

Dec是递减函数
i:=100;
dec(i);
i就变成99了,如果是dec(i,30)的话,那么i=100-30=70

Sql2000图像存取技术

该日志由 samool 发表于 2006-05-12 3:33 PM

在Delphi中,如何将图像存储在SQL2000数据库中

» 阅读该日志全文...

该日志标签: sql, 图像, 存取, 技术

初学者的小手册:Transact_SQL

该日志由 samool 发表于 2006-05-11 11:15 AM

   SELECT --从数据库表中检索数据行和列
   INSERT --向数据库表添加新数据行
   DELETE --从数据库表中删除数据行
   UPDATE --更新数据库表中的数据

» 阅读该日志全文...

该日志标签: sql

SQL高手篇:精妙SQL语句介绍

该日志由 samool 发表于 2006-05-11 11:09 AM

几个精妙的SQL语句

» 阅读该日志全文...

该日志标签: sql

delphi中常用的字符处理函数

该日志由 samool 发表于 2006-05-08 10:44 AM

全是常用的字符处理函数,收集起来,以备后用。:)

» 阅读该日志全文...

该日志标签: delphi, 字符, 函数

用存储过程 Sp_rename 修改表名称列名

该日志由 samool 发表于 2006-05-06 4:56 PM

Sp_rename 存储过程可以修改当前数据库中用户对象的名称,如表、列、索引、存储过程等待。

» 阅读该日志全文...

该日志标签: 存储过程, sp,