Развернуть папку в проводнике

[Vapaamies]

Перечитал первое сообщение. Перепроверил у себя.

begin
  ShellExecuteW(0, 'open', 'explorer', '/select,C:\Delphi\Bin\coreide60.bpl', nil, SW_SHOWDEFAULT);
end;

Работает точно так же, как из командной строки, то есть разворачивает уже открытое окно. Но вот выделение нового файла в уже открытом окне почему-то не работает:

begin
  if TComponent(Sender).Tag <> 0 then
    ShellExecuteW(0, 'open', 'explorer', '/select,C:\Delphi\Bin\brcide.dll', nil, SW_SHOWDEFAULT)
  else
    ShellExecuteW(0, 'open', 'explorer', '/select,C:\Delphi\Bin\coreide60.bpl', nil, SW_SHOWDEFAULT);
  with TComponent(Sender) do
    Tag := Tag + 1;
end;

Впрочем, не работает оно и в µTorrent, так что проблема явно на стороне Windows. В Windows 7 как?

Новое окно открывается, если явно задать параметр '/n':

begin
  if TComponent(Sender).Tag <> 0 then
    ShellExecuteW(0, 'open', 'explorer', '/n,/select,C:\Delphi\Bin\brcide.dll', nil, SW_SHOWDEFAULT)
  else
    ShellExecuteW(0, 'open', 'explorer', '/n,/select,C:\Delphi\Bin\coreide60.bpl', nil, SW_SHOWDEFAULT);
  with TComponent(Sender) do
    Tag := Tag + 1;
end;

В этом случае при втором нажатии на кнопку другой файл (brcide.dll) выделяется, но в другом окне. Какие-то окна "Проводника" одноразовые.

[JoLan]

Хоть убей, у меня никак не получается вызвать разворачивание окна. Всегда открывается новое. Что в cmd, что кодом.

У меня Win7.

[Vapaamies]

Сообщение от JoLan

У меня Win7.

А в µTorrent как?

[Stilet]

Хоть убей, у меня никак не получается

А потому что как выше было сказано нужно поюзать такое: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx