//适用于 Win NT/2K/XP, //参数Key为True,屏蔽“任务管理器”； 为False,“任务管理器”可用 //使用方法： // DisableTaskmgr(True); procedure DisableTaskmgr(Key: Boolean); Var Reg:TRegistry; Begin Reg:=TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER...

2008-04-09 04:26:06

不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标...

2008-04-09 04:26:05

开发一个基于 DCOM 的局域网聊天室 难度：★★★☆☆ 先行知识： Delphi / 接口 / OLECOMDCOM / Win32 首先祝大家新春快乐，猴年万事如意！ 在前面的几篇文章中我们已经探讨了不少基于微软 COM 的相关技术，而分布式 COM （以下简称 DCOM ）的出现给我们轻松的创建分布...

2008-04-09 04:26:04

我们知道Java中有StringTokenizer，对于字符串处理都非常的方便，但是Delphi中没有提供该功能，我参考Java语言实现此功能的Delphi版本和C#版本。希望给大家提供一个方便。希望多多指教。zengqingsong@sohu.com unit SkyStringTokenizer; {字符串分析处理类 作者：曾青...

2008-04-09 04:26:03

function GraphicToBmp(P: TPicture; Quality: Integer = 80): TBitmap; var Jpg: TJpegImage; begin Result := TBitmap.Create; with Result do begin Width := P.Width; Height := P.Height; Canvas.Draw(0, 0, P.Graphic); end; if Assigned(Result) then begin Jpg...

2008-04-09 04:26:02

在delphi中使用xml文档有两种方法 使用xml broker, 是delphi 内置的。例: unit ShowXML; interface uses Classes HTTPApp Db DbClient Midas XMLBrokr WebComp MidItems; type TCustomShowXMLButton = class(TXMLButton IScriptComponent) protected XMLMethodName: st...

2008-04-09 04:26:02

当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为Customer的数据表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看国别为China或顾客号大于1000的顾客记录,就需要对数据集进行过滤。经总结,有下面这些过滤方法: 一、...

2008-04-09 04:26:00

1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无ACCESS环境下运行成功. //在之前uses ComObj,ActiveX //声明连接字符串 Const SConnectionString = ''''Provider=Microsoft.Jet.OLEDB.4.0;Da...

2008-04-09 04:25:59

消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所...

2008-04-09 04:25:59

1.1 此份文件的目的为何？ 这份文件的目的是为了解答有关撰写 Delphi组件时常见或文件上找不到的问题。我曾经花了一段很长的时间来了解探索 TDataLink 类别，这让我觉得应该将撰写组件时常遇到的问题及经验心得写下来，分享给大家。不过我并不能保证写在这份文件里头的...

2008-04-09 04:25:58