么意思博客

做商业软件，难免需要绑定硬件号！绑定硬盘序列号，网卡序列号？但这序列号都可以更改！唯一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);

先添加个常量，如下： {$R *.dfm} const cShellDesktop ='Desktop'; 再添加个函数： function TForm1.GetShellFolder(const folder: string): string; //获取桌面 const cWin32='SOFTWARE\Microsoft\Windows\CurrentVersion'; cSHellPrefix = '\Explorer\Shell Folders'; var r:TRegistry; begin ...

procedure TForm1.Button3Click(Sender: TObject); var sFolder: IShellFolder; pIDList: PITEMIDLIST; fullPath: WideString; Len: integer; buffer: array [0 .. MAX_PATH] of Char; pchEaten, Attributes: ULONG; begin Len := GetTempPathW(0, nil); SetLength(fullPath, Len); GetTe ...