- 博客(13)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 Delphi下的接口编程
基于Delphi的接口编程入门 为什么使用接口？ 举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务
2012-03-31 10:29:30
868
转载 Delphi下的DLL编程
深入Delphi下的DLL编程作者：岑心引言相信有些计算机知识的朋友都应该听说过“DLL”。尤其是那些使用过windows操作系统的人，都应该有过多次重装系统的“悲惨”经历——无论再怎样小心，没有驱动损坏，没有病毒侵扰，仍然在使用（安装）了一段时间软件后，发现windows系统越来越庞大，操作越来越慢，还不时的出现曾经能使用的软件无法使用的情况，导致最终不得不重装系统。这种情况常常是由
2012-03-31 10:19:44
1662
转载 Delphi下的COM编程
Delphi下的COM编程作者：岑心 Delphi通过向导可以非常迅速和方便的直接建立实现COM对象的代码，但是整个COM实现的过程被完全的封装，甚至没有VCL那么结构清晰可见。 一个没有C 下COM开发经验甚至没有接触过COM开发的Delphi程序员，也能够很容易的按照教程设计一个接口，但是，恐怕深入一想，连生成的代码代表何种意义，哪些能够定制都不清楚。前几期 “DELPHI下
2012-03-31 10:12:54
3877
原创 Delphi之ADO操作Access
unit frm_Ado;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB;type TForm_Ado = class(TForm) ADOConnection1: TADOCon
2012-03-30 11:26:54
7257
1
原创 工作总结
①添加皮肤 控件：ExpressBars / TdxRibbon Dev Express / TdxSkinController / 双击TdxRibbon属性：ShowTabGroups falseShowTabHeaders falseSupport... True页面：uses dxRibbonForm,dxskinsdxribbonpainter;
2012-03-30 10:49:03
1896
转载 消息钩子函数入门篇
Windows系统是建立在事件驱动的机制上的，说穿了就是整个系统都是通过消息的传递来实现的。而钩子是Windows系统中非常重要的系统接口，用它可以截获并处理送给其他应用程序的消息，来完成普通应用程序难以实现的功能。钩子可以监视系统或进程中的各种事件消息，截获发往目标窗口的消息并进行处理。这样，我们就可以在系统中安装自定义的钩子，监视系统中特定事件的发生，完成特定的功能，比如截获键盘、鼠标的输入，
2012-03-28 11:04:01
530
原创 事件对象
你创建一个线程时，其实那个线程是一个循环，不是只运行一次的。这样就带来了一个问题，在那个死循环里要找到合适的条件退出那个死循环， 那么是怎么样实现它的呢？在Windows里往往是采用事件的方式，当然还可以采用其它的方式。 在这里先介绍采用事件的方式来通知从线程运行函数退出来，它的实现原理是这样，在那个死循环里不断地使用WaitForSingleObject函数来检查事件是否满足，
2012-03-27 12:25:01
682
原创 Delphi程序最小化到托盘
unit frm_CloseOption;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, cxGraphics, cxControls, cxLookAndF
2012-03-20 12:22:33
1073
原创 MySql学习笔记
Delphi调用存储过程：procedure TLoadRecords.AddAppLog(appname, webaddr, ip, mac: string; var userid, opration: integer);var MyQuery1: TSQLDataSet; SqlText: string;begin Form_MySql.GetMyQuery(My
2012-03-15 09:19:52
627
原创 NT服务程序
请先看一个例子：unit AppService;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ShellAPI, ExtCtrls; { TService是一个封装NT服务程序的类， 它的对象包含对服务的装卸、注册、取消
2012-03-14 11:35:57
2495
原创 虚拟桌面
后台调用外部程序的完美实现（delphi）最近在做的一个软件，其中有一部分功能需要调用其它的软件来完成，而那个软件只有可执行文件，根本没有源代码，幸好，我要做的事不难，只需要在我的程序启动后，将那个软件打开，在需要的时候，对其中的一个文本矿设置一些文字，再点击一个按钮就可以了。说到这里，相信你也有了对该功能的一些初步设想了，没错，其基本思路就是：1）调用CreateProcess（）打
2012-03-14 11:21:47
1287
原创 Api实现Socket
program Project1;{$APPTYPE CONSOLE}uses windows, Messages, SysUtils, Variants, Classes, Winsock2, ChartoUnicode in 'ChartoUnicode.pas';type Runner = function(sc: TSoc
2012-03-14 09:48:03
887
原创 Delphi学习笔记一
声明:GetDesktopWindow: HWND; {无参数; 返回桌面窗口的句柄}举例:var h: HWND;begin h := GetDesktopWindow; ShowMessage(IntToStr(h));end;Application.MainForm句柄---------------------------------
2012-03-14 09:09:45
2819
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人