bcoder

1月 012014
 

1. Java使用正则表达式检查Email地址的有效性

 

阅读全文
11月 232013
 

  在Windows Vista、 Windows7以上Windows系统中可以支持大图标显示了,但是Delphi编译出来的程序却只能显示32×32的图标,这使Delphi编译的程序看起来很不专业。下面就把Delphi编译大图标程序的方法分享一下。   要想使用大图标编译,首先要准备一个256×256的图标图片。   使用图标编辑软件,如IconWorkshop打开你的 ico文件,新建一个256×256的真彩色图标,将你的图片文件导入到该图标中。保存图标后,将图标文件拷贝到你的工程目录下,假设为mainico.ico,然后在你的工程下面建一个mainico.rc

阅读全文
11月 162013
 

  有的时候我们要实现一个悬浮窗口,并使该窗口一直显示在桌面的工作区内。即整个窗口要一直显示在屏幕上,不能超出屏幕的上下左右边缘。此功能的实现也不难,我们需要自己写代码来响应窗口的WM_WINDOWPOSCHANGING消息,话不多说,详细代码如下供参考:   新建一个工程,并把下面代码拷贝到工程中,运行……

 

阅读全文
11月 072013
 

  假设我们有一个全局的数组对象,当我们点一下按钮时使数组当前索引加1,然后执行相应的操作,那么我们需要使用if语句来判断当前索引是否已经越界,如果越界则把当前索引置为0。如下所示

  那么不用if语句,我们也可以通过一个简单的运算来避免使用if语句,如下:

 

阅读全文
 Posted by on 2013-11-07
11月 062013
 

  在Delphi中下拉框条目的宽度总是和下拉框的宽度一样,当里面的项目太长时就不能显示全了。其实Windows提供了一个CB_SETDROPPEDWIDTH消息可能定义下拉框窗口的宽度,不知道为什么Delphi一直没有添加这个功能。使用方法很简单,如下:   SendMessage(cboIndustry.Handle, CB_SETDROPPEDWIDTH, 200, 0); 第一个参数是下拉框组件的句柄 第二个参数是要发送的消息 第三个参数是要设定的宽度 第四个参数未使用

阅读全文
11月 022013
 

  我们知道,Delphi2010建立的工程,在Windows7或者Vista下编译后,界面效果都是标准的Windows7或者Vista效果。但是当我们把一个Delphi7的程序升级到Delphi2010后,编译的程序仍旧是比较老的效果。那么我们如何才能让升级的源码也使用Windows7的界面效果呢,具体操作步骤如下:   在Delphi2010中打开工程,打开菜单Project->Options,选择树形菜单中的Application,将复合框Enable runtime themes选中,确定并重新编译就可以了。   注意: 如果使用了UAC.res,那么即使做了上述操作,界面还是经

阅读全文
 Posted by on 2013-11-02
10月 252013
 

Delphi version: Delphi2010 1. SysUtils //检查当前系统版本,如果当前系统版本大于等于AMajor.AMinor则返回true function CheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean; //获取文件版本 function GetFileVersion(const AFileName: string): Cardinal; //将字符串转换为大写 function UpperCase(const S: string): string; overload; functi

阅读全文
 Posted by on 2013-10-25
10月 092013
 

  当我们在卸载程序或者更新安装程序时,我们需要先将运行的进程杀掉再进行安装或者卸载程序。NSIS本身并没有提供杀掉进程的脚本,但是有一个插件可以实现此功能,插件的名字叫KillProcDLL,插件下载地址为http://nsis.sourceforge.net/KillProcDLL_plug-in。插件的用法请参考插件页面所提供的内容。下面给出在安装包中的代码:

.onInit为安装程序启动时触发的事件,此处杀掉进程是防止更新安装时不能更新主程序的问题 .onInstFailed为安装失败时触发的事件,此处启动程序文件是为防

阅读全文
10月 072013
 

  刚才在开发的时候,突然不能改变工程的图标和版本等信息了,把dof文件删除掉也不起作用。后来想起来,原来在前几天把工程默认的引用的资源文件的代码去掉了{$R *.res},打开Project->View Source后,将{$R *.res}加到里面就可以了。如下所示:

Delphi版本:Delphi7

阅读全文
 Posted by on 2013-10-07
9月 172013
 

Delphi中读取Outlook的数据,代码如下:

 Form代码:

相关链接:  Microsoft Outlook Constants AppointmentItem Object Members Items Members (Outlook) Folders Property Attachment Object Members Application Object Members ContactItem Object Members

阅读全文