Delphi 7
openschema
越过圈栏的野猪
展开
-
DELPHI7 如何在编写可视组件中传递一个事件到组件外部?
在编写组件中,常常有一些事件,其控件是在组件内,而其中的某一事件的代码要在组件外写。以一个按钮的OnClick事件为例:在类中设置如下代码:private FOnClick: TNotifyEvent; procedure ClickTransfer(Sender: TObject); { TNotifyEvent }publish property OnClick:原创 2004-08-31 22:41:00 · 1845 阅读 · 0 评论 -
Delphi 7 在程序中直接执行SQL脚本文件
在处理MSDE一些操作中。需要执行一些SQL脚本。有的是从SQLServer 2000中生成的SQL为后缀的脚本。在MSDE中没有企业管理器,操作都是在程序中完成的。所以用以下函数来执行SQL脚本。//执行一个SQL角本文件,文件只能是ANSI编码的。//如果文件是UNICODE编码的话,则会乱码。var s:string; sqltext : string; sqlfile : TextF原创 2004-10-27 20:11:00 · 5987 阅读 · 4 评论 -
Delphi7 从子线程中发送消息到主线程触发事件执行
在对数据库的操作时,有时要用一个子线程来进行后台的数据操作。比如说数据备份,转档什么的。在主窗口还能同是进行其它操作。而有时后台每处理一个数据文件,要向主窗口发送消息,让主窗口实时显示处理进度在窗口上(可视),同时进行日志处理等。我用的是下面的方法:[1]用到的API函数:RegisterWindowsMessage----------------------函数功能:该函数定义一个新的窗口消息,原创 2004-11-08 17:11:00 · 7350 阅读 · 0 评论 -
NT服务程序中对注册表中HKey_Current_User读取的问题
我做了一个NT服务程序,要读取注册表中的一些信息,我将信息写入HKey_Current_User下的SoftWare键下的一个自建的子目录下。形如:HKEY_CURRENT_USER/Software/xxxxx有一个单独的参数设置程序。可是我发现自已在设置程序中设置的参数,在Windows系统服务中读不出来。后来发现其原因如下。系统服务运行在不同的用户帐户下,HKey_Current_User是原创 2004-11-23 10:33:00 · 3241 阅读 · 2 评论