Получить что-нибудь назад

[RaFaeL]

Как вариант - создать dll и в Кларионе пользоваться как внешней либой.

Не получится там так, см. ссылку. По крайней мере просто

Может попробовать через Named Pipe? Там функции используются CreateFile, ReadFile и т.п. только файла как бы нет.
http://www.frolov-lib.ru/books/bsp/v27/ch2_3.htm

[Shur]

"Hello, World!"

Если сообщение всегда одно, то для этого лучше использовать код возврата. Команда RUN() их, кажется, читать умеет.

Там функции используются CreateFile, ReadFile и т.п. только файла как бы нет.

Это тоже можно делать проще. Есть такие команды DOS как MKDIR и RMDIR -- файла вроде нет, открывать его не надо, читать тоже.

[Дед Пахом]

Кстати, CLIPBOARD(CF_XXX) может возвращать не только текст (не помню, с какой версии это стало возможным), так что можно в vpf программе вставить в буфер что-то нетекстовое (чтоб наверняка не затереть важную информацию), а в Кларионе этот буфер прочитать.

[RaFaeL]

Так буфер же один, все равно затрет

[Дед Пахом]

Так буфер же один, все равно затрет

Нифига, для каждого формата свой буфер.

[vd-vuf]

Порыть что нидь около api типа SendMessage, с разгону сложно, зато интересно
https://msdn.microsoft.com/en-us/librar ... s.85).aspx

[Дед Пахом]

Нифига, для каждого формата свой буфер.

Нет, это я кажется погорячился.

[Yufil]

В старые добрые времена в Кларионовской программе можно было запустить DDE-сервер, а снаружи отправить на него сообщение. Интересно, это ещё возможно?

[Admin]

Интересно, это ещё возможно?

Да.

[Yufil]

Тогда, возможно, и не стоит обсуждать другие варианты...

[vic7tar]

vic7tar писал(а):
Источник цитаты "Hello, World!"

Если сообщение всегда одно, то для этого лучше использовать код возврата. Команда RUN() их, кажется, читать умеет.

Извините, пошутил. Ну просто нужен кусочек памяти, доступный для разных процессов и куда можно пихать и брать все что угодно. Смотрю в сторону CreateFileMapping.
Кстати, насчет Clipboard. А кто-нибудь пробовал с помощью Clipboard перетащить данные, например, из VM в основную?

[Yufil]

Нашёл древний класс, который разбирает Clipboard и выкладывает в очередь "Код типа-наименование типа-значение". Потом из очереди можно выдернуть нужную (например, можно забрать в буфер документ Word и выбрать оттуда строку в RTF) . Можно, наоборот, очередь закинуть в буфер обмена, если он был испрорчен почему-то. Можно сформировать HTML Clipboard, для вставки форматированного текста.
Если интересно, закину в файлохранилище...

[dik1970]

Почему-то не работает конструкция: run('wmic diskdrive get SerialNumber|clip'). Из-под CMD - все хорошо, серийник попадает в clipboard.

[Игорь Столяров]

Из-под CMD - все хорошо, серийник попадает в clipboard

Почему бы просто не получить серийный номер HDD традиционным способом ?
И делайте с ним, что хотите ...

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

   Module('Windows')
     GetVolumeInformation(*CSTRING,<*CSTRING>,ULONG,*ULONG,*ULONG,*ULONG,*CSTRING,ULONG),SIGNED,PASCAL,RAW,NAME('GetVolumeInformationA')
   end

GetHDDNumber          PROCEDURE
RootPathName            CSTRING(4)
VolumeNameBuf           CSTRING(20)
VolumeNameSize          ULONG(20)
VolumeSerialNumber      ULONG
MaxCompLeng             ULONG
FileSysFlags            ULONG
FileSysNameBuf          CSTRING(20)
FileSysNameSize         ULONG(20)
  CODE
  RootPathName = 'C:\'
  If GetVolumeInformation(RootPathName,VolumeNamebuf,VolumeNameSize,VolumeSerialNumber,MaxCompLeng,FileSysFlags,FileSysNameBuf,FileSysNameSize).
  Return(VolumeSerialNumber)

[kreator]

Run не всё запускает также, как командная строка. Run скорее похож на ShellExecute. Возможно и запускает ShellExecute. И я тоже использую GetVolumeInformation, только у меня модуль "WinAPI".