delphi 如何安装EhLib,DbGridEh控件
1、当然是先要卸载以前安装的Ehlib组件了，在菜单的“Component”的“install Packeges”里，选择ehlib XX，选择“Remove”。
2、接下来在库里加入这个控件的引用路径，先新建一个文件夹，比如“D:\Component\Ehlib”（最好把要安装的控件都拷贝到这个Component目录下），然后把下载来的Ehlib压缩包里的Common和delphi7目录下的所有文件拷贝到Ehlib目录下，选择菜单里的“Tools“里的“EnvironMent Option”，选择“library“标签，在“library path”里加入控件的路径，比如为上面介绍的路径：“D:\Component\Ehlib”，如果你不是在对话框里选择加入路径的话，要在前面加上“;”号。
3、最后就是要安装组件了，然后打开Ehlib目录下的Ehlib70.dpk，选择“Compile”，编译一下，不要安装，随后再打开dclEhlib70.dpk进行安装，打开以后先“Compile“再选择“install”进行安装，组件面板上会出现Ehlib的组件页。
4、别的控件的安装也与此类似，主要是要找到适合Delphi版本的安装文件，和注意要在库里加入这个的控件的引用路径。记得看一下安装文件下的安装说明，基本上为readme.txt或者是setup.text。
相关文档：
Delphi format的用法
一、Format函数的用法
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：
首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，� ......
function GetFileSizeString(const pFileName: String):String;
var
iFileSize: Int64;
begin
Result := '0';
iFileSize := FileSizeByName(pFileName);
Result := IntToStr(iFileSize);
end;
function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD;
var
cAppName: array ......
unit unitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2 ......
unit unitMain;
interface
uses
Registry, shlobj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TExtForm = class(TForm)
ledExtension: TLabeledEdit;
ledAssocApp: TLabeledEdit;
GetAssocApp: TButton;
AssocTh ......
http://developer.51cto.com/art/200510/7205.htm
[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
var xpanel,ypanel,xlabel,yla ......
