打开Windows资源管理器目录,选择一个特定的文件(在delphi中)

SHellExecute(0,'explorer.exe','/SELEct,C:\WINDOWS\explorer.exe',SW_SHOWNORMAL)

一个更有趣(也许更可靠)的方法(使用SHellAPI,ShlObj)：

const
  OFASI_EDIT = $0001;
  OFASI_OPENDESKTOP = $0002;

{$IFDEF UNICODE}
function ILCreateFromPath(pszPath: PChar): PItemIDList stdcall; external sHell32
  name 'ILCreateFromPathW';
{$ELSE}
function ILCreateFromPath(pszPath: PChar): PItemIDList stdcall; external sHell32
  name 'ILCreateFromPathA';
{$ENDIF}
procedure ILFree(pidl: PItemIDList) stdcall; external sHell32;
function SHOpenFolderAndSELEctItems(pidlFolder: PItemIDList; cidl: Cardinal;
  apidl: pointer; dwFlags: DWORD): HRESULT; stdcall; external sHell32;

function OpenFolderAndSELEctFile(const Filename: String): Boolean;
var
  IIDL: PItemIDList;
begin
  result := false;
  IIDL := ILCreateFromPath(PChar(FileName));
  if IIDL <> nil then
    try
      result := SHOpenFolderAndSELEctItems(IIDL,0) = S_OK;
    finally
      ILFree(IIDL);
    end;
end;