Vypnutie X vo vlastnostiach okna – Pascal – Fórum – Programujte.com

Mam tu jeden zdrojak pomocou ktoreho chcem vypnut X v pravom hornom rohu... aby ked nanho niekto klikne, program sa ho najprv opyta ci chce vazne ukoncit program... ale je tu jeden hacik... ak to spustim vo free pascale tak mi vyhodi chybu exitcode 216 a neviem s tym pohnut pretoze netusim kde moze byt chyba... tak vas prosim skuste mi pomoct... ten zdrojak...

[color=green]
Uses crt;
var zn:char;

{$asmmode intel}

Procedure EnableClose;
Begin
Asm
mov ax,168Fh
mov dx,1
Int $2F
End;
End;

Procedure DisableClose;
Begin
Asm
mov ax,168Fh
mov dx,0
Int $2F
End;
End;

Procedure AcknowledgeClose;
Begin
Asm
mov ax,168Fh
mov dx,$200
Int $2F
End;
End;

Procedure CancelClose;
Begin
Asm
mov ax,168Fh
mov dx,$300
Int $2F
End;
End;

Function QueryClose: word;
Var A: word;
Begin
Asm
mov ax,168Fh
mov dx,$100
Int $2F
mov A,ax
End;
QueryClose:=A;
End;


Begin
EnableClose;
Repeat
If QueryClose=0 then
Begin
AcknowledgeClose;
CancelClose;
Writeln('Opravdu ukon?it? (A/N)');
zn:=Readkey;
If (zn='a') or (zn='A') then Halt;
End;
Until Keypressed;
End.
[/color]???

Mozem ti len poradit ze exitcode216 je General Protection fault. Ale neviem kde je problem

a tebe to funguje? skusil si to spustit alebo skompilovat?

Skompilujem to ale ked to spustim tak mi vyhodi ten exitcode ako si hovoril :(

hmm tak asi to ukazem ucitelovi informy... ale ten asi assembler neovlada... tak uz fakt neviem... som myslel ze tu na fore su riadni machri... ale tha co uz