Posted By: rk (dots) on 'CZprogram' Title: Re: Zjisteni Win v pameti Date: Tue Jun 9 12:28:16 1998 Jestli to funguje i na inkognito mod, to nevim, ale zkusit to muzes: program IsWin; var Is : Boolean; Lo_, Hi_ : byte; Verse : word; procedure IsWin_;assembler; asm {} mov ax, 4680h int 2Fh cmp ax, 00h jz @n2 mov ah, 16h xor al, al int 2Fh cmp al, 00h jz @winoff cmp al, 80h jnz @winon @winoff: xor ax, ax jmp @konec @winon: cmp al, 1 jnz @n1 mov al, 2 jmp @konec @n1: cmp al, 0FFh jnz @konec mov al, 2 jmp @konec @n2: mov al, 3 xor ah, ah @konec: xchg al, ah mov verse, ax end; {} begin {Main} IsWin_; WriteLn ('Verse Windows: ',Hi (Verse),'.',Lo (Verse)); end. {Main} vecne nespokojeny rk ----------------------------------------------------------------------------- ,,Free will is a bitch.`` --Devil in The Devil's Advocate-- ----------------------------------------------------------------------------- Where do foxes give Good night?