MutexCreate 创建互斥体

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

创建命名互斥体,用于多线程协调任务状态,防止任务多开。

语法

互斥体句柄 = MutexCreate(互斥体名字)

参数

参数 数据类型 解释
互斥体名字 字符串 要创建的互斥体名字。

返回值

整数型,返回创建成功后的互斥体句柄,失败返回0

示例

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Global 互斥体句柄
For 10
Dim TID = ThreadCreate(单线程)
Delay 1000
Next
MutexFree(互斥体句柄)
Sub 单线程()
互斥体句柄 = MutexCreate("单开")
If 互斥体句柄 <> 0 Then
TracePrint "启动线程成功"
For i = 1 to 5
Delay 1000
TracePrint i
Next
Else
TracePrint "该线程正在运行中,无法重复启动"
End If
End Sub

备注