procedure StopRising;var hWindow: HWND; lpClassName: .gif' /[0..20] of char;begin hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST); repeat GetClassName(hWindow, lpClassName, 20); lpC... [阅读全文]

来源:eNet硅谷动力 　用户是否可以关闭操作系统是通过对WM_QueryEndSession处理来实现为此首先需要在中添加WM_QueryEndSession消息处理声明: 　　 　　procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession; 　　它响应代码如下: 　　 　　procedur... [阅读全文]

[文章信息] 作者: kiol 时间: 2004-09-24 出处: csdn 责任编辑: 方舟 [文章导读] 能把个对象引用强制转换成这个引用类型没有声明实现接口 [正文] 　　陷阱、接口类型转换陷阱 　　a) 不能把个对象引用强制转换成这个引用类型没有声明实现接口即使这个对象实际实现了这个接口(呵呵优点拗口) 　　b) 当把个对象变量赋给个接... [阅读全文]

为什么使用接口？ 　　举个例子好了:有这样个卖票服务电影院可以卖票歌剧院可以卖票客运站也可以卖票那么我们是否需要把电影院、、歌剧院和客运站都设计成个类架构以提供卖票服务？要知道连经理人都可以卖票很显然不适合把经理人也包括到卖票服务继承架构中我们需要只是个共通卖票服务于是卖票服务是个接口电影院、歌剧院什么只要都遵循这样个服务定义就能很好地相互交互和沟通(如果须要话) 　　如何在Delphi中使用... [阅读全文]

本例子介绍在运行过程中禁止用户关闭操作系统 　　用户是否可以关闭操作系统是通过对WM_QueryEndSession处理来实现为此首先需要在中添加WM_QueryEndSession消息处理声明: procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession; 　　它响应代码如下: procedure TF... [阅读全文]

文/刘福旺 　　给单位开发软件Software涉及打印模块我感到颇有兴趣就拿来其中个小功能模块和读者共享下面以打印在纸张矩形框内为例简单介绍: 　　要求: 　　单击[打印]按钮把Memo内容最多分 3行打印出来每行最多能容纳22个 3号字 限定汉字上限为50个汉字 　　编程思路: 　　用LineTo和MoveTo画矩形框根据Memo组件内容长度用Copy把它分割为1到3个子串在矩形框内... [阅读全文]

宁波吉联计算机技术有限公司研发部 徐荣胜 XML(eXtensible Markup Language可扩展标志语言)在近几年信息类杂志、网站WebSite上可谓是最抢眼词大大小小信息产品都争相和它搭上关系唯恐赶不及这辆快车有着良好口碑宝蓝 (Borland)系列开发平台也不例外从6.0版开始就集成了XML组件包因其使用MSXMLDom解析器相比于此前广泛应用XMLParser解析器MSXM... [阅读全文]

★中共河南省济源市委党校耿百强 摘要:本文主要介绍了用Delphi编程实现快捷方式思路方法其中主要讨论了Delphi中COM编程思路方法、快捷方式实现思路方法并给出了个例子 关键词:DelphiCOM编程快捷方式 Windows系统提供了快捷方式来简化用户对应用执行尽量使得用户不和应用具体位置挂上关系大大方便了用户操作所以在Windows系统下大多安装般都提供创建组和快捷方式但你有没有想过快捷... [阅读全文]

希望对喜欢编程朋友有帮助最近在整理所有手机编程可能会出书交广州华莹出版 unit PanasonicGD; erfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RXClock, ExtCtrls, RXCtrls, Gauges, OoMisc, AdPort,... [阅读全文]

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('file.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现例如在PANEL上LABEL: var xpanel,... [阅读全文]

()初级应用篇: 资源文件般为扩展名为res文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带资源编译工具BRCC32.EXE(般位于\Delphi\BIN目录下),我们完全可以做出跟VC样效果文件来 资源文件最大好处是能将些在必要时才文件跟可执行文件起编译,生成个文件.这样做最大好处就是使外部文件免遭破坏.例如在条中你要临时幅... [阅读全文]

Delphi是种具有强大功能编程语言用它可以轻松创建任何种数据库应用将3DS动画文件FLC分解后按先后顺序存于Delphi提供Graphics数据类型中通过读取Graphics类型图形数据在窗口中实现动画效果 　　1．将DOS分解图片存于数据库中 　　(1)进入3DSKeyFrame模块在Output选项中选择．BMP类型文件将图形文件全部存于同目录中(例如目录c:pic文件可为f0001．b... [阅读全文]

Delphi3开始有了TWebBrowser构件不过那时是以ActiveXControl控件形式出现而且需要自己引入在其后4.0和5.0中它就在封装好shdocvw.dll的后作为Internet构件组的出现在构件面板上了常常听到有人骂Delphi帮助做得极差这次TWebBrowser又是Microsoft东东自然不会好到哪里去虽说MSD... [阅读全文]

Delphi下接口编程 　 　 Delphi下接口编程学习笔记 1.1 为什么使用接口？举个例子好了:有这样个卖票服务电影院可以卖票歌剧院可以卖票客运站也可以卖票那么我们是否需要把电影院、、歌剧院和客运站都设计成个类架构以提供卖票服务？要知道连经理人都可以卖票很显然不适合把经理人也包括到卖票服务继承... [阅读全文]

你电脑有没有摄像头？看到别人用... [阅读全文]

在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！新建一个工程，命名为PingGUI.dpr，窗口命名为“frmPing”，加入如下组件： lstReplies: TListBox; ICMP: TIdIcmpClient; Panel1: TPanel; btnPing: TButton; edtHost: TEdit; spnPing: TSp... [阅读全文]

编写目本规范标准定义为在编写过程中涉及到文件和编码风格本规范标准以 Delphi 语言为标准制定.项目文件组织在Delphi中按照项目为单位来组织文件在个典型项目中包括:项目文件(.DRP文件)含有工程主Pascal源代码；单元文件(.PAS文件)项目中每个窗体Pascal源文件包含该窗体所有声明和过程(包括时间处理过程)；窗体文件(.D... [阅读全文]

谈Delphi下Internet编程窍门技巧()作者:lyboy99E-mail:[email protected]带了很多Internet应用编程Control控件,这使得我们开发Internet应用可以轻松些,下面我将逐步介绍些有关Internet下应用编程窍门技巧这些窍门技巧都是些细微方面,但是它却可以给你应用添加重要功能... [阅读全文]

什么是流？流,简单来说就是建立在面向对象基础上种抽象处理数据工具在流中定义了些处理数据基本操作如读取数据写入数据等员是对流进行所有操作而不用关心流另头数据真正流向流不但可以处理文件还可以处理动态内存、网络数据等多种数据形式如果你对流操作非常熟练在中利用流方便性写起会大大提高效率 下面笔者通过 4个例子:EXE文件加密器、电子贺卡、自制O... [阅读全文]

Delphi编程实现Ping操作 　　张泰立 　　使用过网络用户都熟悉“Ping”这个指令它是个DOS下可执行文件般用它来检查网络连接好坏程度其基本原理是利用TCP/IP协议包中ICMP协议中个功能即向所指定计算机发送个请求收到请求计算机返回个应答借此来判断该计算机是否在网上运行或者检查网络连接是否稳定可靠在Ping执行过程中双方计算机所... [阅读全文]

前言 经常有很多初学者问到在delphi中如何SQL Server存储过程？问题其实很好解决但问得多了也就不愿答了下面我将用例子进行介绍说明从在SQL Server中创建存储过程到完整例子 首先,打开sql server管理器,在pubs数据库中建个测试表,表名为test,字段有id,name,和desc,全部为型,如果你不知... [阅读全文]

　　为什么使用接口？ 　　举个例子好了:有这样个卖票服务电影院可以卖票歌剧院可以卖票客运站也可以卖票那么我们是否需要把电影院、、歌剧院和客运站都设计成个类架构以提供卖票服务？要知道连经理人都可以卖票很显然不适合把经理人也包括到卖票服务继承架构中我们需要只是个共通卖票服务于是卖票服务是个接口电影院、歌剧院什么只要都遵循这样个服务定义就能很好地相互交互和沟通(如果须... [阅读全文]