EnumDisplaySettings() 和ChangeDisplaySettings()， function DynamicResolution(X, Y: word): BOOL; var lpDevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, lpDevMode); if Result then begin lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEI...

2008-04-09 04:31:09

Delphi中串口通信的实现 Delphi是一种具有功能强大、简便易用和代码执行速度快等优点的可视化快速应用开发工具，它在构架企业信息系统方面发挥着越来越重要的作用，许多程序员愿意选择 Delphi作为开发工具编制各种应用程序。但是，美中不足之处是 Delphi没有自带的串口...

2008-04-09 04:31:08

軟體服務時代的來臨 經濟學家似乎從來不會意見一致. 即使是在今日全球經濟前景不明的情況下, 經濟學家也對於未來經濟是以V型爬升, 或是以U型, L型反轉而莫衷一是, 世界進步的速度似乎也因為經濟問題而呈現停頓的現象, 不過資訊技術的發展步伐卻和經濟情勢產生冷熱兩極...

2008-04-09 04:31:08

SUCCESS - (Nearly...) I think you''''ll agree we are pretty close. There is just a little bit of flicker. This flicker is the SelStart jumping the Cursor position around the text. We need to hide this. This "Cursor" is also known as a Caret. Looking...

2008-04-09 04:31:07

ASH - Automatic Syntax highlight (Attempt 2) [ Please note: I have my Delphi Editor colors set-to the [Ocean] colour speed settings for testing purposes. This setting works well on the default RichEdit white background, and most TokenTypes are in di...

2008-04-09 04:31:06

To start with I used the Edit1 Control to display the results of all these variables. I then tried manipulating text in the RichEdit to see what values I got. You should do the same. Type slowly in: 1234567890CR1234567890CR1234567890 and see how the...

2008-04-09 04:31:05

blank.rtf - empty -so I could see the "plain" header line {rtf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2froman Times New Roman;}} {colortblred0green0blue0;}deflang1033pardplainf2fs20 par...

2008-04-09 04:31:05

用DELPHI给OICQ动手术(二) http://www.tongyi.net 作者:ChinaByte 出处:胡飞 点击:3945 // gif.gif为当前路径下的一透明图片文件 sDir := ExtractFilepath(application.exename) ''''gif.gif''''; //如果图片文件不存在，则显示错误信息并退出 if not fileexists(sDir)...

2008-04-09 04:31:03

用DELPHI给OICQ动手术(一) http://www.tongyi.net 本文介绍了如何通过DELPHI的文件操作来去掉广告、屏蔽腾讯浏览器。 以OICQ2000b BUILD 0110为例，仔细分析OICQ的工作原理，可以发现，OICQ的“发送消息”窗口中的广告都保存在OICQ安装目录下的AD文件夹中，均为GIF格式...

2008-04-09 04:31:02

2001-08-06 Borland 开放 Delphi 6 个人版 Borland 通过为开发者提供学习性的产品，而促进了快速应用程序开发 加利福尼亚州斯科茨谷， 2001 年 8 月 6 日。 Borland 软件公司（ Nasdaq NM: BORL ），一个领先的电子商务平台解决方案供应商，今天宣布开放 Borland Delph...

2008-04-09 04:31:01