TwoProcessLibary
所属分类：系统编程
开发工具：Visual Basic
文件大小：44KB
下载次数：8
上传日期：2010-07-30 21:57:37
上 传 者：
ihitu
说明： 双进程守护开发库
VB 声明
Private Declare Sub StartMon Lib "MonHelper.dll" ()
Private Declare Sub StopMon Lib "MonHelper.dll" ()
Private Declare Function IsMainAPP Lib "MonHelper.dll" () As Boolean
Delphi 声明
procedure StartMon stdcall external MonHelper.dll
procedure StopMon stdcall external MonHelper.dll
function IsMainAPP:Boolean stdcall external MonHelper.dll
StartMon//开启进程守护
StopMon//停止进程守护
IsMainAPP// True=主进程 False=守护进程
(Two-process daemon development library VB declaration Private Declare Sub StartMon Lib " MonHelper.dll" () Private Declare Sub StopMon Lib " MonHelper.dll" () Private Declare Function IsMainAPP Lib " MonHelper.dll" () As Boolean Delphi declaration procedure StartMon stdcall external ' MonHelper.dll' procedure StopMon stdcall external ' MonHelper.dll' function IsMainAPP: Boolean stdcall external ' MonHelper.dll' StartMon// open the process of protecting StopMon// stop the process of protecting IsMainAPP// True = False = daemon main process)
文件列表:
MonHelper.dll (42496, 2010-07-30)
MonProcess.exe (5632, 2010-07-30)
MonProcess.vbp (666, 2010-07-30)
MonProcess.vbw (45, 2010-07-30)
Form1.frm (1090, 2010-07-30)
双进程守护开发库
VB 声明
Private Declare Sub StartMon Lib "MonHelper.dll" ()
Private Declare Sub StopMon Lib "MonHelper.dll" ()
Private Declare Function IsMainAPP Lib "MonHelper.dll" () As Boolean
Delphi 声明
procedure StartMon;stdcall;external 'MonHelper.dll';
procedure StopMon;stdcall;external 'MonHelper.dll';
function IsMainAPP:Boolean;stdcall;external 'MonHelper.dll';
StartMon//开启进程守护
StopMon//停止进程守护
IsMainAPP// True=主进程 False=守护进程
'**************************************************************************************************************
Option Explicit
Private Declare Sub StartMon Lib "MonHelper.dll" ()
Private Declare Sub StopMon Lib "MonHelper.dll" ()
Private Declare Function IsMainAPP Lib "MonHelper.dll" () As Boolean
Private Sub Command1_Click()
StopMon '停止守护进程
End '退出程序
End Sub
Private Sub Form_Load()
StartMon '开启监护
If Not IsMainAPP Then '如果是守护进程就隐藏窗口
Me.Visible = False
End If
End Sub
'**************************************************************************************************************
近期下载者：
相关文件：
收藏者：