7 个非常好的免费 Delphi 组件集
1)JEDI - VCL
JEDI-VCL(JVCL) 库构建于 JEDI 社区捐赠的代码。他由超过 400 个可以在你的 Delphi 和 Kylix 项目中立即重用的组件构成。整个 JEDI VCL 在 Mozilla 公共许可证（MPL）条款下分发，他可以自由使用于免费软件和共享软件，以及开放源代码工程和商业项目。
网站：http://jvcl.sourceforge.net
(2)RXLib
RxLib 是用于 Borland Delphi 和 C++ Builder 的一整套组件集，他们可以构建灵活和丰富的用户界面，最重要的一点是他们完全免费。
网站：http://sourceforge.net/projects/rxlib
(3)LMD Tools - Special Edition（特别版）
LMD Tools 的免费版，将近 100 个组件，绝对免费。
网站：http://www.lmdinnovative.com
(4)Globus VCL Extensions Library(GVCL)
一个用于 Borland Delphi 3-7 和Borland C++ Builder 5 的组件和函数库，所有单元都包含源代码。这个特定的库是一个免费软件产品，在不更改安装文件内容和单元源代码的情况下可自由分发使用这个库。
网站：
http://cpr.biblio-globus.ru/GlobusLib.htm
http://www.spellabs.ru/gvclen.htm
(5)Pro VCL Extensions Library(ProLib)
用于 Borland Delphi 和 C++ Builder 的免费组件库，包含 28 个组件和几个有用的类、过程和函数。
网站：http://barabash.org/prolib/index.html
(6)Max’s Components for Delphi
15 个 Delphi 组件，全部包含源代码和帮助文件。
网站：http://www.maxcomponents.net
(7)About Delphi Programming VCL 集
超过 40 个组件，全部包含源代码。
网站：http://delphi.about.com/library/bluc/ucvcl.htm
相关文档：
利用内存流来判断文件的格式，其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件。
procedure TFrm.CheckImgType(Sender: TObject);
var //声明变量
MyImage:TMemoryStream; //内存流对象
Buffer:Word;
i:integer;
beg ......
program Project1;
{$APPTYPE CONSOLE}
uses
windows, Tlhelp32, SysUtils;
//===========================获得系统目录=======================================
function GetWinDir: string;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirector ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
var
Form1: TForm1;
a, b, c: Integer;
implementation
{$R *.dfm}
procedure test1(x, y, z: integer);
asm
mov a,eax
mov b,edx
mov c,ecx
end;
procedure test2(x, y, z: integer);
var
i,j,k: integer;
asm
mov i,eax
mov j,edx
mov k,ecx
mov eax,[esp+8]
mov a,eax
mov ......
