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?