(投稿者削除)
れんくん 2013/5/22(Wed) 18:50:20|NO.54211
この記事は投稿者により削除されました。
2013/5/24(Fri) 00:12:07
inovia 2013/5/22(Wed) 23:15:57|NO.54216
#module
#uselib "Ntdll"
#func NtQueryObject "NtQueryObject" int, int, int, int, int
#uselib "kernel32"
#cfunc GetCurrentProcess "GetCurrentProcess"
#define ObjectBasicInformation 0
#defcfunc GetProcessRefarencecount
ret = 0
dim PUBLIC_OBJECT_BASIC_INFORMATION, 14
NtQueryObject GetCurrentProcess(), ObjectBasicInformation, varptr(PUBLIC_OBJECT_BASIC_INFORMATION), 14*4, varptr(ret)
return PUBLIC_OBJECT_BASIC_INFORMATION.2
#global
mes GetProcessRefarencecount()
定期的に GetProcessRefarencecount() を実行して値が変化していたら、
ダイアログを出すなり終了するなりすればよいかと。