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

Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息

GetSystemMe****ics(nIndex:Integer{参数,详见下表}):Integer;举例-获取屏幕分辨率:varcx,cy:Integer;begin{通过GetSystemMe****ics函数获取屏幕分辨率}cx:=GetSystemMe****ics(SM_CXSCREEN);cy:=GetSystemMe****ics…
类别:函数 标签:GetSystemMe****ics 作者:admin 日期:2013-01-20 21.49.40

delphi 公用函数

使用方法,uses本单元——>使用如:Pub.MsgBox('你好,欢迎使用本公用函数!');ShowMessage(Pub.PathExeDir);//////////////////////以下源码开始{$DEFINEDelphi6}//D5下不要此句unitPubFuncUnit;interfaceusesWindows…
类别:函数 标签: 作者:admin 日期:2013-01-09 12.44.15

delphi 通过机器名读取IP地址的代码

functionprocedureTForm1.nametoip(name:string):string;varWSAData:TWSAData;HostEnt:PHostEnt;beginresult:='';WSAStartup(2,WSAData);HostEnt:=gethostbyname(PChar(name));ifHostEnt<>nilthenbeginwithHostEnt^d…
类别:函数 标签: 作者:admin 日期:2013-01-06 09.57.37

delphi 不用控件用函数实现发Email

useswindows,messages,winsock,sysutils;{$R*.RES}constCRLF=#13#10;exename:pchar='邮箱信使';varthd:array[1..1000]ofinteger;tid:array[1..1000]ofdword;faint,hMutex,mcount,speed,newtime,oldtime,num,count,er…
类别:函数 标签: 作者:admin 日期:2013-01-06 09.47.12

delphi 把字节数显示成kb或gb的函数

经常用到把字节数显示成kb或gb,函数如下functionFormatByteSize(constbytes:Longint):string;constB=1;//byteKB=1024*B;//kilobyteMB=1024*KB;//megabyteGB=1024*MB;//gigabytebeginifbytes>GBthenresult:=FormatFl…
类别:函数 标签: 作者:admin 日期:2012-12-28 15.31.12

delphi 详解Variant 的相关函数

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.VarArrayDimCount()函数返回Variant数组的维数,4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Va…
类别:函数 标签:Variant 作者:admin 日期:2012-12-28 15.28.07

delphi ExtCtrls.Frame3D

delphiExtCtrls.Frame3DusesExtCtrls;procedureTForm1.FormPaint(Sender:TObject);varR1,R2:TRect;beginR1:=Rect(10,10,150,50);Frame3D(Canvas,R1,clBlack,clSilver,1);R2:=Bounds(10,80,140,40);Frame3D(Canvas,R2…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.37.00

delphi CreateMessageDialog

delphiCreateMessageDialogunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;B...
类别:函数 标签: 作者:admin 日期:2012-05-21 11.36.04

delphi X 的 Y 次方

delphiX的Y次方varx,y,z:Real;beginx:=2;y:=3;{使用Math.Power}z:=Math.Power(x,y);ShowMessage(FloatToStr(z));//8{不想usesMath,就用System.Exp、System.Ln}z:=&nb...
类别:函数 标签: 作者:admin 日期:2012-05-21 11.35.17

delphi 在 API 函数中使用 PChar 参数的几种方法

在API函数中使用PChar参数的几种方法//以GetWindowsDirectory为例:{以静态数组做缓冲区}procedureTForm1.Button1Click(Sender:TObject);varbuf:array[0..MAX_PATH-1]ofChar;beginGetWindowsDirectory(buf,SizeOf(buf…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.32.03

delphi Int64 与 Currency

Int64与CurrencyprocedureTForm1.Button1Click(Sender:TObject);varc:Currency;i:Int64absolutec;beginc:=1234.5678;ShowMessage(IntToStr(i));//12345678end;procedureTForm1.Button2Click(Sender:TObject);vari:In…
类别:函数 标签:Int64 Currency 作者:admin 日期:2012-05-21 11.31.10

delphi获取 斐波那契数列 的函数

delphi获取"斐波那契数列"的函数{斐波那契数列:1、2、3、5、8、13、21、34、55、89、144...等于前两数之和}{昂纳多·斐波那契(LeonardoFibonacci,1170-1240,意大利数学家)}usesTypes;{参数2是要获取的总数}p…
类别:函数 标签: 作者:admin 日期:2012-05-21 11.29.09

delphi 获取程序自身大小的函数

获取程序自身大小的函数functionGetExeSize:Int64;var</s...
类别:函数 标签: 作者:admin 日期:2011-11-18 22.45.48

Delphi判断IP地址是否正确

functionIsValidIP(Str:string):Boolean;vari,PartCount{用多少段,以点号分开}:Integer;Part:string;begin
类别:函数 标签: 作者:admin 日期:2011-08-25 09.14.01

一些不常用的且功能相当有用的DELPHI函数

1、functionComparastr(consts1,s2:string):Integer;比较两字符串,区别大小写;注:由于此函数操作是基于每个条件的8位序数值,所以返回的结果,如果s1<s2就返回小于0如果相等就为0返回就大于零;众所周知,DELPHI语…
类别:函数 标签: 作者:admin 日期:2011-08-24 21.20.00

delphi转换长文件名函数 GetShortName

//-----------------------------------------------------------functionGetShortName(sLongName:string):string;//转换长文件名varsShortName:string;...
类别:函数 标签: 作者:admin 日期:2011-08-24 21.01.53

delphi中Format函数的用法

delphi中Format函数的用法Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:functionFormat(constFormat:string;constArg…
类别:函数 标签: 作者:admin 日期:2011-08-22 16.23.38

Delphi之Format函数

Format是一个很常用方法,并且使用它可以实现众多格式的转变.因此学会使用Format是非常重要的.首先看它的声明:functionFormat(constFormat:string;constArgs:arrayofconst):string;overload;事实上Format方法有两个种…
类别:函数 标签: 作者:admin 日期:2011-08-22 16.21.53

delphi 实现从下载链接提取文件名的函数

functionEx****actUrlFileName(constUrl:s****ing):s****ing;var//www.delphitop.coms****:s****ing;begins****:=reverses****ing(Url);s****:=copy(s****,1,pos('/',s****)-1);s****:=reverses****ing(s***…
类别:函数 标签: 作者:admin 日期:2011-08-20 12.24.27

Delphi Program Name、Process ID、Window Handle、Process Handle 的转换函数

//GetProcessIDByProgramName(IncludePathorNotInclude)functionGetPIDByProgramName(constAPName:string):THandle;//GetWindowHandleByProgramName(IncludePathorNotInclude)functionGetHWndByProgramName(constAPN…
类别:函数 标签: 作者:admin 日期:2011-08-19 20.59.28