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
相关文档：
第一种方法：
第一步： 修改属性
1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown
2、parseinput -> true
第二步：在onUserInput事件中写一句代码
DateTimePicker1.DateTime:=DateAndTime;
注：以上方法虽然可以达到目的，� ......
转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现
1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace ......
function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......
delphi调用选择目录对话框
经常见网上有人问选择目录对话框的控件，其实只用一个函数就可以实现。
注意引用 Filectrl 单元
use Filectrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end; ......
var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......
