По нажатию обеих кнопок мыши выход из программы

[Slash3]

Помогите исправить текст программы...

uses crt;

type TMouseInfo=record
            		activeFlag:integer;
					x,y,dx,dy:integer;
    				mouseButtonsState:integer;
				    dataSegment:integer;
				end;
var
    mouseInfo:TMouseInfo;


function int2str(int:integer):string;
var sint:string;
begin
	str(int, sint);
    int2str:=sint;
end;

procedure asmInitMouse;assembler;
asm
    mov AX,0000H
    int 33H
end;

procedure asmShowCursor;assembler;
asm
	mov AX,0001H
    int 33H
end;

procedure asmHideCursor;assembler;
asm
	mov AX,0002H
    int 33H
end;


procedure asmGetMouseClickInfo(var x,y,clickCount:integer);assembler;
asm
	mov AX,0005H
    mov BX,0000H
    int 33H

    mov AX,BX
    les	DI,clickCount
    stosw

    mov AX,CX
	les	DI,x
    stosw

    mov AX,DX
	les	DI,y
    stosw
end;

procedure asmGetMouseReleaseInfo(var x,y,clickCount:integer);assembler;
asm
	mov AX,0006H
    mov BX,0000H
    int 33H

    mov AX,BX
    les	DI,clickCount
    stosw

    mov AX,CX
	les	DI,x
    stosw

    mov AX,DX
	les	DI,y
    stosw
end;

procedure asmGetTypeMouse(var driverVersionLow,driverVersionHigh,mouseType,usedIRQ:integer);assembler;
asm

	mov AX,0024H
    int 33H

    xor AH,AH

    mov AL,BL
	les	DI,driverVersionLow
    stosw

    mov AL,BH
	les	DI,driverVersionHigh
    stosw

    mov AL,CH
	les	DI,mouseType
    stosw

    mov AL,CL
	les	DI,usedIRQ
    stosw
end;

{procedure asmMouseEventDriver;assembler;
asm
   	mov mouseInfo.activeFlag,1
    mov mouseInfo.mouseButtonsState,BX
    mov mouseInfo.x,CX
    mov mouseInfo.y,DX
    mov mouseInfo.dataSegment,DS
end;


procedure asmSetMouseEventDriver(mask:integer;driver:pointer);assembler;
asm
    mov	AX,0CH
    mov CX,mask
    mov DX,offset driver
    int 33H
end;}

procedure asmSetCursor(code:byte);assembler;
asm
	mov AX,000aH
    mov BX,0000H
    mov CX,7000H
    mov DL,code
    mov DH,07H
    int 33H
end;


procedure getMouseClickInfo(var x,y,clickCount:integer);
begin
    asmGetMouseClickInfo(x,y,clickCount);
end;

procedure getMouseReleaseInfo(var x,y,clickCount:integer);
begin
    asmGetMouseReleaseInfo(x,y,clickCount);
end;

procedure _drawWindow(x1,y1,x2,y2,bgcolor,txtcolor:integer);
begin
	window(x1,y1,x2,y2);
    textBackGround(bgcolor);
    textColor(txtcolor);
    clrscr;
end;

procedure _drawAllWindows;
begin
    textBackGround(black);
    clrscr;
end;

procedure putChar(ch:char;x,y:integer);
begin
 	gotoxy(x,y);
    write(ch);
end;

const Esc=#27;
var ch:char;
	x,y,clickCount:integer;
    driverVersionLow,driverVersionHigh,mouseType,usedIRQ:integer;

begin
    _drawAllWindows;
    asmInitMouse;
    asmShowCursor;
    ch:='A';
    asmSetCursor(ord(ch));
    {asmSetMouseEventDriver(2,@asmMouseEventDriver);}
    asmGetTypeMouse(driverVersionLow,driverVersionHigh,mouseType,usedIRQ);

    write(driverVersionLow);
    write(' - ');
    write(driverVersionHigh);
    write(' - ');
    write(mouseType);
    write(' - ');
    writeln(usedIRQ);
    repeat
        repeat
			getMouseClickInfo(x,y,clickCount);
            if clickCount>0 then
            	begin
                	asmHideCursor;
					putChar(ch, (x div 8)+1, (y div 8)+1);
                	ch:=chr(ord(ch)+1);
                    asmSetCursor(ord(ch));
                    asmShowCursor;
                    repeat
                    	getMouseReleaseInfo(x,y,clickCount);
                    until clickCount>0;
                end;
			{if (mouseInfo.activeFlag=1) and (odd(mouseInfo.mouseButtonsState)) then
            	begin
                	mouseInfo.activeFlag:=0;
                	putChar(codeChar);
                	inc(codeChar);
                    asmSetCursor(codeChar);
                end;}

        until keyPressed;
		ch:=readkey;
    until ch=Esc;
    {asmSetMouseEventDriver(0,@asmMouseEventDriver);}
    asmHideCursor;
end.

[Min]

Ivan_32, извини, но ты неправ...
В сеансе MS-DOS никто не запрещает вызывать прерывания. Иначе бы ни одно DOS-приложение не работало. Запрет идет на регистры защищенного режима, прямое обращение к портам ввода-вывода и подобные вещи. Прерывание 33h разрешено.
Slash3, Вы используете функции 5 и 6..... Лучше в таких случаях ставить обработчик через 0Ch хотя бы. Либо использовать грубую 3-ую функцию и проверять равенство BX с 3.

[Slash3]

Ребята я в этом не чего не понимаю(((( не могли бы вы подробнее как то расписать((

[Min]

вот функция:
возвращает true если нажаты обе кнопки, иначе - false

function ClickedBoth():boolean;
var butt:integer;
begin
 asm
  mov ax,3
  int 33h
  mov butt,bx
 end;
 if butt=3 then ClickedBoth:=true
 else ClickedBoth:=false;
end;

и сделай вместо "until ch=Esc;" - "until ClickedBoth()"

[Slash3]

Проблемка... ошибка Error 113: Error in statement.

[Stilet]

Проблемка...

какая ж это проблема? Это же просто ошибка ни на какой строке...
Или ты думаеш что сдесь телепаты?

[Min]

Кажется понял где косяк. butt сделай не integer а word

[Slash3]

Пишет Identifier expected. Курсор мигает рядом со скобочками ClickedBoth()

[Min]

а саму функцию ты впихнул?
до основного тела программы...... перед const например

[Slash3]

Да конечно... все равно не работает не хватает чего то в скобках(((