Delphi pSafeArray与TBytes类型转换

虽然Delphi有这自己独特的语言优势，但是跟其他语言加解密互通时，处理显得尤为麻烦。比如3DES加解密，网上…

delphi 得到IP地址最后一个点后面的值

functionExtractIP(constS:String):String;varI,L,K1,K2:Integer;ip:string;beginip:=S+'.';L:=Length(ip);…

Delphi 常用函数记录

//判断是否是数字functionIsNumeric(sDestStr:string):Boolean;//简写多余汉字functionSimplifyWord(sWord:…

delphi BytesToFile

procedureBytesToFile(bData:TByteArray;sPath:string);varhFile:THandle;dWritten:DWORD;beginhFile:=Crea…

delphi CopyFileProgressBar 拷贝文件显示进度条

CopyFileProgressBar(pwidechar(ListBox1.Items.Strings[I]),pwidechar(NewDir+'\'+ExtractFileName(ListBo…

delphi 分离网址链接最后一层文件目录

functionEx****actURLName(constS:S****ing):S****ing;varI,L,K1,K2:Integer;beginL:=Length(S);result:=&#…

delphi 分享三个随机字符串

usesmath;functionGenID:String;varb,x:byte;beginResult:='{';Randomize;forb:=1to8dobeginifRandom(100)>…

delphi 读取流信息

functionReadString(TheStream:TStream;Length:integer):string;varn:longword;t:byte;beginSetLength(resu…

delphi ValidateName 过滤特殊字符

functionValidateName(n:string):string;varbanned,res:string;i,j:integer;beginres:=n;banned:='\/:*?"<>…

delphi GetHref 获取<a href="链接"></a>中href的数据

functionGetHref(href,s:s****ing):s****ing;varp:integer;beginp:=pos(href,s);if(p=0)or(s[Length(href)+…

Delphi中CoInitialize作用

CoInitialize(LPVOID)，它将以特定参数调用CoInitializeEx，为当前单元初始化COM库，并标记协同模式为单线程…

delphi MailURLMayBeInvalid 检测邮箱地址有效性

functionMailURLMayBeInvalid(consts:string):Boolean;vari:Integer;c:string;begin//'',ä,ö,ü,…

delphi StringToWideString WideStringToString

{:ConvertsUnicodestringtoAnsistringusingspecifiedcodepage.@paramwsUnicodestring.@paramcodePageCodepa…

delphi 获取/设置桌面窗口样式的Delphi代码

varhWin:HWND;lStyle:LongInt;lExStyle:LongInt;beginhWin:=65632;//$00010060//获取和设置该窗口的样式lSt…

delphi HTML document接口获取网页中所有图片

usesmshtml,ActiveX,COMObj,IdHTTP,idURI;{....}procedureGetImageLinks(AURL:string;AList:TStrings);varI…

Delphi 获取外部程序句柄与发送消息

源码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialog…

DELPHI GetWindowText - 获取窗口标题

//声明:GetWindowText(hWnd:HWND;{窗口句柄}lpString:PChar;{接收文本的缓冲区的指针}nMaxCount:Integer{指…

delphi ReadProcessMemory 输入进程ID 输入读取地址

procedureTForm6.Button1Click(Sender:TObject);varGhwnd:HWND;ProcID:Cardinal;Process:THandle;lpBaseAdd…

delphi XE Berlin ReadProcessMemory WriteProcessMemory

delphiXEBerlinReadProcessMemoryWriteProcessMemorydelphiXE，Berlin[dcc32Error]Unit9.pas(93):E2033Type…

delphi IsIPAdress 非正则表达式验证IP的方法

functionIsIPAdress(constValue:String):Boolean;varn,x,i:Integer;Posi:Array[1..4]ofInteger;Oktet:Array…