procedure OpenFolderAndSelectItem( Path: WideString );
var
  desk: IShellFolder;
  iidl: PItemIDList;
  attrs, che: Cardinal;
begin
   SHGetDesktopFolder( desk );
   desk.ParseDisplayName( 0, nil, PWideChar( Path ), che, iidl, attrs );
   SHOpenFolderAndSelectItems( iidl, 0, nil, 0 );
   // Если в функцию SHOpenFolderAndSelectItems в качестве последнего
   // параметра подставить OFASI_EDIT, то выбранный пункт в проводнике
   // перейдет в режим редактирования.
end;

void ShowFileInExplorer(String p_fpath)
{
    IShellFolder *desk;
    PItemIDList iidl;
    unsigned long *che, attr;
    SHGetDesktopFolder(&desk);
    desk->ParseDisplayName(0, NULL, p_fpath.c_str(), &che, &iidl, &attr);
    SHOpenFolderAndSelectItems(iidl, 0, NULL, 0);
}

void ShowFileInExplorer(String p_fpath)
{
	IShellFolder *desk;
	PItemIDList iidl;
	unsigned long che, attr;
	SHGetDesktopFolder(&desk);
	desk->ParseDisplayName(0, NULL, p_fpath.c_str(), &che, &iidl, &attr);
	SHOpenFolderAndSelectItems(iidl, 0, NULL, 0);
}