标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
ECURITY_ATTRIBUTES, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long \'创建一个新的文件映射对象
Private Declare Function CloseHandle Lib \"kernel32\" (ByVal hObject As Long) As Long \'关闭一个内核对象
Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Const PAGE_READWRITE = 1
Const ERROR_ALREADY_EXISTS = 183&
建立判断程序是否多启动的过程
Sub Main()
Dim ynRun As Long
Dim sa As SECURITY_ATTRIBUTES
sa.bInheritHandle = 1
sa.lpSecurityDescriptor = 0
sa.nLength = Len(sa)
ynRun = CreateFileMapping(&HFFFFFFFF, sa, PAGE_READWRITE, 0, 128, App.title) \'创建内存映射文件
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then \'如果指定内存文件已存在，则退出
CloseHandle ynRun \'退出程序前关闭内存映射文件
End
End If
End Sub
（2）即时监视，就需要在系统启动时，程序自启动，这里使用修改注册表的方法
声明变量、过程及 A ..
下页 上页
回复本帖|发新话题
回复列表 (6)
#1 根本没人看。
[芗城土著 8/13 21:32]
#2 不是没人看是他们看不懂！~！
[小色猫 8/13 23:35]
#3 看来你是看懂了。。我怎么看的 ..
[丸子 8/13 23:58]
#4 你来了啊怎么我发的文章总被删啊
[小色猫 8/14 00:14]
#5 这个问题你已经从市长办公室问 ..
[微蓝 8/14 00:20]
#6 什么呀！！！
看不懂
[被淹的鱼儿 9/1 22:59]
<<下一主题
>>上一主题
返回版块