Yams
|
 Posted: Sun Dec 10, 2006 15:26 Post subject: Получение списка выделенных файлов сторонними утилитами |
 |
|
Доброго времени суток.
Решил выложить здесь свои небольшие наработки, суть наработок - получение сторонними программами (не плагинами) списка выделенных файлов от Total Commander.
Для начала - немного теории.
На настоящий момент существует следующая проблема: от TC очень сложно получить список выделенных файлов. Одним способом является отсылка команды CM_CopyFullNamesToClip = $7E2:
| Code: |
// 1. Хэндл окна Total Commander
TCHnd:= FindWindow('TTOTAL_CMD', Nil);
// 2. Получаем список выделенных файлов
if TCHnd<>0 then
begin
SaveClipboard; // сохраняем буфер обмена
SendMessage(TCHnd, EM_DISPLAYBAND, CM_CopyFullNamesToClip, 0); // после этой команды в буфере обмена находится список выделенных файлов
try
S:= Clipboard.AsText; // получаем этот список
except
on E: Exception do S:='';
end;
RestoreClipboard; // восстанавливаем буфер обмена
end;
|
Достоинство этого кода - его экономичность. Недостаток находится в процедурах SaveClipboard и RestoreClipboard. Дело в том, что у буфера обмена нет функции сохранения себя в какое-нибудь резервное место. Также нет возможности обратиться к буферу обмена как к некоей RAW-области памяти, чтобы просто считать целиком информацию оттуда, независимо от типа информации, и потом восстановить эту информацию таким же образом.
Возможно, на самом деле способ существует, и если вам известен этот способ, то огромная просьба - сообщите об этом.
Таким образом, в функции SaveClipboard необходимо определить тип содержащейся там информации (всего типов 65536) и правильно эту информацию сохранить. Позже, в функции RestoreClipboard, сохранённый блок требуется вернуть на место.
Недавно вышла новая версия Total Commander'а, в которой эта проблема была частично решена. В history.txt было зявлено следующее:
| Quote: | 15.09.06 Release Total Commander 7.0a10 (alpha test version 10)
...
15.09.06 Added: Support for accessibility tools (e.g. for blind users) to main lists+separate tree+sync+CD-Tree, allows to retrieve current line via LB_GETTEXT |
В версиях 6.5x и ранее действительно нельзя было получить список файлов, использую Windows-команду LB_GETTEXT: вместо ожидаемых строк на выходе оказывались ссылки на неизвестный мне тип информации. Вообще говоря, этого и стоило ожидать: Ghisler использует возможности ListBox'a по максимуму, и свойство OwnerDraw давно уже было установлено в True.
Но в версии 7.0 public beta 1, которой я сейчас и пользуюсь, появилась возможность получить при помощи LB_GETTEXT список выделенных файлов. Предлагаю вашему вниманию код (скачать можно здесь), показывающий способ использования этой возможности. Данный код написан на языке Object Delphi (кажется, теперь так Object Pascal называется). Основная часть размещена в .dpr - файле, связано это с особенностью работы функции GetForegroundWindow.
К сожалению, этот способ также имеет свои недостатки. На настоящий момент недостатков два, и все они связаны с видом строк, возвращаемых от TC.
Рассмотрим пример. Выделено 2 файла:
1.bmp 10000б дата_создания время_создания атрибуты
2.bmp 12500б дата_создания время_создания атрибуты
Проблема 1: TC возвращает строки в зависимости от набора колонок. При кратком виде отображения результирующие строки будут:
При подробном виде результат будет следующим:
| Code: | 1.bmp 10000 дата_создания время_создания атрибуты
2.bmp 12500 дата_создания время_создания атрибуты
|
В случае, если пользователь сменит набор колонок и вначале будут стоять не колонки имя/расширение, а какие-то другие, то этот способ уже работать не будет: функция GetFullFileName (см. ссылку) будет отрабатывать неправильно.
Проблема 2: ТС возвращает строки, в которых значения столбцов отделены друг от друга символом ПРОБЕЛ. Это очень сильно затрудняет работу, так как пользователь может использовать пробел в именах файлов.
Но это нововведение с LB_GETTEXT уже сейчас здорово облегчило работу программистам, пишущим утилиты для TC.
P.S. Я написал письмо Ghisler'у, где изложил свои сображения по этому поводу. Одним из соображений была замена пробела на табулятор (#9), таким образом будет решена проблема №2.
P.P.S. Отсюда можно загрузить исполняемый файл, в архивах выше только исходный код.
_________________
In Pascal we trust |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
