delphi开发ocx控件开发笔记（一）
由于项目的需要，近期开始学习用delphi开发一个软电话控件。
以前接触过一些delphi开发方面的东西（当然都是些皮毛啦），但没接触过ocx控件的开发，在此把一些简单的东西记下来，一方面以后自己可以再学习，另一方面希望对刚刚学习delphi开发ocx控件的初学者有所帮助，如果有什么写的不对和写的不好的地方，还请各位多多指正，在此先谢谢了。
关于ocx控件的一些基础知识在这里就不说这么多了，网络上有很多这方面的文章，有兴趣的朋友可以到网上去搜搜！！
Delphi集成开发环境对开发ocx控件提供了很好的支持，只要简单的几步就可以开发出属于自己的ocx控件了，下面是delphi开发ocx的一些简单的步骤：
1、 打开delphi集成开发环境，选择File->new->other，此时弹出一个多页的窗口，选择ActiveX页，选择ActiveX Form,点击OK后，弹出工程属性框，为ActiveX起一个名字，这样一个ocx控件的工程就建立好了
2、 保存工程
这样一个ocx控件就建好了，但这个ocx不具备任何功能，不过这时可以对这个ocx进行编译然后通过web发布，再通过我们就浏览器就可以调用这个ocx控件了，下面介绍下编译和发布的一些简单步骤：
1、选择project->compile project(ctrl+F9)a编译工程
2、注册组件：Run->register ActiveX server(说明，当往form中增加新的组件后，编译完后要重新注册，不然的话，新加的组件显示不出来)
3、发布：project->web deploy
相关文档：
implementation
uses ComOBJ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ExcelAPP1:Variant;
ExcelApp2:Variant;
I,j: Integer;
ID,IDX:string;
begin
try
ExcelAPP1:=CreateOleObject('Excel.Application');
E ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
Delphi第三方控件安装卸载指南
基本安装
1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
4、如� ......
Delphi中截取文件名不含后缀部分 收藏
当文件名含有中文时，不能直接用LeftStr(FileName, Length(FileName - 4))或者用Pos来定位"."的位置来获取。因为中文一个字符相当与两个英文字符。这样截取往往还是把整个FileName都截下来了。
应当使用Copy函数，如下：
TmpFileLength := Pos(extFile, FileName); TmpFileName := ......
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
Button2: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObj ......
