么意思博客

前几天写程序，做文件大小效验防止破解。 虽然不能完全防止破解，但还是可以防一些菜鸟们的。 获取文件大小代码如下： function TForm1.GetFileSizess(const FileName: string): Int64; var SR: TSearchRec; begin Result := -1; if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then ...

第一大类：有序数据类型 1、整数类型 integer 2、布尔类型 boolean 第二大类：实数类型 1、浮点类型 double 2、时间类型 tdatetime now 返回当前日期及时间 date 返回当前日期 time 返回当前时间 formatdatetime 按特定格式将日期和时间值转换为字符串 strtodate 将带有日期信息的字符串转换为tdatetime的类型 strtotim ...

做商业软件，难免需要绑定硬件号！绑定硬盘序列号，网卡序列号？但这序列号都可以更改！唯一CPU序列号是不可更改的，所以我采取获取CPU序列号的形式来做授权。这样可以很大程度限制修改序列号的方式来破解！ function TBeiAn.getCpuid : string; var _eax, _ebx, _ecx, _edx: Longword; s, s1, s2: string; b ...

以前用数组来生成随机字符串，工作效率太低了！今天无意间发现了个函数，效果还不错。 function GetRandStr(len : Integer; lowercase : Boolean = True; num : Boolean = True; uppercase : Boolean = true) : string; const upperStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; lowerStr = 'abcdefghijklmnopqrstuvwx ...

我们先看下下面文本内容： ;-------------以下内容不可删除--------------- ;[其他列表配置] ;E系统地址=http://www.baidu.com ;封挂列表地址=http://www.baidu.com/fenggua.txt ;补丁列表地址=http://www.baidu.com/up.txt ;套装列表地址=http://www.baidu.com/taozhuang.txt ;内挂过滤列表=http://www.baidu.co ...

XP和Win7的日期格式在系统默认中并不一致，比如在XP下默认是’2013-1-1’，在win7下却变成了’2013/1/1’。 办法1—替换法： procedure TForm1.Button1Click(Sender: TObject); var strSetTime:string; begin edit1.Text:=datetostr(now); strSetTime:=edit1.Text ; if pos('-', strSetTime) > 0 then strSetTime ...

首先在uses里加入如下代码： uses ComObj, DateUtils; 后在程序里添加如下函数： function GetInternetTime: string; var XmlHttp: OleVariant; datetxt: string; DateLst: TStringList; mon: string; timeGMT, GetNetTime: TDateTime; s: string; begin XmlHttp := CreateOleObject('Micro ...

先在窗体中放入一个“IdHTTPServer1”控件，后在其“CommandGet”事件里写代码： procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var LFilename: string; LPathname: string; begin LFilename := ARequestIn ...

为了这段代码，泡了几天的CSDN论坛。好不容易啊，做个记号。以后拿来就可以用！ 有时候直接调用.exe程序，进程里看着不爽。所以改了后缀，然后调用。 var si: TStartupInfo; pi: TProcessInformation; begin ZeroMemory(@si, SizeOf(si)); ZeroMemory(@Pi, SizeOf(pi)); si.cb := SizeOf(si); if Cr ...

窗体透明在create事件中添加如下代码：

TransparentColor:=True;
TransparentColorValue:=25;
Color:=Form1.TransparentColorValue;

刷新代码直接使用就可以了，如下：

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL);