虽然Delphi有这自己独特的语言优势,但是跟其他语言加解密互通时,处理显得尤为麻烦。比如3DES加解密,网上…
functionExtractIP(constS:String):String;varI,L,K1,K2:Integer;ip:string;beginip:=S+'.';L:=Length(ip);…
//判断是否是数字functionIsNumeric(sDestStr:string):Boolean;//简写多余汉字functionSimplifyWord(sWord:…
procedureBytesToFile(bData:TByteArray;sPath:string);varhFile:THandle;dWritten:DWORD;beginhFile:=Crea…
CopyFileProgressBar(pwidechar(ListBox1.Items.Strings[I]),pwidechar(NewDir+'\'+ExtractFileName(ListBo…
functionEx****actURLName(constS:S****ing):S****ing;varI,L,K1,K2:Integer;beginL:=Length(S);result:=…
usesmath;functionGenID:String;varb,x:byte;beginResult:='{';Randomize;forb:=1to8dobeginifRandom(100)>…
functionReadString(TheStream:TStream;Length:integer):string;varn:longword;t:byte;beginSetLength(resu…
functionValidateName(n:string):string;varbanned,res:string;i,j:integer;beginres:=n;banned:='\/:*?"<>…
functionGetHref(href,s:s****ing):s****ing;varp:integer;beginp:=pos(href,s);if(p=0)or(s[Length(href)+…
CoInitialize(LPVOID),它将以特定参数调用CoInitializeEx,为当前单元初始化COM库,并标记协同模式为单线程…
functionMailURLMayBeInvalid(consts:string):Boolean;vari:Integer;c:string;begin//'',ä,ö,ü,…
{:ConvertsUnicodestringtoAnsistringusingspecifiedcodepage.@paramwsUnicodestring.@paramcodePageCodepa…
varhWin:HWND;lStyle:LongInt;lExStyle:LongInt;beginhWin:=65632;//$00010060//获取和设置该窗口的样式lSt…
usesmshtml,ActiveX,COMObj,IdHTTP,idURI;{....}procedureGetImageLinks(AURL:string;AList:TStrings);varI…
源码unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialog…
//声明:GetWindowText(hWnd:HWND;{窗口句柄}lpString:PChar;{接收文本的缓冲区的指针}nMaxCount:Integer{指…
procedureTForm6.Button1Click(Sender:TObject);varGhwnd:HWND;ProcID:Cardinal;Process:THandle;lpBaseAdd…
delphiXEBerlinReadProcessMemoryWriteProcessMemorydelphiXE,Berlin[dcc32Error]Unit9.pas(93):E2033Type…
functionIsIPAdress(constValue:String):Boolean;varn,x,i:Integer;Posi:Array[1..4]ofInteger;Oktet:Array…