Delphi第三方皮肤组件AlphaControls的下载和使用方法
AlphaControls：比Vclskin更好用、更易用、更炫丽的第三方皮肤组件
AlphaControls 2009 v6.48 破解版 下载：http://download.csdn.net/source/2361803
AlphaControls的安装方法：
Install for Delphi :
1. Start by unpacking the acnt*.zip files into a folder of your own choice.
2. This directory must be registered in system search path. And add, (if need)
AlphaControls directory in Delphi (Tools->Environment Options->Library->Library Path).
3. Use "File\Open..." menu item of Delphi IDE to open the AlphaControls
run-time package acntX_r.dpk (x - version of Delphi). In the "Package..."
window click "Compile" button to compile run-time library.
4. Use "File\Open..." menu item of Delphi IDE to open the AlphaControls
design-time package acntX.dpk. In the "Package..." window click "Install"
button to install the library.
5. DB-aware components users can install AlphaDB pack by copying AlphaDB files
to AlphaControls directory and AlphaDB.dpk file installing.
安装完毕之后，Delphi组件面板上就多了3个组件页：AlphaStandard、AlphaAdditional、AlphaTools。这3个组件页里的组件重写了原来Standard、Additional、Win32、System、Dialogs里面的组件，使用这些组件就有了皮肤效果。把这3个组件页拖到最前面以方便使用。
使用方法：
1. 首先，必须把AlphaTools组件页的第一个组件（TsSkinManager）放到Delphi设计窗体上。
2. AlphaTools组件必须设置的属性一：SkinDirectory
将其路径设置为AlphaControls安装目录下的Skins（安装时可能有多个Skin文件夹，如Skins、Skins1...可以把这些文件夹内的文件统一放在Skins文件夹下，因为都是皮肤文件）
3. AlphaTools组件必须设置的属性二：InternalSkins
在此属性弹出的对话框中选择需要的皮肤（有预览效果），可以Add多个皮肤，选择多个皮肤就可以通过对SkinName属性的赋值而制作出更换皮肤的功能了。当然多选也会增加程序的大小，请斟酌使用。如果此属性不设置你也可以看到皮肤效果，但在别人的电脑上就不一定了，此属性的功能就是把皮肤文件编译进Delphi最后的可执行文件(.exe)中，所以此属性还是必须设置的。
4. AlphaTools组件必须设置的属性三：SkinName
相关文档：
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现
1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace ......
过程无返回值，函数有返回值。
procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
如上例所示，过程声明和定义中，多个参数是用分号隔开的，但在调用时是用逗号隔开的 。eg：
......
1.Round（四舍六入五留双）
功能说明：对一个实数进行四舍五入。(按照银行家算法)
例：
var
i, j: Integer;
begin
i := Round(1.5); // i等于2
j := Round(2.5); // j等于2
end;
在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五� ......
//定义全局变量
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//创建打开outlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......
