Страница 1 из 1

Программный запуск Листера

Добавлено: Чт окт 13, 2005 10:00
Maximus
Можно ли послать Тоталу команду, которая открыла бы Листер, а в нем нужный файл. Если можно, то какую и как ?

Добавлено: Чт окт 13, 2005 13:07
Rulchik
Maximus
cm_List [полный путь к файлу]

Добавлено: Пт окт 14, 2005 10:56
Maximus
2Rulchik
Ну спасибо:)))
А если чесно, то это немного не то, что я хотел узнать.
Под программным запуском я подразумеваю запуск из отдельного приложения или из того же Листера. Имеется в виду нет ли у кого куска кода, который это делает (Делфи, Билдер - неважно).

Добавлено: Вт окт 18, 2005 15:27
Alextp
На сайте Гислера есть отдельная .exe версия листера - не то, что тебе нужно?

А вызвать программно cm_List тоже можно. Вот пример функции, посылающей другое сообщение:

Код: Выделить всё

const
  EM_DISPLAYBAND = WM_USER+51;
var
  h: THandle;
begin
  h:= FindWindow('TTOTAL_CMD', nil);
  PostMessage(h, EM_DISPLAYBAND, 506{cm_XXXX}, 0);
end.

Добавлено: Чт окт 20, 2005 15:57
Maximus
Тут проблема - как передать имя файла
Но все равно спасибо. Может как-то и можна докопаться до истины.

Добавлено: Чт окт 20, 2005 17:46
Alextp
Тут проблема - как передать имя файла
Имя файла попробуй передать вторым параметром сообщения
(последним параметром PostMessage):
PostMessage(h, EM_DISPLAYBAND, cm_List, Integer(PChar(fname)) );