Mit ShellExecute "vorhandenes" Explorerfenster öffnen?

[Der schöne Günther]

Stattdessen SHOpenFolderAndSelectItems(..) benutzen:

https://stackoverflow.com/a/15301028/2298252

Delphi-Quellcode:

uses
  WinApi.ShellApi,
  WinApi.ShlObj;

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;