列举实例说明: 1.新建一个表单,假设其Width为500,设置一个按钮Button1,按 此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下: procedure TForm1.Button1Click(Sender: TObject); var i,j:Integer; Dct:TRect; begin j:=Form1.height; //获得表...

2008-04-09 04:31:17

//江雪 2001.06.11 http://asnowcn.at.china.com//将UTF-8字符串转为代码页为CodePage的AnsiString。function UTF8ToAnsiString(utf8str:string; CodePage:integer):AnsiString;var i:integer; buffer:widestring; ch,c1,c2:byte;begin result:=''''''''; i:=1; while...

2008-04-09 04:31:16

现在将源代码公布出来，来谢谢大家的支持。本人水平有限，大家有什么号的灵感或建议，请 email wang517@21cn.com .多谢！！ 原代码实现的思路： 提供一个列举系统所有输入法的窗体，供用户选择，将选择的中文输入法保存到系统注册表里。 提供一个方法 ChangeYouFormAll...

2008-04-09 04:31:16

3.5 类型 3.5.1 大写约定 如果类型的名字是保留字，那么它应全部小写。 Win32 API类型通常全部大写，并且你必须遵循在Windows.pas或其他API单元中的详细类型名称的约定。对于其他变量名字，地一个字母应为大写，而其他字母应错落有致。下面是一些例子： var MyString :...

2008-04-09 04:31:15

{主窗口单元} unit Main; interface uses ……{略去其他内容} procedure Table1BirthdayGetText(Sender: TField; var Text: String;DisplayText: Boolean); procedure Table1BirthdaySetText(Sender: TField; const Text: String); private { Private declarations } p...

2008-04-09 04:31:12

使用COM 参数化对象结构编程技术 一、引言 COM 服務技術的一個核心理念就是系統本身提供完成許多面向企業應用開發者的通用基本模組（如線程 、物件資源池管理、事務服務管理、事件服務管理等），讓系統設計人員把精力集中在企業應用本身的業務 邏輯上。 COM 提供了許多...

2008-04-09 04:31:12

COM与DCOM的区别与联系 其实这种提法本身就及不科学,DCOM本身就是COM的一种表现形式,但是由于大家听见COM一般就把它当成在本地执行的COM,而DCOM当然就是分布的COM,在网络上的另一台计算机上执行.于是就诞生了这篇COM与DCOM的区别与联系. 区别: COM有两种存在形式,动态...

2008-04-09 04:31:11

Api函数列表 ——与文件相关 Api函数名 函数说明 适用范围 W3.x W95 NT mmioWrite 写文件 否 是 是 WriteFile 写文件 否 是 是 ExtractAssociatedIcon 从文件或相关EXE中获取图标句柄 否 是 是 ExtractIcon 从可执行文件中返回图标句柄 否 是 是 LZRead 从压缩文件中读...

2008-04-09 04:31:11

unit Ugetcor; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type Tgetcol = class(TForm) Panel1: TPanel; Label1: TLabel; Label2: TLabel; procedure FormClick(Sender: TO...

2008-04-09 04:31:10

现在，我有时间去关注软件盗版问题，我将描述一下我的注册方法，希望对你有所帮助。 几年以来，我有过许多的方案，有的简单，有的复杂，其目的都是为了防止软件的非法使用。这些方法包括两种：硬件方法和软件方法。 硬件方法一般是使用并口设备（软件狗）或是不标准的...

2008-04-09 04:31:10