浅议Delphi中的Windows API调用

2016年07月27日 50 阅读

浅议Delphi中的Windows API调用2012-01-15 天极网 yanghq2000为了能在Windows下快速开发应用程序，Delphi对Windows的控件都进行了很好的封装，这样，我们就可以直接使用Delphi的控件来编写程序，而不用使用格式、调用控制复杂的API来进行开发，为我们节省了大量的开发时间。可有时候这些控件解决不了我们的问题，这个时候我们就不得不使用API了，也就是Windows的应用程序接口。这样，问题也就随之而来了，API...

Delphi中如何取得系统支持的颜色数

2016年07月27日 47 阅读

Delphi中如何取得系统支持的颜色数2012-01-15 monkey 在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常漂亮，但是到了一台只支持16色的计算机上，程序变得非常难看。这就需要得到系统的颜色数。Delphi中如何取得系统的颜色数呢？下面的程序就解决这个问题。function GetSysColorNum:Integer;Var ScreenDc:HDC; ...

一个查看内存数据的Delphi函数

2016年07月27日 51 阅读

一个查看内存数据的Delphi函数2012-01-15 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton; pro...

用Delphi编写可被其它语言调用的DLL

2016年07月27日 50 阅读

用Delphi编写可被其它语言调用的DLL2012-01-15在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作安装程序），但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。为此，我曾利用Delphi编制了可提供文件拷贝过程的动态连接库Copy.dll,其输出过程为CopyFile。由于DLL具有简化编程、运行速度快等诸多优点，且不受编程语言的限制，用Delphi编写的Copf.dll同样被VB、VC等面向对象语言进行静态...

DELPHI中实现百叶窗效果

2016年07月27日 49 阅读

DELPHI中实现百叶窗效果2012-01-15所谓百叶窗效果,就是将画布分成若干个区域,各区域以渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一个显示特效的过程实例：首先，新建一个工程，在窗体上添加两个IMAGE控件，在控件IMAGE1的PICTURE属性中导入一幅位图（*.bmp），并将IMAGE1的VISIBLE属性设为FALSE。然后，在代码窗口中定义如下过程：procedure TForm1.fan;var r1:Trect;list,r,...

Delphi中记录数组存出到文件和从文件导入

2016年07月27日 57 阅读

Delphi中记录数组存出到文件和从文件导入2012-01-15 博客园 涂磊Type TRecord = Record Name: String[10]; address: String[50]; End; TRecordFile = File Of TRecord;Var Form1: TForm1; aRecordFile: TRecordFile; aRecordFileName: String = "c:PersonS.d...

关于delphi for php对中文支持不好的问题

2016年07月27日 77 阅读

关于delphi for php对中文支持不好的问题2012-01-15看到好多人在试用了delphi for php之后匆忙做出delphi for php对中文支持不好的结论，这是很不负责任的，作为一个国际化的公司，当然不可能犯这种低级错误，下面我就说明一下问题的原因以及解决办法。我们先写一个简单的php程序，输出一段话，先用英文输出，然后改成中文，代码如下：$this->Label1->Caption="This is a Test By...

教你在Delphi7中实现停靠功能

2016年07月27日 59 阅读

教你在Delphi7中实现停靠功能2012-01-30我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我给大家介绍一种能够凑乎用的简便方法。1、在主窗口中添加四个Panel和四个Splitter，设置对齐上下左右四边。2、设定四个Panel的属性DockSite属性为True。3、左右Panel添加 OnDo...

Delphi for PHP试用

2016年07月27日 45 阅读

Delphi for PHP试用2012-01-30盼了N天了，每天都上CodeGear的网站上看，终于，今天下午看到Delphi for PHP试用版可以下载了，于是迫不及待地下载到我的机器上，准备第一时间试用。下载速度比较慢，大概57K左右的速度吧,下载后文件名d4php_trial.exe，大小是30,165,616字节（28M）,用时8分29秒。在BDN登录后才能下载，下载前会提示给注册时的邮箱中发送一封试用版注册License的邮件，附件中有一个...

Delphi中用一个Byte数表示8个复选框的选择状态

2016年07月27日 47 阅读

Delphi中用一个Byte数表示8个复选框的选择状态2012-01-30 博客园 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst;type TForm1 = class（TForm） CheckListBox1: TChe...

如何在Delphi中维护COM+的状态信息

2016年07月27日 47 阅读

如何在Delphi中维护COM+的状态信息2012-01-30 稻草 问题是这样开始的：我需要写一个COM+，用来连接不同的数据库。有的朋友可能会说，应该为每个数据库建立一个COM+，但是在我的系统里不能这样。我们在做一个教育辅助系统，用户是学校（当然包括学校里的老师、学生、家长），我们为每个学校建一个数据库，这些数据库的结构是相同。当然我们还有管理数据库，用于协调各数据库的关系。每增加一个学校用户，我们就激活一个新的数据库给客户使用，也就是说，我们的数据...

Delphi中图片的居中、拉伸与平铺

2016年07月27日 55 阅读

Delphi中图片的居中、拉伸与平铺2012-01-30 博客园 万一问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std...

在Delphi 7中修改Form1: TForm1;

2016年07月27日 52 阅读

在Delphi 7中修改Form1: TForm1;2012-01-30 博客园 涂磊1]选中对应的Form,2]在Object Inspector里的Name修改,3]回车，即可.Delphi的IDE对应做了以下五处修改：{===================在.dpr===================}program Project1;uses Forms, Unit1 in "Unit1.pas" {DFGSDGF};//Unit1 in ...

如何让VC和Delphi程序只运行一个实例

2016年07月27日 46 阅读

如何让VC和Delphi程序只运行一个实例2012-01-30 sixth 有些时候，我们需要我们的程序只运行一个实例，笔者自己作程序也有这样的情况，于是自已探究一番。忙活一阵后，总算小有收获，不敢独享，在天极发表出来，供大家参考。既然是从根本上解决问题，对于Windows程序而言，就从WinMain函数入口，这是因为在VC中使用SDK的方式编写程序最透明，并且WinMain是作为VC编译器生成EXE文件的默认入口函数。WinMain的函数原型：int W...

Delphi中对比时间：CompareDateTime、CompareDate、CompareTime函数

2016年07月27日 51 阅读

Delphi中对比时间：CompareDateTime、CompareDate、CompareTime函数2012-01-30 博客园 万一CompareDateTime、CompareDate、CompareTime 都是对比时间的函数;CompareDate 只对比日期部分, CompareTime 之对比时间部分.两个参数都是 TDateTime 类型, 如果:前者 = 后者: 返回 0;前者 > 后者: 返回 1;前者 < 后者: 返回...

Delphi中提取时间成分

2016年07月27日 47 阅读

Delphi中提取时间成分2012-01-30 博客园 万一DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf函数用于提取时间成分它们的参数都是一个 TDateTime,DateOf、TimeOf 分别提取日期与时间, 并返回 TDateTime 类型;YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、Seco...

金手指Delphi中MsComm控件的安装使用

2016年07月27日 50 阅读

金手指Delphi中MsComm控件的安装使用2012-01-30 王金涛 Delphi 具有功能强大、简便易用和代码执行速度快等特点，是全球公认的快速应用开发工具技术的先驱者。但是在对串口通信的控制上Delphi的帮助文档和其他书籍中很少提及，这恰恰又是在开发应用系统时会经常遇到的问题。用过VB的程序员都知道 VB的MSComm通信控件具有丰富的与串口通信密切相关的属性及事件，提供了一系列标准通信命令的接口，可以用它创建全双工的、事件驱动的、高效实用的通...

Delphi中分解时间：DecodeDate、DecodeTime ... DecodeDateTime函数

2016年07月27日 54 阅读

Delphi中分解时间：DecodeDate、DecodeTime ... DecodeDateTime函数2012-01-30 博客园 万一SysUtils.DecodeDate（）;SysUtils.DecodeDateFully（）;SysUtils.DecodeTime（）;DateUtils.DecodeDateTime（）;DateUtils.DecodeDateDay（）;DateUtils.DecodeDateWeek（）;DateUtil...

Delphi中区域设置 ID （LCID） 表, 及获取方法

2016年07月27日 48 阅读

Delphi中区域设置 ID （LCID） 表, 及获取方法2012-01-30 博客园 万一中国的区域设置 ID 是 2052, 如果经常打开微软软件的安装目录应该经常见到.获取很简单, 有现成的 API 函数: GetThreadLocale.begin ShowMessage（IntToStr（GetThreadLocale））; //2052end;区域设置 ID （LCID） 表区域设置描述简写十六进制值十进制值南非荷兰语af0x04361078...

Delphi中把窗体客户区图像保存到文件或剪切板

2016年07月27日 51 阅读

Delphi中把窗体客户区图像保存到文件或剪切板2012-01-30 博客园 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2: TButton;...