Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=2922476 Mon, 27 Jun 2011 15:59:21 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=2922476 VahaC Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=2922149 Mon, 27 Jun 2011 10:09:15 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=2922149 estra Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1203863 Fri, 04 Aug 2006 07:59:53 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1203863 Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1203554 Thu, 03 Aug 2006 21:56:09 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1203554 Цитата Rouse_ @
    function OpenExplorerAndSelectFile(Path: String): Boolean;


Rouse_, Спасибо огромное! Такой финт хвостом отлично срабатывает. :yes:
А ить и не подозревал об IWebBrowserApp.. Исчо раз Пасиб!]]> Mechanic Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1197633 Mon, 31 Jul 2006 07:03:57 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1197633 Цитата Mechanic @
Именно это и использовал. Только есть одна досадная вещь в таком вызове: когда папка уже открыта в окне, то позиционирования не происходит.

Да в принципе путь то нам известен? Известен, посему делаем финт хвостом:

    uses ..., SHDocVw;
     
    function OpenExplorerAndSelectFile(Path: String): Boolean;
     
      function ParceURLName(const Value: String): String;
      const
        scFilePath: array [0..7] of Char = ('f', 'i', 'l', 'e', ':', '/', '/', '/');
      begin
        if CompareMem(@scFilePath[0], @Value[1], 8) then
        begin
          Result := Copy(Value, 9, Length(Value));
          Result := StringReplace(Result, '/', '\', [rfReplaceAll]);
          Result := StringReplace(Result, '%20', ' ', [rfReplaceAll]);
          Result := IncludeTrailingBackslash(Result);
        end
        else
          Result := Value;
      end;
     
    var
      iShellWindow: IShellWindows;
      iWB: IWebBrowserApp;
      spDisp: IDispatch;
      I: Integer;
      S, FilePath, FileName: String;
    begin
      Result := FileExists(Path);
      if not Result then Exit;
      FilePath := AnsiUpperCase(ExtractFilePath(Path));
      FileName := ExtractFileName(Path);
      iShellWindow := CoShellWindows.Create;
      for I := 0 to iShellWindow.Count - 1 do
      begin
        spDisp := iShellWindow.Item(I);
        if spDisp = nil then Continue;
        spDisp.QueryInterface(IWebBrowserApp, iWB);
        if iWB <> nil then
        begin
          S := ParceURLName(iWB.LocationURL);
          if AnsiUpperCase(S) = FilePath then
          begin
            SendMessage(iWB.HWnd, WM_SYSCOMMAND, SC_CLOSE, 0);
            Break;
          end;
        end;
      end;
      ShellExecute(0, 'open', 'explorer.exe',
        PChar('/select, ' + FileName), PChar(FilePath), SW_SHOWNORMAL);
    end;
     
    procedure TForm18.Button4Click(Sender: TObject);
    begin
      if not OpenExplorerAndSelectFile('c:\windows\notepad.exe') then
        ShowMessage('Файл не найден.');
    end;


Это проще чем искать по заголовку.]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1197016 Sun, 30 Jul 2006 10:39:53 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1197016 Алексей Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196897 Sun, 30 Jul 2006 06:27:45 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196897 Цитата Алексей @
а ты перед этим закрывай окно

Красиво сказано.. ;) Только как это окно найти потом?

user posted image]]> Mechanic Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196799 Sat, 29 Jul 2006 19:05:15 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196799 Алексей Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196596 Sat, 29 Jul 2006 15:13:04 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1196596 Цитата Rouse_ @
    ShellExecute(Handle, 'open', 'explorer.exe', '/select, hh.exe', 'c:\windows', SW_SHOWNORMAL);


Пасиб. Именно это и использовал. Только есть одна досадная вещь в таком вызове: когда папка уже открыта в окне, то позиционирования не происходит. Просто идёт реюз окна с сохранением текущего выделения в нём.
В принципе, с этим можно жить.. :) Вопрос решен.]]> Mechanic Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1187085 Fri, 21 Jul 2006 13:48:16 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1187085
    ShellExecute(Handle, 'open', 'explorer.exe', '/select, hh.exe', 'c:\windows', SW_SHOWNORMAL);
]]> Rouse_ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185970 Fri, 21 Jul 2006 01:16:07 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185970 Цитата Тестировщица @
http://www.sources.ru/cpp/mfc/t5774.htm не поможет?

Похоже на то, что может. Только это не шибко похоже на простой путь.. :o
Мало того, что мне нужно открыть окно, потом найти в нём ещё сам CListCtrl, потом нужно ещё найти соответствующий моему файлу Item (итерачиться через все with GetNextItem :unsure: )...

Ну, ежели ничего другого не нарисуется, то можно и это будет попробовать.
Пасиб, Тестировщица.]]> Mechanic Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185941 Thu, 20 Jul 2006 22:45:27 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185941 Тестировщица Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185927 Thu, 20 Jul 2006 22:05:47 +0000 Как выделить файлы в Проводнике https://forum.sources.ru/index.php?showtopic=148997&view=findpost&p=1185927 Просто открыть окно - не вопрос. И открыть файл тоже. А вот на пол-пути чтоб остановиться?
Нужно открыть окно "Мой компьютер" или "Проводник", в котором будет выбран нужный файл (или группа).]]> Mechanic Delphi: Система, Windows API