Delphi:打开目录并选中指定文件

添加引用

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结构体指定*/