Ouvrez le répertoire Windows Explorer, sélectionnez un fichier spécifique (en Delphi)

J'ai une procédure pour ouvrir un dossier dans l'Explorateur Windows qui est passée d'un chemin d'accès au répertoire:

procedure TfrmAbout.ShowFolder(strFolder: string);
begin
   ShellExecute(Application.Handle,PChar('explore'),PChar(strFolder),nil,nil,SW_SHOWNORMAL);
end;

Est-il un moyen de transmettre aussi cette un nom de fichier (le nom complet du fichier chemin d'accès ou tout simplement le nom + extension) et le dossier ouvert dans l'Explorateur Windows, mais aussi être mis en évidence choisi? La position que je vais a beaucoup de fichiers, et j'ai besoin de manipuler ce fichier dans Windows.

source d'informationauteur ikathegreat

  1. 37

    Oui, vous pouvez utiliser le /select drapeau lorsque vous appelez explorer.exe:

    ShellExecute(0, nil, 'explorer.exe', '/select,C:\WINDOWS\explorer.exe', nil,
  SW_SHOWNORMAL)

    Un peu plus de fantaisie (et peut-être aussi plus fiable) approche (uses 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, nil, 0) = S_OK;
    finally
      ILFree(IIDL);
    end;
end;