IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Про консоль, Использование оной из GUI
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


С возвращением! Я сразу с вопросом - допустим, процедура:
 
procedure Delete;

var

Console:Handle;
Dummy:PSecurity_Attributes;

begin

Dummy:=nil; //этот способ я взял с freepascal.ru , если ставить непосредственно в функцию - компилятор
//ругаеццо

AllocConsole;

Console:=CreateConsoleScreenBuffer(GENERIC_READ+GENERIC_WRITE,
0,Dummy^,CONSOLE_TEXTMODE_BUFFER,nil);

SetConsoleActiveScreenBuffer(Console);

write('Некий текст');

readkey;

FreeConsole;

end;




При её вызове (вследствие нажатия на кнопку) открывается окно консоли, но текста в нем нет. Более того, если закрываю консоль, то закрывается и приложение.

Скажите, пожалуйста, что не так?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.11.2021 22:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name