WM_CTLCOLORSTATIC = $0138;当一个静态控件将要被绘制时发送此消息给它的父窗口;通过响应这条消息,所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色WM_MOUSEFIRST = $0200;WM_MOUSEMOVE = $0200;// 移动鼠标WM...
[delphi]view plaincopyprint?unitService;interfaceusesWindows,Messages,SysUtils,Winsvc,Dialogs;functionStartServices(ConstSvrName:String):Boolean;funct...
WinowsXP 的桌面的是在系统盘上,一但系统瘫痪需要重新安装系统时,总得记得去备份桌面的重要文件,如果一不小心忘记备份就重装系统的话,那些重要文件就一去不复返了。其实我们可以把桌面放到其它盘目录里,如D盘上,这样再重新系统时就不用备份桌面上的重要文件了,也不怕桌面文件因重装系统丢失了。其具体操....
概述 Quartz.NET是一个开源的作业调度框架,非常适合在平时的工作中,定时轮询数据库同步,定时邮件通知,定时处理数据等。 Quartz.NET允许开发人员根据时间间隔(或天)来调度作业。它实现了作业和触发器的多对多关系,还能把多个作业与不同的触发器关联。整合了 Quartz.NET的应用程序可...
uses RichEdit;{将RichEdit1的内容保存为图片,此函数也适合于RxRichEdit,即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerI...
核心提示:使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是...
strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径 ShellExecute(0, nil, PChar('explorer.exe'),PChar('/e, ' + ....
方法一:[delphi]view plaincopyprint?usesComObj,DateUtils;functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:strin...
在看 API 文档时, 我们经常见到 GetLastError; 它可以返回操作后系统给的提示.但 GetLastError 返回的只是一个信息代码, 如何返回对应的具体信息呢?FormatMessage 可以, 但这个函数太复杂了; 可以用 SysErrorMessage 代替它.举例:[Delp...
[delphi]view plaincopyprint?procedureTfrmMain.btnSendClick(Sender:TObject);varhCalc,h1:Cardinal;beginWinExec('calc',SW_SHOWNORMAL);//运行计算器hCalc:=FindW...
最近去sourceforge瞎转悠,突然发了一个组件,关于Delphi下Html5的canvas的组件,大概浏览了一下源码,竟然是纯粹的Pascal代码,也就说完全的Delphi代码。不敢独享,现在上传到我的博客上以供有需要的人下载研究。点击下载此文件(21.49 KB)http://www.lsw...
在开发应用程序时往往需要获取当前系统时间。尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题。 在《融会贯通--Delphi4.0实战技巧》(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论。 该书第一种.....
方法一:使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。uses SHDocVw, MSHtml;function GetUserAgent: string;varDoc: IHTMLDocument2;win: IHTMLWindow2;wb: TWebBrowser;...
{**********************************************************************API函数 AnimateWindow 使用:函数功能:窗体显示和隐藏时产生特殊的动画效果;可以产生两种类型的动画效果:滚动动画 和 滑动动画函数原型:BOO...
//汉字URL编码函数function URLEncode(const S: string; const InQueryString: Boolean): string;varIdx: Integer; //逐个字符循环直至字符串结束beginResult := '';for Idx := 1 to...
一、概述锁是操作系统为实现数据共享而提供的一种安全机制,它使得不同的应用程序,不同的计算机之间可以安全有效地共享和交换数据。要保证安全有效地操作共享数据,必须在相应的操作前判断锁的类型,然后才能确定数据是否可读或可写,从而为开发出健壮的程序提供切实依据。 同样,在Windows中,文件可以共享模式打...
typeTForm1 = class(TForm)private{ Private declarations }public{ Public declarations }procedure CreateParams(var Params: TCreateParams); override;end;v...