Component-Install packages...-Add... 安装 dcloffice2k140.bpl 即可。 （dcloffice2k140.bpl 位于 C:\Program Files\Embarcadero\RAD Studio\7.0\bin）...
说到网页采集，通常大家以为到网上偷数据，然后把到收集到的数据挂到自己网上去。其实也可以将采集到的数据做为公司的参考，或把收集的数据跟自己公司的业务做对比等。 目前网...
Delphi2007编译的时候去掉GetVersionExA(@VI)中的@ function GetWindowsVersionString: AnsiString; var VI: TOSVersionInfoA; begin VI.dwOSVersionInfoSize : = SizeOf(TOSVersionInfoA); if GetVersionExA(@VI) then with VI do Result : = Trim(...
IMEI校验码算法： (1).将偶数位数字分别乘以2，分别计算个位数和十位数之和 (2).将奇数位数字相加，再加上上一步算得的值 (3).如果得出的数个位是0则校验位为0，否则为10减去个位数...
procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end; function RunDOS(const CommandLine: string): string;var HRead, HWrite: THandle; StartInfo: TStartupInfo; ProceInfo: TProcessInfo...
function GetRandStr(len : Integer; lowercase : Boolean = True; num : Boolean = True; uppercase : Boolean = False) : string;const upperStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; lowerStr = 'abcdefghijklmnopqrstuvwxyz'; numStr = '0123456789';var sou...
本代码源自delphibox unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, shellapi, StdCtrls, Registry, StrUtils; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Butto...
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash...
实现原理是启动一个应用程序，通过ProcessID得到窗体句柄，然后对其设定父窗体句柄为本程序某控件句柄(本例是窗体内一个Panel的句柄)，这样就达成了内嵌的效果。 本文实现的是内嵌...
1、定义一个全局变量保存显示到标题栏的字符串 var strScroll:Widestring = 'Beyond - 海阔天空.mp3 - 千千静听 '; 2、添加一个Timer控件，设置属性 Interval := 250; //这个步长和千千静听是一样的。...