bsa, ну почему-же нельзя вот в билдере. Только первую программу закрыть надо дав фокус консольке, и нажaв Enter, иначе ошибка!| Код | // Borland C++ Builder 6 Console Projects !!!!!!!!!!
#include <vcl.h> #include <iostream.h>
void main() { TForm *form = new TForm(Application); form->Show(); // Вывод формы... cout<<"Press ay key to contnue"; cin.get(); }
|
А это создание сонсольного окошка из "формы", только пример глючный тоже, если попробовать закрыть консоль, нажав на ней "крестик", программа тоже с ошибкой завершается.| Код | //----Borland C++ Builder 6 Application Form----------------- // Файл Unit1.cpp #include <vcl.h> #pragma hdrstop
#include "Unit1.h"
#include <iostream.h> #include <io.h> #include <fcntl.h>
//--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { // Создаём консоль FreeConsole(); AllocConsole(); int hCrt = _open_osfhandle((long) GetStdHandle(STD_OUTPUT_HANDLE), _O_TEXT); *stdout = *(::_fdopen(hCrt, "w")); ::setvbuf(stdout, NULL, _IONBF, 0); *stderr = *(::_fdopen(hCrt, "w")); ::setvbuf(stderr, NULL, _IONBF, 0); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClick(TObject *Sender) { Close(); // если на форму нажать - закрыть всё. } //---------------------------------------------------------------------------
|
http://worldcpp.vingrad.ru/ Nobel88 поройся здесь, может в попке консоль чего найдёшь. |