Операционно-системный исполняемый дуализм

[GSerg]

Ааааааааа...
Как приятно наконец-то снова дорваться до инета...
Хотя правила, конечно, новые, это ага... Ну ладно.

Сразу глупый вопрос.
Заценив такой рулезный софт, как Regedit, можно отметить, что оный работает как в винде, имея графическую оболочку), так и в досе (с консоли, откуда же ещё ). Спрашивается, какова концепция реализации такой фишечки? То есть чтобы софт и там пахал, и там. Ну вы поняли

[alibek]

Разве он работает под DOS? А консоль это совсем не DOS.
А что касается того, что можно использовать "regedit c:\myconfig.reg", то это просто обработка параметров командной строки, в VB эти параметры возвращает функция Command$().

[GSerg]

Интересно, интересно...
А как же вижуаловскую прогу запустить под досом? Она же тебя пошлёт с формулировкой "This program cannot be run in DOS mode". А Regedit работает. Так вот как же он работает? В нём же визуальная часть есть. Он определяет, что запущен под досом, и визуальную часть не грузит.

[alibek]

А, понял. Ты имеешь ввиду Win9x? Что часть виндовых утилит умеют работать и под DOS? На VB ты такого не сделаешь, это точно.
Просто любая программа (в том числе и виндовая) ЗАПУСКАЕТСЯ под DOS. Но в виндовых программах при запуске проверяется среда, и если прога запущена не под Windows, то выдается сообщение (не могу, мол, работать под DOS) и завершение работы. Но никто не запрещает тебе вместо этого обработчика засунуть полноценный DOS-вариант этой программы. Т.е. при запуске под DOS управление передается DOS-варианту программы, а под Windows запустится виндовый вариант.

[GoGosha]

А, понял. Ты имеешь ввиду Win9x? Что часть виндовых утилит умеют работать и под DOS? На VB ты такого не сделаешь, это точно.
Просто любая программа (в том числе и виндовая) ЗАПУСКАЕТСЯ под DOS. Но в виндовых программах при запуске проверяется среда, и если прога запущена не под Windows, то выдается сообщение (не могу, мол, работать под DOS) и завершение работы. Но никто не запрещает тебе вместо этого обработчика засунуть полноценный DOS-вариант этой программы. Т.е. при запуске под DOS управление передается DOS-варианту программы, а под Windows запустится виндовый вариант.

Для программ на VB это сообщение выглядет так:
This program cannot be run in DOS mod

Но некоторые, я видел, правда не на VB делали другие сообщения.

[Firestorm]

тож такой вопрос возникал когда-то...

или как, например, объяснить, каким образом отображаются контролы (кнопки, текстбоксы и т.п.) при установке виндовса (всё-равно что и разрешение не крутое, и цветов не много, но всё же... типа работа из доса)? как такое зарулить на ВБ?
думаю это чё-то связано не только с досом... возможно при перед установкой (на примере с установкой винды) копируются какие-то фалы для корректной работы, но... даже не знаю... но интересно

[corgi]

2Firestorm: а ведь win3.11 был всего лишь надстройкой для dos'a и там если мне не изменяет память были всякие контролы. К томуже свои контролы написать не представляет труда, тем боле для такой компании как microsoft и потом встроить это дело в setup.
2GoGosha: по мойму можно просто поменять данную строку в exe файле и написать там ТАКОЕ

[Yurich]

В С++ имеется возвожность создания консольных приложений, наверное и 16(8)-битных, которые могут работать в DOS-режиме. Отличительные особенность VB от С++:
1. Написан на С++
2. Рассчитан на работу с базами данных типа .MDB
3. Использует библиотеки MSVBVM50.DLL или MSVBVM60.DLL, которые, в свою очередь опираются на системные библиотеки Windows.

Вывод: написать на VB (имеется ввиду VB для Win) консольное приложение - мартышкин труд.

[Firestorm]

2corgi:
так скока не парился, но 16 битный код у меня не работал в досе... не знаю даже как еще...

[corgi]

2Firestorm: следует различать дос режим, что подрузамевает под собой консольное приложение и чистый дос так как это две баальшие разницы

[Firestorm]

2Firestorm: следует различать дос режим, что подрузамевает под собой консольное приложение и чистый дос так как это две баальшие разницы

ну есть консольки как у дельфы (или borlad cpp), которые не могут работать в досе, но есть и консольки от древних (сравнительно друвних типа asic или qbasic) компиляторов, которые спокойно работают в досе...

[ShadowCaster]

Есть 2 типа ЕХЕ-шников:
1) NewEXE - это виндовские GUI-приложения и консольные (которые только внешне похожи на DOS'овские!).
2) EXE - ДОСовские приложения (DLL и подобными весчами там и не пахнет!)

Так этот пресловутый Regedit.exe запускается как NewEXE консольное приложение, т.е. в "чистом" ДОСе он точняк не запустится

[alibek]

ShadowCaster, совершенно верно
Я только добавлю, что в NewExe можно встроить фрагмент, который будет работать под чистым DOS'ом. Примером такой программы может послужить файл Setup.exe из дистрибутива Win9x

[GoGosha]

Консольные приложения делать можно:

Как подключить консольное окно к приложению Visual Basic
Эта статья демонстрирует подключение консольного окна к приложению Visual Basic, из которого можно записывать в это консольное окно и запускать другие приложения в этом консольном окне.



Пример по шагам
Воспользуйтесь Блокнотом (Notepad) для создания следующего bat-файла:

DIR /W

и сохраните его как C:\TEST.BAT


В Visual Basic создайте новый проект с формой и модулем.


Занесите в модуль следующие объявления API функций:

Option Explicit

Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _
As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal _
nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
lpReserved As Any) As Long

Public Const STD_OUTPUT_HANDLE = -11&





Добавьте на форму кнопку и введите следующий код:

Dim hConsole As Long

Private Sub Command1_Click()
Dim Result As Long, sOut As String, cWritten As Long
sOut = "Hi There" & vbCrLf
Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, _
ByVal 0&)
Shell "C:\TEST.BAT"
End Sub

Private Sub Form_Load()
If AllocConsole() Then
hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT"
Else
MsgBox "Couldn't allocate console"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub





Запустите приложение. Появится пустое окно консоли.


Кликните по кнопке. В консоле должны появиться текст в sOut и вывод из bat-файла.


Закройте форму. Окно консоли должно завершиться.

[Firestorm]

2GoGosha
и чё это? такой пример у меня где-то на харде валяется...

лучшеб показали пример, как в досе запустить всё барахло с контролами (типа как установка винды из доса)...

[GoGosha]

2GoGosha
и чё это? такой пример у меня где-то на харде валяется...

лучшеб показали пример, как в досе запустить всё барахло с контролами (типа как установка винды из доса)...

Открываешь Qbasic и ...

[alibek]

Firestorm, ты хоть сообщения читаешь? Если хочешь визуальные контролы, то делаешь их сам, ручками.
И при установке винды эти контролы не из воздуха беруться. Вначале запускается DOSовская часть, которая устанавливает MiniWin (который берется из mini.cab), и который по сути является Windows 3.11 + Win32s и дальше управление передается в этот MiniWin.

[Санёк]

Ни одна прога под Windows не пойдёт под DOS. В том числе и консольная.

Просто в PE формате есть две проги. Одна под DOS, другая под Windows. Загрузчик Windows определяет, что формат PE и загружает соответствующую прогу. DOS вообще не знает о существовании Windows проги. Для него PE - это обычная прога под DOS, он её и запускает. Теоретически можно засунуть в PE работоспособную прогу под DOS, только не знаю чем. (Руками же EXE править не будешь). Хотя, наверное есть проги для этого. Только эту прогу нельзя писать ни на VB, ни на Delphi, ни на VC. Можно на Basic, pascal, C и т. д.

[Firestorm]

2alibek
читаю... вот и вопрос как такое самомоу сделать...

[alibek]

Firestorm, Санёк и написал, как. Пишешь на (например) Borland Pascal, в нем есть почти визуальная оболочка. Потом полученную прогу встраиваешь в заголовок твоего виндового exe-файла.