Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Аналог ClrScr & KeyPressed в Delphi   Найти похожие ветки 

 
NovaC   (2006-11-23 08:00) [0]

День добрый!
Если кто знает помогите пожалуста!
Как в консольном приложении в Delphi реализовать
такие простые вещи как:
ClrScr                т.е. очистка экрана
keypresssed : bool;    т.е. нажатие кнопки
например
repeat until keypressed;
В старом добром паскале задумываться об этом не приходилось!
А в Delphi для для замены keypressed  нашел  только громозкие процедуры и функции с использованием:
ReadConsoleInput(GetStdHandle(STD_OUTPUT_HANDLE), IBuff, 1, IEvent);
GetNumberOfConsoleInputEvents(ConsoleInput, NumberOfEvents)

а для CLS такая процедура но она у меня не чистит экран:
procedure Cls;
var
 MaxX, MaxY : Word;
      Coord : TCoord;
       NOAW : DWord;
begin
//  Получаем дескриптор вывода (output)
 ConsoleInput := GetStdHandle(STD_INPUT_HANDLE);
//  Получаем максимальные размеры окна
 Coord := GetLargestConsoleWindowSize(ConsoleInput);
 MaxX := Coord.X;
 MaxY := Coord.Y;
//  Очистка экрана - заполнение его пробелами
 Coord.X := 0;
 Coord.Y := 0;
 FillConsoleOutputCharacter(ConsoleInput, " ", MaxX * MaxY, Coord, NOAW);
//  Установка курсора в координаты X, Y :
 Coord.X := 0;
 Coord.Y := 0;
 SetConsoleCursorPosition(ConsoleInput, Coord);
end;

НЕУЖЕЛИ НЕТ БОЛЕЕ ПОСТОГО ВАРИАНТА !?!?!?


 
Сергей М. ©   (2006-11-23 08:16) [1]


> НЕУЖЕЛИ НЕТ БОЛЕЕ ПОСТОГО ВАРИАНТА


Неужели нет более простой ОС, нежели Windows ?



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.053 c
2-1179233486
MegaVolt
2007-05-15 16:51
2007.06.03
Как вывести WordWrap Disable текст так как это сделано на Button?


15-1178431710
IMHO
2007-05-06 10:08
2007.06.03
Знатокам музыки из кинофильмов


2-1178972587
SKIPtr
2007-05-12 16:23
2007.06.03
Как запустить процедуру


2-1179153856
Gaara_of_the_Desert
2007-05-14 18:44
2007.06.03
Добавление объектов в список.


15-1178201448
Root.Square.Root
2007-05-03 18:10
2007.06.03
Элементарно!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский