从文件夹中选中文件(网抄)

uses Shellapi;　//以便使用ShellExecute

 

function OpenAndSetFileSelected(const aFullExename: String): Boolean;
begin
  Result:= FileExists(aFullExename);
  if Result then
    ShellExecute(0, 'open', 'explorer.exe ', PChar('/select, '+aFullExename),nil,SW_NORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenAndSetFileSelected('C:/WINDOWS/regedit.exe');
end;

/

可以在开始菜单->运行　里试试下边的命令，效果一样的

explorer /select,c:/windows/regedit.exe

顺便，把其它的开关也一并列出来吧

更多信息syntaxEXPLORER.EXE [ /n ] [ /e ] [，/ root，<object> ] [ [，/ select ]，< sub object...syntax
EXPLORER.EXE [ /n ] [ /e ] [，/ root，<object> ] [ [，/ select ]，< sub object > ]
explorer　命令开关
/n:  Opens a new window in single-paned (My Computer) view for each item
     selected, even if the new window duplicates a window that is
     already open.

/e:  Uses Windows Explorer view. Windows Explorer view is most similar
     to File Manager in Windows version 3.x. Note that the default view
     is Open view.

/root,<object>:  Specifies the root level of the specified view. The
                 default is to use the normal namespace root (the
                 desktop). Whatever is specified is the root for the
                 display.

/select,<sub object>:  Specifies the folder to receive the initial
                       focus. If "/select" is used, the parent folder
                       is opened and the specified object is selected.
    

若要 to open Windows Explorer view to only objects explore on //<server name >，use following syntax:
Explorer/e，/ 根，// < 服务器名 >
若要查看在 C:/WINDOWS/System32 文件夹并选择 CALC.EXE，使用以下语法：
explorer /select,c:/windows/system32/calc.exe