Работа с консолью.

[Mikle]

Тут есть куча примеров работы с консолью, но это СОЗДАНИЕ своей консоли. А можно ли работать с той консолью, из которой запущена программа? Достоточно только на вывод. Например, я запустил командную строку, из неё запустил свою программу на VB6, мне нужно вывести сообщение в то окно, откуда программа запущена.

[Хакер]

Конечно.

1. С помощью найденного мною трюка указать subsystem=console. Этот пункт опционален, я почти уверен, что и без него всё будет работать, но без него, если программа была запущена не из консоли, а просто так — все функции будут работать с ошибками. С ним же не важно, были ли программа запущена уже из консоли или же была запущена сама по себе. Будет либо унаследована родительская консоль, либо создана новая.
2. Получить хендлы консоли (stdin, stdout, stderr) функцией GetStdHandle.
3. Писать/читать в/из консоли стандартными функциями ReadFile/WriteFile как в обычный файл.

[Mikle]

Получить хендлы консоли (stdin, stdout, stderr) функцией GetStdHandle.

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

Public Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long

Не понятно, как получить "stdin, stdout, stderr", что это за величины? Среди типов и констант в API Viewer их нет.
Но, может быть, мы глубоко копаем? Мне всего-то нужно, чтобы программа по завершении вывела в консоль, из которой запущена, одну строку сообщения. Может есть какие-то коды возврата, как есть Command$ для доступа к входящим параметрам? Хотя, подозреваю, что Win32 программы, в отличие от DOS-программ, после запуска получают отдельный поток и теряют связь с консолью.

[iGrok]

Не понятно, как получить "stdin, stdout, stderr", что это за величины? Среди типов и констант в API Viewer их нет.

Майкл, ну уж от тебя-то..
http://msdn.microsoft.com/en-us/library ... 83231.aspx

[Mikle]

Тупанул
Привык, что в API Viewer всё есть.

[Хакер]

Не понятно, как получить "stdin, stdout, stderr", что это за величины?

Хендлы. Причём коммуникационные хендлы. То есть существует семейство хендлов, отождествляющие объекты, в которые можно читать и писать. То есть файлы, пайпы, сокеты, порты, диски, ленточные стримеры и т.п.

Может есть какие-то коды возврата, как есть Command$ для доступа к входящим параметрам?

Нет. Код возврата есть, но это числовой код, который возвращает WinMain. Нет ничего подобного в системе как возврат текстовый сообщений. Есть просто чтение/запись в объект, поддерживающий IO-операции.

GetStdHandle возвращает хендлы чего-то, во что можно писать и откуда можно писать. Ты даже не знаешь что это. Это будет консоль, если твою программу запустили просто так.
Это будет хендл файла, если твою программу запустили так:
your_program.exe > output.txt
Это бужет хендл пайпа, если твою программу запустили из командной строки так:
some_program.exe | your_program.exe | third_program.exe

Хотя, подозреваю, что Win32 программы, в отличие от DOS-программ, после запуска получают отдельный поток и теряют связь с консолью.

Сравнение с досом совершенно неадекватное. Ужасно, что все сравнивают консольные Windows-приложения с DOS-программами на том основании, что DOS-программы получают при запуске такой же окно, как и консольные Windows-приложения.

Конечно каждый процесс (не важно, консольный он, или это Half-Life) имеет свой новый поток. И все консольные приложения, порождённые друг-от-друга без особых мер, имеют равный доступ консоли. Так что могут, например, одновременно работая, выводить в консоль кашу-малашу.

[Хакер]

Вообще ничего сложного, например пример за пару минут:

[Mikle]

Благодарю, то, что нужно.

[uni]

Есть уже готовые модули для этого. Я использовал их в своей программе PipeCalc (консольная).
Вот ссылка на сообщение: - добавлены модули поддержки консоли от Karl E. Peterson: MEnvVars.bas, MConsole.bas;
Как использовать: Application.cls

[Хакер]

Стоит конечно иметь модуль на 2000 строк ради того, что решается десятью строчками.