David I谈Delphi现状与未来
概要
自去年CodeGear被英巴卡迪诺（Embarcadero Technologies）收购后，大家对Delphi的未来发展非常关心。近日，InfoQ中文站有幸对David I进行了独家专访，以了解更多关于Delphi的相关信息。
个人简介
David Intersimone（简称David I），英巴卡迪诺负责开发者关系的副总裁和首席宣传官（Chief Evangelist）。David负责与开发者社区开展密切合作，确保CodeGear的战略产品规划满足广大开发者与开发团队的需求。
David本人是一位出色的软件开发者，充分发挥了开发者在软件业界的重要性。23年前，David作为产品服务经理加入到Borland，曾经担任过工程/开发类职位，创建了开发者关系部门。在加入Borland之前，他曾是Softsel Computer Products（即现在的Merisel公司）的产品服务经理。
David拥有加利福尼亚州州立理工大学的计算机科学学士学位。
David您好，很高兴接受InfoQ中文站的采访，您能给我们介绍一下您自己吗？
好的，我是David Intersimone，大家都叫我David I，现在是负责开发者项目和关系的副总裁、首席布道师，帮助全世界的开发者使用我们公司的各种产品。
您来中国已经很多次了，这次来给大家带来了什么新鲜的信息呢？
我这次过来主要是来访问一些客户，还有学生，想听一下他们对我们的产品有什么反馈，并且向他们宣传一下，因为过去我们是Borland和JBuilder，而现在我们是英巴卡迪诺公司，我们主要关注的是数据库工具和开发工具，还有其他的程序，编程的工具。我还有一个任务就是向我们的客户介绍一下我们的一个新产品叫All Access，如果我们的用户加入这个All Access项目就会得到一个通用注册号，可以使用17到18个产品，因为我们的客户可能是做编程，也可能是架构师，也可能是数据库的管理员，所以用户仍然可以选择分别购买我们的工具，也可以购买All access整个的工具包。
我们的读者大多数都是架构师和高级的开发人员，您想和我们分享那些资讯呢？
在英巴卡迪诺的公司旗下，我们有针对数据库架构师的产品名为ER Studio，用作数据库的建模工作，对于应用开发人员，我们也有IDE系列的UML模型来帮助他们进行开发。所以我们整个的数据库应用和数据库的设计方面都有相关的产品，可以帮助我们的用户，给他们提供最好的工具，来适应多框架以及多操作系统的环境。
您负责的EDN（Embarcadero Developer Network，http://edn.embarcadero.com/）上个月进行了改版，新版的EDN较以前做了哪些改进呢？
首先我们所做的是
相关文档：
procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <&g ......
转:DELPHI 中如何提升进程令牌
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代� ......
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
最近一阵子，总是被一个莫名其妙的bug困扰。自己写的ocx（.net2005）在delphi7中调用，明明没有释放主动释放过内存，却被连续释放了两次。结果，程序退出时就down掉了。当然，这是在debug模式下才会出现，但是exe跑的时候会莫名奇妙的down掉，而且出错往往指向ocx，我想一定和ocx的调用有关。
上网找了purify，boundscheck ......
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形 ......
