Главная страница
    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.043 c
1-1175692451
Damager
2007-04-04 17:14
2007.06.03
TJvCheckTreeView


15-1178706726
Галинка
2007-05-09 14:32
2007.06.03
А как ноныче делаются блок-схемы ??


15-1178527043
Ega23
2007-05-07 12:37
2007.06.03
Нужна приблуда.


2-1179077945
..::KraN::..
2007-05-13 21:39
2007.06.03
Поиск количества тегов в TSynEdit


11-1160727895
AndreyRus
2006-10-13 12:24
2007.06.03
Прикол от Taddy :)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский