Pascal. Выход из программы по Alt-X
Сделать выход из программы при нажатии клавиш Alt+X или Alt+x
Edct господа извинете за беспокойство нашел как ето сделать:
Uses crt;
var
ch:char;
x:integer;
begin
clrscr;
Writeln('Dly Vihoda is programmi najmite ALt+X ili Alt+x');
repeat
if keypressed then
begin
ch:=readkey;
if ch=#0 then ch:=readkey;
end;
until ch=#45;
end.
Uses crt;
var
ch:char;
x:integer;
begin
clrscr;
Writeln('Dly Vihoda is programmi najmite ALt+X ili Alt+x');
repeat
if keypressed then
begin
ch:=readkey;
if ch=#0 then ch:=readkey;
end;
until ch=#45;
end.