-----Original Message-----
From: I Putu Gede Darmawan <[EMAIL PROTECTED]>
>
>Mo nanya nih gimana caranya ngedeteksi pake Pascal , apakah program kita
itu
>di jalankan , Emang dari Comand Prompt Only atau dari MS-DOS promptnya
>Windows..
contoh yang diambil dari SWAG
Type
Win3ModeType = (NoWin, RealStd, Enhanced);
Function CheckForWin3 : Win3ModeType; Assembler;
Asm
mov ax,1600h
int 2Fh
cmp al,1
jbe @@CheckRealStd
cmp al,80h
jae @@CheckRealStd
mov al,2
jmp @@ExitPoint
@@CheckRealStd:
mov ax,4680h
int 2Fh
or ax,ax
jnz @@notWin
mov al,1
jmp @@ExitPoint
@@notWin:
xor al,al
@@ExitPoint:
end;
------------------------------------------------------------------------
Forum Komunikasi Penulis-Pembaca MIKRODATA (FKPPM)
Informasi : http:[EMAIL PROTECTED]
Arsip : http://www.mail-archive.com/forum%40mikrodata.co.id/
WAP : http://mikrodata.co.id/wap/index.wml
Milis ini menjadi kontribusi beberapa rubrik yang diasuh tim MIKRODATA.
Termasuk rubrik-rubrik yang ada di media lain.
Memakai, Menyebarluaskan, dan Memperbanyak software bajakan adalah
tindakan kriminal.
Please check with the latest AVP update before you ask about virus:
ftp://mikrodata.co.id/avirus_&_security/AntiViral_Toolkit_Pro/avp30.zip
