理想与现实

WinExec, ShellExecute, CreateProcess

MKDuse@email.com(MKD) — Wed,07 Jan 2009 14:29:16 +0800

WinExec, ShellExecute, CreateProcess
使用WinExec命令

　　⑴　函数原型：

UINT Win Exec(LPCSTR lpCmdLine, UINT uCmdShow);

　　⑵　参数：

　　lpCmdLine：指向一个空结束的字符串，串中包含将要执行的应用程序的命令行（文件名加上可选参数）。

　　uCmdShow：定义Windows应用程序的窗口如何显示，并为CreateProcess函数提供STARTUPINFO参数的wShowWindow成员的值。

　　⑶　返回值：

　　若函数调用成功，则返回值大于31。若函数调用失败，则返回值为下列之一：

　　①　0：系统内存或资源已耗尽。

　　②　ERROR_BAD_FORMAT：EXE文件无效（非Win32.EXE或.EXE影像错误）。

　　③　ERROR_FILE_NOT_FOUND：指定的文件未找到。

　　④　ERROR_PATH_NOT_FOUND：指定的路径未找到。

　　虽然Microsoft认为WinExec已过时，但是在许多时候，简单的WinExec函数仍是运行新程序的最好方式。简单地传送作为第一个参数的命令行，还需要决定如何显示程序（该程序也许会忽视它）的第二个参数。通常，将其设置为SW_SHOW，也可尝试SW_MINIMIZED或 SW_MAXIMIZED。WinExec不允许用CreateProcess获得的所有选项，而它的确简单。

　　使用ShellExecute命令

　　⑴　函数原型：

HINSTANCE ShellExecute(HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd);

　　⑵　参数：

　　hwnd：指向父窗口的窗口句柄。此窗口接收应用程序产生的任何信息框。

　　lpOperation：一个空结束的字符串地址，此字符串指定要执行的操作。下面的操作字符串是有效的：

"open" 此函数打开由参数lpFile指定的文件，此文件可以是一个可执行文件或文档文件，也可是一个文件夹。
"print" 此函数打印由参数lpFile指定的文件，此文件应是一个文档文件，假如此文件是一个可执行文件，则打开此文件。
"explore" 此函数搜索由参数lpFile指定的文件夹，此文件应是一个文档文件，

　　　此参数可以为空。这种情况下，函数用于打开由参数lpFile指定的文件。

　　lpFile：一个空结束的字符串地址，此字符串指定要打开或打印的文件或者是要打开或搜索的文件夹。

　　lpParameters：假如参数lpFile指定一个可执行文件，lpParameters则是一个空结束的字符串地址，此字符串指定要传递给应用程序的参数。假如lpFile指定一个文档文件，lpParameters应为空。

　　lpDirectory：一个空结束的字符串地址，此字符串指定默认目录。

　　nShowCmd：假如lpFile指定一个可执行文件，nShowCmd表明应用程序打开时如何显示。假如lpFile指定一个文档文件，nShowCmd应为空。

　　⑶　返回值：

　　若函数调用成功，则返回值大于32，否则为一个小于等于32的错误值。

　　说明：可以用此函数打开或搜索一个外壳文件夹。打开文件夹可用下面任何一种形式：

ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);
　　
　　或

ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL);

　　搜索文件夹，可用如下形式

ShellExecute(handle, "explore", path_to_folder, NULL, NULL, SW_SHOWNORMAL);

　　ShellExecute命令虽已过时但易于得到。该命令向命令解释程序提出打开、浏览或打印文档或文件夹的请求，虽然可以用 ShellExecute运行程序，但通常只发送文档名，而命令解释程序则决定要运行那个程序。另外在打开目录文件夹时，ShellExecute命令非常有用。

　　⑷　程序示例

　　下面通过一个例子来说名WinExec和ShellExecute的使用。下面程序有控制台程序示例，其使用两种不同的方法，打开文本文件。下面程序使用WinExec，并明确指定使用记事本程序。然后，使用ShellExecute,打开文本文件。

　　程序清单

#include
#include

void main(int argc,char *argv[])
{
　cout < <”Opening with WinExec\n”;
　if (WinExec(“notepad readme.txt”,SH_SHOW) <32)
　　MessagBox(NULL,”Can’t WinExec”,NULL,MB_OK);
　　cout < <”Press Enter\n”;
　　MessagBox(NULL,”Press OK to continue”,”Progrm Launched”,MB_OK);
　　cout < <”Opening with ShellExecute\n”;
　if (ShellExecute (NULL,”open”,”readme.txt”,NULL,NULL,SW_SHOW) <(HANDLE) 32)
　　MessagBox(NULL,”Can’t ShellExecute\n”,NULL,MB_OK);
}

使用CreateProcess命令

　　⑴　函数原型：

BOOL CreateProcess(
　LPCTSTR lpApplicationName,
　LPTSTR lpCommandLine,
　LPSECURITY_ATTRIBUTES lpProcessAttributes,
　LPSECURITY_ATTRIBUTES lpThreadAttributes,
　BOOL bInheritHandles,
　DWORD dwCreationFlags,
　LPVOID lpEnvironment,
　LPCTSTR lpCurrentDirectory,
　LPSTARTUPINFO lpStartupInfo,
　LPPROCESS_INFORMATION lpProcessInformation
);

　　⑵　参数：

　　lpApplicationName：指向一个以空结尾的串，他指定了要执行的模块

　　lpCommandLine：指向一个以空结尾的串，该串定义了要执行的命令行。

　　lpProcessAttributes：指向一个SECURITY_ATTRIBUTES结构，该结构决定了返回的句柄是否可被子进程继承。

　　lpThreadAttributes：指向一个SECURITY_ATTRIBUTES结构，该结构决定了返回的句柄是否可被子进程继承。

　　bInheritHandles,：表明新进程是否从调用进程继承句柄。

　　dwCreationFlags：定义控制优先类和进程创建的附加标志。

　　lpEnvironment：指向一个新进程的环境块。

　　lpCurrentDirectory：指向一个以空结尾的串，该串定义了子进程的当前驱动器和当前目录。

　　lpStartupInfo：指向一个STARTUPINFO结构，该结构定义了新进程的主窗口将如何显示。

　　lpProcessInformation：指向PROCESS_INFORMATION结构，该结构接受关于新进程的表示信息。

　　⑶　返回值：

　　若函数调用成功，则返回值不为0；若函数调用失败，返回值为0。

　　ShellExecute和WinExec命令用于简单的作业。如果要完全控制一个新进程，就必须调用CreateProcess。

　　在上述参数中，参数lpStartupInfo是STARTUPINFO结构。可以用来设置控台的标题，新窗口的的初始大小和位置，及重定向标准输入和输出。新程序通常可以忽略多数这些数据项，如果选择那样做的话。可以规定该结构体中的标志，已表明要设置的数据段。有时，不想设置任何信息，也必须传递一个有效的指针给空结构（确定设置大小到cb，及设置dwFlags成员为0）。参数lpProcessInformation返回进程和线程句柄，还包括进程和线程ID。这些句柄拥有在参数lpProcessAttributes和lpThreadAttributes中规定的访问。

　　要注意，针对CreateProcess的一些参数对控制台应用程序是特定的，而其它参数则对各种应用程序有用。大多数情况下，并不一定要填入 STARTUPINFO结构，但无论如何必须提供它。其返回值是布尔型的，而真正感兴趣的返回值发生于作为参数传送的结构中（PROCESS_INFORMATION）。CreateProcess返回该结构中的进程ID及其句柄，以及初始线程ID及其句柄。可以将ID发送到其它进程，或使用句柄来控制新进程。

Delphi调用外部程序

MKDuse@email.com(MKD) — Wed,07 Jan 2009 10:41:01 +0800

Delphi调用外部程序

WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW);

WinExec(
  lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows/PATH环境变量}
  uCmdShow: UINT     {启动选项}
): UINT;

//返回值:
大于 31                    {调用成功}
等于 0                     {内存不足}
ERROR_FILE_NOT_FOUND = 2;  {文件名错误}
ERROR_PATH_NOT_FOUND = 3;  {路径名错误}
ERROR_BAD_FORMAT     = 11; {EXE 文件无效}

//uCmdShow 参数可选值:
SW_HIDE            = 0; {隐藏, 并且任务栏也没有最小化图标}
SW_SHOWNORMAL      = 1; {用最近的大小和位置显示, 激活}
SW_NORMAL          = 1; {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED   = 2; {最小化, 激活}
SW_SHOWMAXIMIZED   = 3; {最大化, 激活}
SW_MAXIMIZE        = 3; {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE  = 4; {用最近的大小和位置显示, 不激活}
SW_SHOW            = 5; {同 SW_SHOWNORMAL}
SW_MINIMIZE        = 6; {最小化, 不激活}
SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}
SW_SHOWNA          = 8; {同 SW_SHOWNOACTIVATE}
SW_RESTORE         = 9; {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT     = 10; {同 SW_SHOWNORMAL}
SW_MAX             = 10; {同 SW_SHOWNORMAL}

ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shellapi.pas单元：uses ShellAPI;

1.标准用法
　　ShellExecute函数原型及参数含义如下：
　　function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
　　●hWnd：用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。例如，可以将其设置为应用程序主窗口句柄，即 Application.Handle，也可以将其设置为桌面窗口句柄（用GetDesktopWindow函数获得）。
　　●Operation：用于指定要进行的操作。其中“open”操作表示执行由FileName参数指定的程序，或打开由FileName参数指定的文件或文件夹；“print”操作表示打印由FileName参数指定的文件；“explore”操作表示浏览由FileName参数指定的文件夹。当参数设为nil时，表示执行默认操作“open”。
　　●FileName：用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
　　●Parameters：若FileName参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为nil或PChar(0)。
　　●Directory：用于指定默认目录。
　　●ShowCmd：若FileName参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为0。
　　若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。
　　上述仅仅是ShellExecute函数的标准用法，下面将介绍它的特殊用法。

2.特殊用法
　　如果将FileName参数设置为“http:”协议格式，那么该函数将打开默认浏览器并链接到指定的URL地址。若用户机器中安装了多个浏览器，则该函数将根据Windows 9x/NT注册表中http协议处理程序（Protocols Handler）的设置确定启动哪个浏览器。
　　格式一：http://网站域名。
　如：ShellExecute(handle, ‘open’, http:// ;  http://www.neu.edu.cn’/, nil, nil, SW_SHOWNORMAL);
　　格式二：http://网站域名/网页文件名。
　　如：ShellExecute(handle, ‘open’, http:// ;  www.neu.edu.cn/default.htm’,nil,nil,  SW_SHOWNORMAL);
　　如果将FileName参数设置为“mailto:”协议格式，那么该函数将启动默认邮件客户程序，如Microsoft Outlook（也包括Microsoft Outlook Express）或Netscape Messanger。若用户机器中安装了多个邮件客户程序，则该函数将根据Windows 9x/NT注册表中mailto协议处理程序的设置确定启动哪个邮件客户程序。
　　格式一：mailto:
　　如：ShellExecute(handle,‘open’, ‘mailto:’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口。
　　格式二：mailto:用户账号@邮件服务器地址
　　如：ShellExecute(handle, ‘open’,‘ mailto:who@mail.neu.edu.cn’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址。若指定多个收件人地址，则收件人地址之间必须用分号或逗号分隔开（下同）。
　　格式三：mailto:用户账号@邮件服务器地址?subject=邮件主题＆body=邮件正文
　　如：ShellExecute(handle, ‘open’, ‘ mailto:who@mail.neu.edu.cn？subject=Hello＆Body=This is a test’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本，则必须在每行文本之间加入换行转义字符％0a。
例子(delphi):
在一个应用程序调用c:Project1.exe;
ShellExecute(handle, ’open’,’c:Project1.exe’,’字串内容’,nil, SW_SHOWNORMAL);
在Project1.exe里可以调用:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=1 to paramcount do
if ParamStr(i)〈〉’’ then showmessage(ParamStr(i));
end;

最后的那个参数，为窗口指定可视性方面的一个命令。
请用下述任何一个常数
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同

showwindow函数

MKDuse@email.com(MKD) — Wed,07 Jan 2009 10:32:59 +0800

        public static extern int ShowWindow(IntPtr hwnd, int nCmdShow);

函数功能：该函数设置指定窗口的显示状态。
    参数：
    hWnd：窗口句柄。

    nCmdShow：指定窗口如何显示。如果发送应用程序的程序提供了STARTUPINFO结构，则应用程序第一次调用ShowWindow时该参数被忽略。否则，在第一次调用ShowWindow函数时，该值应为在函数WinMain中nCmdShow参数。在随后的调用中，该参数可以为下列值之一：

    SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使拥有窗口的线程被挂起也会最小化。在从其他线程最小化窗口时才使用这个参数。

    SW_MIOE：隐藏窗口并激活其他窗口。

    SW_MAXIMIZE：最大化指定的窗口。

    SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一个顶层窗口。

    SW_RESTORE：激活并显示窗口。如果窗口最小化或最大化，则系统将窗口恢复到原来的尺寸和位置。在恢复最小化窗口时，应用程序应该指定这个标志。

    SW_SHOW：在窗口原来的位置以原来的尺寸激活和显示窗口。

    SW_SHOWDEFAULT：依据在STARTUPINFO结构中指定的SW_FLAG标志设定显示状态，STARTUPINFO 结构是由启动应用程序的程序传递给CreateProcess函数的。

    SW_SHOWMAXIMIZED：激活窗口并将其最大化。

    SW_SHOWMINIMIZED：激活窗口并将其最小化。

    SW_SHOWMINNOACTIVATE：窗口最小化，激活窗口仍然维持激活状态。

    SW_SHOWNA：以窗口原来的状态显示窗口。激活窗口仍然维持激活状态。

    SW_SHOWNOACTIVATE：以窗口最近一次的大小和状态显示窗口。激活窗口仍然维持激活状态。

    SW_SHOWNOMAL：激活并显示一个窗口。如果窗口被最小化或最大化，系统将其恢复到原来的尺寸和大小。应用程序在第一次显示窗口的时候应该指定此标志。

    返回值：如果窗口以前可见，则返回值为非零。如果窗口以前被隐藏，则返回值为零。

    备注：应用程序第一次调用ShowWindow时，应该使用WinMain函数的nCmdshow参数作为它的nCmdShow参数。在随后调用ShowWindow函数时，必须使用列表中的一个给定值，而不是由WinMain函数的nCmdSHow参数指定的值。

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1

Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9

Messagebox函数

MKDuse@email.com(MKD) — Wed,07 Jan 2009 10:07:25 +0800

MessageBox对话框输入控件的 ImeName属性把输入法去掉就默认为英文输入了

　MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。
　1、函数原型及参数
　function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer;
　hWnd：对话框父窗口句柄，对话框显示在Delphi窗体内，可使用窗体的Handle属性，否则可用0，使其直接作为桌面窗口的子窗口。
　Text：欲显示的信息字符串。
　Caption：对话框标题字符串。
　Type：对话框类型常量。
　该函数的返回值为整数，用于对话框按钮的识别。
　2、类型常量
　对话框的类型常量可由按钮组合、缺省按钮、显示图标、运行模式四种常量组合而成。
　（1）按钮组合常量
　MB_OK = $00000000;　　　　　　　　　//一个确定按钮
　MB_OKCANCEL = $00000001;　　　　　　//一个确定按钮，一个取消按钮
　MB_ABORTRETRYIGNORE = $00000002;　　//一个异常终止按钮，一个重试按钮，一个忽略按钮
　MB_YESNOCANCEL = $00000003;　　　　 //一个是按钮，一个否按钮，一个取消按钮
　MB_YESNO = $00000004;　　　　　　　 //一个是按钮，一个否按钮
　MB_RETRYCANCEL = $00000005;　　　　 //一个重试按钮，一个取消按钮
　（2）缺省按钮常量
　MB_DEFBUTTON1 = $00000000;　　　　　//第一个按钮为缺省按钮
　MB_DEFBUTTON2 = $00000100;　　　　　//第二个按钮为缺省按钮
　MB_DEFBUTTON3 = $00000200;　　　　　//第三个按钮为缺省按钮
　MB_DEFBUTTON4 = $00000300;　　　　　//第四个按钮为缺省按钮
　（3）图标常量
　MB_ICONHAND = $00000010;　　　　　　　 //“×”号图标
　MB_ICONQUESTION = $00000020;　　　　　 //“？”号图标
　MB_ICONEXCLAMATION = $00000030;　　　　//“！”号图标
　MB_ICONASTERISK = $00000040;　　　　　 //“i”图标
　MB_USERICON = $00000080;　　　　　　　 //用户图标
　MB_ICONWARNING = MB_ICONEXCLAMATION;　 //“！”号图标
　MB_IConERROR = MB_ICONHAND;　　　　　　//“×”号图标
　MB_ICONINFORMATION = MB_ICONASTERISK;　//“i”图标
　MB_ICONSTOP = MB_ICONHAND;　　　　　　 //“×”号图标
　（4）运行模式常量
　MB_APPLMODAL = $00000000;　　　　//应用程序模式，在未结束对话框前也能切换到另一应用程序
　MB_SYSTEMMODAL = $00001000;　　　//系统模式，必须结束对话框后，才能做其他操作
　MB_TASKMODAL = $00002000;　　　　//任务模式，在未结束对话框前也能切换到另一应用程序
　MB_HELP = $00004000;　　　　　　 //Help Button
　3、函数返回值
　0　　　　　　　　　　　 //对话框建立失败
　idOk = 1　　　　　　　　//按确定按钮
　idCancel = 2　　　　　　//按取消按钮
　idAbout = 3　　　　　　 //按异常终止按钮
　idRetry = 4　　　　　　 //按重试按钮
　idIgnore = 5　　　　　　//按忽略按钮
　idYes = 6　　　　　　　 //按是按钮
　idNo = 7　　　　　　　　//按否按钮

OFFICE组件窗体的类名

MKDuse@email.com(MKD) — Sat,03 Jan 2009 13:19:57 +0800

Microsoft Office Window Class Names

一些常用的Class Names：
Application  Class Name
Access 97  Omain
Access 2000  Omain
Access XP  Omain
Excel 97  XLMAIN
Excel 2000  XLMAIN
Excel XP  XLMAIN
Excel 2003  XLMAIN
FrontPage 2000  FrontPageExplorerWindow40
FrontPage XP  FrontPageExplorerWindow40
Outlook 97  rctrl_renwnd32
Outlook 98  rctrl_renwnd32
Outlook 2000  rctrl_renwnd32
Outlook XP  rctrl_renwnd32
PowerPoint 95  PP7FrameClass
PowerPoint 97  PP97FrameClass
PowerPoint 2000  PP9FrameClass
PowerPoint XP  PP10FrameClass
Project 98  Jwinproj-WhimperMainClass
Project 2000  Jwinproj-WhimperMainClass
Visual Basic Editor  wndclass_desked_gsk
Word 97  OpusApp
Word 2000  OpusApp
Word XP  OpusApp
Word 2003  OpusApp
Userform 97  ThunderXFrame
Userform 2000+  ThunderDFrame

用winexec,ShellExecute等调用外部程序时用到

fastreport4 for delphi 7 的安装

MKDuse@email.com(MKD) — Tue,28 Oct 2008 13:18:03 +0800

系统环境:
  Windows XP pro sp3
  Delphi7
  控件有:
  FastReport 4.3

安装前请册除原有的FR控件。

1. "Tools|Environmet options..."中的"Library"标签面下"Library path"添加FastReport路径。
   FastReport 4.3\FastQB
   FastReport 4.3\FastScript
   FastReport 4.3\Source
   FastReport 4.3\Source\BDE
   FastReport 4.3\Source\ADO
   FastReport 4.3\Source\IBX
   FastReport 4.3\Source\DBX
   FastReport 4.3\Source\ExportPack

2. 生成汉化文件
   运行"recompile.exe"文件，设置相应选项，我的设置如下：
   1.Select the compiler 设置为 Delphi7
   2.Select the FastReport Version 设置为 Enterprise
   3.Select the TeeChart version 设置为 TeeChartStd
   4.What you want to do 下的 Change language To: 设置为 Chinese (这个还用说)

3. 编译运行包(其它版本的Delphi选择相对应的文件编译)
   - FastReport 4.3\FastQB\fqb70.dpk
   - FastReport 4.3\FastScript\fs7.dpk
   - FastReport 4.3\FastScript\fsDB7.dpk
   - FastReport 4.3\FastScript\fsBDE7.dpk
   - FastReport 4.3\FastScript\fsADO7.dpk
   - FastReport 4.3\FastScript\fsIBX7.dpk
   - FastReport 4.3\Source\frx7.dpk
   - FastReport 4.3\Source\frxDB7.dpk
   - FastReport 4.3\Source\ADO\frxADO7.dpk
   - FastReport 4.3\Source\BDE\frxBDE7.dpk
   - FastReport 4.3\Source\IBX\frxIBX7.dpk
   - FastReport 4.3\Source\DBX\frxDBX7.dpk
   - FastReport 4.3\Source\ExportPack\frxe7.dpk

4. 复制以下文至Windows\System32目录下
   - fs7.bpl
   - fsDB7.bpl
   - fsBDE7.bpl
   - fsADO7.bpl
   - fsIBX7.bpl
   - frx7.bpl
   - frxDB7.bpl
   - frxADO7.bpl
   - frxBDE7.bpl
   - frxIBX7.bpl
   - frxDBX7.bpl
   - frxe7.bpl
   如果你的Delphi7没有修改环境变量那么这些文件默认是在\Borland\Delphi7\Projects\Bpl目录中。
   这一步我没有做，因为个人感觉复制不复制效果都是一样的。只要程序能找到这些文件就行了！

5. 编译并安装以下文件
   - FastReport 4.3\FastScript\dclfs7.dpk
   - FastReport 4.3\FastScript\dclfsDB7.dpk
   - FastReport 4.3\FastScript\dclfsBDE7.dpk
   - FastReport 4.3\FastScript\dclfsADO7.dpk
   - FastReport 4.3\FastScript\dclfsIBX7.dpk
   - FastReport 4.3\Source\dclfrx7.dpk
   - FastReport 4.3\Source\dclfrxDB7.dpk
   - FastReport 4.3\Source\ADO\dclfrxADO7.dpk
   - FastReport 4.3\Source\BDE\dclfrxBDE7.dpk
   - FastReport 4.3\Source\IBX\dclfrxIBX7.dpk
   - FastReport 4.3\Source\DBX\dclfrxDBX7.dpk
   - FastReport 4.3\Source\ExportPack\dclfrxe7.dpk

经过上面的操作你的FastReport4就完成了。
以上是网上摘来的，我照着做，但没把IBX，BDE相关的数据库控件编译进去；
最后还有一个中文显示的问题

运行了文件夹下res/chinese/mk.bat
再重新编译了source文件夹下frx*.dpk,在ExportPack文件夹下 frxe*.dpk packages

最后终于解决中文显示问题；
以上适合fastreport4以上版本
我的是盒子上下载的FastReport4.68版本

Delphi7安装Ehlib4

MKDuse@email.com(MKD) — Sat,04 Oct 2008 12:48:15 +0800

按说明文档安装方式是

By default Delphi (5, 6 and 7) places compiled files to the
\Projects\Bpl directory and this directory already present
in the search PATH. But if you overwrite default BPL directory then you need
put compiled EhLibXX.BPL file into directory that is accessible
through the search PATH (i.e. DOS "PATH" environment variable; for example,
in the Windows\System directory).

Add, (if needed) 'EhLib directory' in Tools->Environment Options->Library->
Library Path (For Delphi 9 in Tools->Options->Environment Options->
Delphi Options->Library - Win32->Library Path).

Use "File\Open..." menu item of Delphi IDE to open the runtime package -
EhLibXX.Dpk.
In "Package..." window click "Compile" button to compile the package.

After that open and compile EhLibDataDriversXX.Dpk.

After compiling run-time packages install design-time
packages DclEhLibXX.BPL and DclEhLibDataDriversXX.BPL into the IDE.

For that use "File\Open..." menu item to open design-time package
DclEhLibXX.Dpk.
In "Package..." window click "Compile" button to compile the package
and then click "Install" button to register EhLib components on
the component palette.

但安装会出现 EhLib70.dpk(59): File not found: 'DBSumLst.dcu'的错误，

解决办法:可以把下载的控件包中Delphi7文件目录中的文件全部拷到Common文件夹中，然后打开Delphi-》Tools-》 Environment Options-》Library，再选择Library path路径找到你下载控件包Common目录所在。然后添加。Ok。

再选择Delphi中File -》Open 打开Common中的DPK文件，注意这里有四个DPK文件，先选择EhLib70.dpk 之后Compile（不要Install）再打开EhLibDataDrivers70.dpk再Compile（不要Install）。编译这两个文件之后再打开DclEhLib70.dpk文件，点Compile，再安装（此时点Install），再打开DclEhLibDataDrivers70.dpk 点编译，再安装（此时点Install）到此OK，退出Delphi编译器，重新启动OK

delphi控件安装方法及说明

MKDuse@email.com(MKD) — Sat,13 Sep 2008 10:44:52 +0800

由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1、只有一个dcu文件的组件。 dcu文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给使用者带来了不便，那就是一旦delphi版本升级，此组件就不能再使用了，当然有的作者给出了几种版本的dcu文件，用户根据需要选择使用。这样的组件的安装方法是：在component菜单中，选择install component，在对话框中的"into existing package"页中，单击“unit file name”后的“browse”按钮，在打开的文件对话框中，将“文件类型”设定为*.dcu，找到要安装的dcu文件，按ok按钮返回"into existing package"页后再按ok按钮就可以安装了。注意，此时delphi会提示dclusr40.dpk将被重建，是否继续，ok就可以了。这里是将组件安装到dclusr40.dpk包中，此包从文件名上可以看出是用户自定义组件包，先安装到这个包中吧，下面再讲有关注意事项。安装完毕会有已经将组件注册完的提示信息以及安装到哪个组件页中的信息等，到
组件面板上看看，一般会出现一个新的组件页，其中有刚安装的组件。
2、只有pas文件或既有pas又有dcu文件的组件。这种组件因为有pas文件，也就是说作者提供了源码，这就好办多了。安装的方法和上面是一样的，在文件类型中可以设定为dcu也可以设定为pas，建议设定为pas，这样可用你的delphi重新编译一下，看是否会出现问题。delphi升级后只能选择pas文件安装，这样才能重新编译，使得组件能适应新delphi版本。这样的组件是很值得使用的，根据心铃的经验，没有源码的组件最好不要使用，一是存在 delphi版本升级后无法使用的问题，再者当程序出现问题后用户无法调试组件来判断是否是组件中存在bug。
3、有dpk文件的组件包。带有dpk文件的组件包一般是有多个组件构成的，也就是说安装后会有多个组件供使用，如果只有一个组件作者一般不会制成dpk文件，使用上面的方式发布就可以了。对于这样的组件包，一般来说会有详细的安装说明文件，如上面提到的rxlib，由于组件复杂且安装时有先后顺序，作者不提供安装说明用户根本无法正确安装。如果没有安装说明文件，那么用下面的方法安装：在file菜单下，选择”open…”打开dpk文件(文件类型列表框中选*.dpk)，在出现的 package窗口中，工具栏上有install按钮，按此按钮即可进行安装。如果install按钮处于无效状态，那么先按compile按钮编译，一般来说编译之后install按钮就会处于有效状态，此时再按install按钮就可以了。
4、带有bpl文件的组件包。一般来说这也是由多种组件构成的组件包，它其实是一个动态连接库文件（dll）。对于这种组件包的安装方法是：在component菜单下选择“install packages”，然后单击add按钮，在打开的文件对话框中找到相应的bpl文件打开返回后，再单击ok按钮就可以了。
5、activex控件的安装。要安装这类控件，需要先用regsvr32.exe注册，然后选择
component 菜单中import activex control项。在import activex control打开的窗口中，只有已经注册的activex控件才出现在列表中，选中一个然后按install按钮就可以安装了。如果事先没有用 regsvr32.exe注册也可以按add按钮找到ocx文件即时注册，注册后再进行安装。
几点说明：
1 在拿到组件后先看是否有说明文件，一般来说在说明文件中有如何安装的指导，有些还会有组件的属性、事件、方法的使用说明，这些在使用时是非常重要的。
2 在上面的组件（包）安装操作之前，最好将 *.bpl拷贝到你的system目录中，将
*.pas、*.dcu、*.dcr、*.dp@拷贝到delphi的lib目录中再进行。3 前面我们提到安
装 dcu组件时，选用的是已经存在的dclusr40.dpk，当然也可以选择安装到一个新的包中，如果选择新包，需要先取一个名字比如demo，事实上安装完毕后用户可以找到的是demo.bpl，而找不到demo.dpk。假如你已经将一个组件安装到dclusr40.dpk中了，还想再安装一个组件，如果再安装到dclusr40.dpk中，安装后你得到提示，原来安装的那个组件已经被取消注册，你将无法使用了。这样不就成了只能安装一个组件了吗？除非你再安装到一个新的包中才可以两个组件同时使用。当然每安装一个组件生成一个新的bpl文件也未偿不可，但bpl文件就增加许多。能否在 dclusr40.dpk中多安装几个组件呢？当然是可以的。方法如下：用file菜单下的open打开dclusr40.dpk文件，单击add按钮，在打开的对话框中选择add unit页面，按unit file name后的“browse”按钮打开组件单元文件，ok即可，用此种方法这样可添加多个组件的单元文件，添加完毕，按一下编译按钮，然后
再按 install按钮即可，如果单元文件是编译好的（dcu）可以直接按安装按钮。4 组件的删除。光会安装可不行，还要会删除呀。很简单，在component菜单下，选择install packages，在列表中找到安装所在的bpl，按remove按钮，ok！再把bpl文件删掉就彻底了，如果不删除bpl文件，下次可以按安装bpl 组件的方法再安装使用。

IE浏览器出现"_gat"未定义

MKDuse@email.com(MKD) — Sun,27 Jul 2008 15:00:06 +0800

调试程序时，其他浏览器看网页，都没问题，只有IE下，浏览网页出现怪问题
症状是IE下网页全裸，外部css无法加载，并提示脚本出错，"_gat"未定义

怒了，总算想起，昨天升级了安天防线；然后在IE工具栏下，点击管理加载项，禁用安天防挂马IE安全插件；
再点刷新，终于解决

由此知道一些防病毒的软件，特别是在IE加载项中的，对浏览器有一定的影响

对pjblog程序做了一些修改

MKDuse@email.com(MKD) — Thu,24 Jul 2008 17:44:50 +0800

20080724
修改common/cache.asp
解决侧栏最新评论的链接问题
//332行修改
原href=""default.asp?id=
新href=""article.asp?id=

修改hear.asp,解决seo问题，标题重复问题
//18行
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")<>0 Then
下增加

程序代码

'---add-----
   If request.querystring("log_Year")<>Empty Then
     If request.querystring("log_Month")<>Empty Then
       BlogTitle=request.querystring("log_Year")&","&request.querystring("log_Month")&"|"&BlogTitle
     else
       BlogTitle=request.querystring("log_Year")&"|"&BlogTitle
     End if
   End If

   IF Request.QueryString("tag") <> "" Then
     BlogTitle = Request.QueryString("tag")&"|"&BlogTitle
   End If

   IF IsInteger(cateID) = True Then
     Dim Cate
     Set Cate = New Category
     Cate.Load(cateID)
     BlogTitle = Cate.Cate_Name&"|"&BlogTitle
   End If
   '------------

从google网站管理员中看到的pjblog缺点，就针对程序做了一些改动；
另看到pjblog已有新的版本2.8；没有新的让人动心的东西，升级还是以后再说吧