RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数

delphi GetProcessHandleAsName 获取进程句柄

functionCreateProcessWithLogonW(lpUsername,//user'snamelpDomain,//user'sdomainlpPassword:PWideChar;//user'spassworddwLogonFlags:dword;//logonoptionlpApplicationName:PWideChar;
类别:函数 标签: 作者:admin 日期:2018-01-16 13.01.22

Delphi转换 TColor 到 HTML 颜色串

//转换TColor到HTML颜色串functionColorToHtml(color:TColor):string;varRgbColor:TColorRef;beginRgbColor:=ColorToRGB(color);Result:=Format('#%.2x%.2x%.2x',[GetRValue(RgbColor),GetGValue(RgbColor),GetBValu…
类别:函数 标签: 作者:admin 日期:2018-01-15 19.53.49

delphi公用函数

{*******************************************************}{}{Delphi公用函数单元}{&n...
类别:函数 标签: 作者:admin 日期:2018-01-14 10.56.29

delphi urlencode与urldecode

functionUrlDecode(constAStr:AnsiString):AnsiString;varSp,Rp,Cp:PAnsiChar;s:AnsiString;beginSetLength(Result,Length(AStr));Sp:=PAnsiChar(AStr);Rp:=PAnsiChar(Result);Cp:=Sp;whileSp^<>#0dobegincaseSp^of'…
类别:函数 标签: 作者:admin 日期:2018-01-08 20.58.22

delphi RandomFrom 随机返回字符串数组AValues中的一个元素

首部functionRandomFrom(constAValues:arrayofstring):string;overload;$[StrUtils.pas功能随机返回字符串数组AValues中的一个元素说明之前建议执行Randomize参考functionSystem.Random例子Randomize;Edit3.Text:=Ra…
类别:函数 标签: 作者:admin 日期:2018-01-07 15.04.06

delphi SHGetFileInfo函数获取任何文件大图标

为了实现在vista和更高版本的系统中能够获取任何文件的大图标(48*48像素,甚至256*256像素),真是找了很多资料,最终经过朋友的帮忙找到了实现方法。<pstyle="box-sizing:border-box;margin-top:0px;margin-bottom…
类别:函数 标签: 作者:admin 日期:2018-01-05 22.27.09

delphi Is1251Char

functionIs1251Char(Char:WideChar):Boolean;//alittletrick:setcannotcontainnumbersover255butUTF-8encoded//Russiancharactershavecodesgreaterthan1000andsomeofthemare//greaterthan8000constCharset1000=[25,2…
类别:函数 标签: 作者:admin 日期:2018-01-03 23.33.46

delphi HTTPEncode

functionHTTPEncode(constAStr:WideString):WideString;//basedonhttp://marc.durdin.net/2012/07/indy-tiduri-pathencode-urlencode-and-paramsencode-and-more/constHexMap:WideString='0123456789ABCDEF';functio…
类别:函数 标签: 作者:admin 日期:2018-01-03 23.30.40

delphi中关键字inherited

A是基类、B继承A、C继承B、若C函数中有inherited方法,则C中所调用的以及实现的就是全为B中的,同样,B中若有inherited,则B中调用的全为A中的。代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Varian…
类别:函数 标签: 作者:admin 日期:2018-01-02 12.35.27

delphi Application.ProcessMessage作用

运行一个非常耗时的循环,那么在这个循环结束前,程序可能不会响应任何事件,按钮没有反应,程序设置无法绘制窗体,看上去就如同死了一样,这有时不是很方便,例如于终止循环的机会都没有了,又不想使用多线程时,这时…
类别:函数 标签: 作者:admin 日期:2018-01-01 20.14.15

delphi 顺序查找与二分查找

delphi中字符串与16进制、10进制转换函数
类别:函数 标签: 作者:admin 日期:2018-01-01 20.04.48

Delphi实现进制转化(2进制,8进制,10进制,16进制)

functionIntToHex(Value:Integer;Digits:Integer):string;overload;functionIntToHex(Value:Int64;Digits:Integer):string;overload;unituConversion;interfaceusesSysUtils,Math;type<...
类别:函数 标签: 作者:admin 日期:2018-01-01 20.03.41

DELPHI中使用Tlist类的简单分析

我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子,希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。代码的功能是使用指针和Tlist来生…
类别:函数 标签: 作者:admin 日期:2017-12-31 00.00.28

Delphi 通得进程ID获取主窗口句柄

只知道进程ID,获取主窗口句柄的方法如下:通过EnumWindows枚举所有窗口使用GetWindowThreadProcessID,通过窗口句柄获取进程ID比便获取的进程ID与当前已知的进程ID,判断是否为需要的窗口代码如下:functionGetHwnd…
类别:函数 标签: 作者:admin 日期:2017-12-23 20.36.55

Delphi不占CPU的延时函数

functionDelay(MaxWaitTime:Cardinal):Boolean;varI:Integer;varWaitedTime:Cardinal;beginWaitedTime:=0;while(WaitedTimebeginSleepEx(100,False);Inc(WaitedTime,100);...
类别:函数 标签: 作者:admin 日期:2017-03-28 23.13.54

delphi 判断网络链接文件是否存在

functionCheckUrlFileExists(constaURL:string):Boolean;//usesWinInet;varhSession,hfile:hInternet;dwindex,dwcodelen:dword;dwcode:array[1..20]ofChar;res:PChar;url:string;begin ...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.33.37

delphi url取得文件名

functionGetFileNameFromURL(constaURL:string):string;varts:TStrings;begin//从url取得文件名ts:=TStringList.create;tryts.Delimiter:='/';ts.DelimitedText:=aURL;if&n...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.33.07

XE7提示找不到SharedActivityContext函数

XE7提示找不到SharedActivityContext函数,加入以下单元引用:{$IFDEFANDROID}{$IFCompilerVersion>=27.0}//>=XE6<s...
类别:函数 标签: 作者:admin 日期:2017-03-21 22.15.49

delphi [函数] Unicode 检查字符串是否含中文字

//字串含中文byAonefunctionIsIncludeChinese(Str:String):Boolean;vari:Integer;UCS4Str:UCS4String;beginResult:=False;UCS4Str:=UnicodeStringToUCS4String(Str);fori:=Low(UCS4Str)toHigh(UCS4Str)doif((UCS4Str…
类别:函数 标签: 作者:admin 日期:2017-03-13 18.02.37

delphi 比较版本号

感谢竹子写的比较版本号的方法。比较版本号functionTFServerMain.CompareVersion(constFileVersion1,FileVersion2:String):Integer;varItems1:TStrings;Items2:TStrings;i:Integer;e1:Integer;e2:Integer;beginResul…
类别:函数 标签: 作者:admin 日期:2017-03-06 18.59.05