|
Тема |
Conzola za wseki :)) |
|
Автор |
SDR (TaskMaster) |
|
Публикувано | 26.08.02 17:34 |
|
|
{
He towa winagi sam iskal da znaq kak da go naprawq i sega weche widqh :))
taka stawa kato se chetat helpowete na posoki - chowek uchi !!
}
program conprg;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
var
console:integer;
ir:TInputRecord;
red:cardinal;
buf:String;
begin
console:=GetStdHandle (STD_INPUT_HANDLE);
repeat
ReadConsoleInput (console,ir,1,red);
if red=0 then begin
sleep (100);
continue;
end;
if ir.EventType=KEY_EVENT then begin
Writeln ('KEY_EVENT: ',ir.Event.KeyEvent.AsciiChar);
if ir.Event.KeyEvent.AsciiChar='q' then break;
end;
if ir.EventType=_MOUSE_EVENT then begin
Writeln ('MOUSE_EVENT: (',ir.Event.MouseEvent.dwMousePosition.X,',',ir.Event.MouseEvent.dwMousePosition.Y,') [',ir.Event.MouseEvent.dwButtonState,']')
end;
if ir.EventType=WINDOW_BUFFER_SIZE_EVENT then begin
Writeln ('WINDOW_BUFFER_SIZE_EVENT : (',ir.Event.WindowBufferSizeEvent.dwSize.X,',',ir.Event.WindowBufferSizeEvent.dwSize.Y,')');
end;
until false;
end.
------------------------------
I got a COMPILER, and I'm not afraid to use it!
p.s. I ako imashe [code] [/code] tagowe shtqhte da widite kolko dobre e podreden koda ma na!Редактирано от SDR на 26.08.02 17:33.
|
| |
|
|
|