添加引用
ShellAPI
过程或者过程中添加如下代码
ShellExecute(Handle,‘open‘,‘Explorer.exe‘,pwidechar(‘/e,/select,%s,‘+extractfilepath(application.ExeName)+‘导出\‘+dbfname+‘.dbf‘),nil,SW_NORMAL);
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
Directory: LPWSTR; ShowCmd: Integer): HINST; stdcall;
参数说明
HWND:
用于指定父窗口的句柄。当函数调用过程中出现错误时，它将作为Windows消息窗口的父窗口。
Operation：
用于指定要进行的操作，当参数为NULL时，默认操作"open"。
"open"，表示执行由lpFile参数指定的程序，或者打开由lpFile参数指定的文件或文件夹。
"explort"，表示打开由lpFile参数指定的文件夹。
"print",表示打印由lpFile参数指定的文件。
Parameters：
若lpFile参数是一个可执行文件，则此参数指定命令行参数，否则此参数应设为NULL。
Directory：
用于指定默认目录。
ShowCmd：
用于指定程序窗口初始显示方式。
#define SW_HIDE 0 /*隐藏窗体，并激活另一个窗体*/ #define SW_SHOWNORMAL 1 /*与SW_RESTORE相同*/ #define SW_SHOWMINIMIZED 2 /*激活并以最小化的形式显示窗体*/ #define SW_SHOWMAXIMIZED 3 /*激活并以最大化的形式显示窗体*/ #define SW_MAXIMIZE 3 /*最大化指定的窗体*/ #define SW_SHOWNOACTIVATE 4 /*以上次的状态显示指定的窗体，但不激活它*/ #define SW_SHOW 5 /*激活窗体，并将其显示在当前的大小和位置上*/ #define SW_MINIMIZE 6 /*最小化指定的窗体，并激活另一个窗体*/ #define SW_SHOWMINNOACTIVE 7 /*以最小化形式显示指定的窗体，但不激活它*/ #define SW_SHOWNA 8 /*以当前的状态显示指定的窗体，但不激活它*/ #define SW_RESTORE 9 /*以原本的大小和位置，激活并显示指定的窗体*/ #define SW_SHOWDEFAULT 10 /*设置显示的状态由STARTUPINFO结构体指定*/