如何在 Visual Basic 中使用互斥锁

Question

我已经导入了kernel32库。 所以，我有createMutex函数可用，但我不太确定各种参数和返回值。

这是经典的 Visual Basic，而不是 Visual Basic.NET，但我可能可以以答案的形式使用任何一种语言。

Answer 1

这是CreateMutex的 VB6 声明 - 我只是从 API 查看器中复制它们，您应该将其作为 VB6 安装的一部分。 VB6 使用当前代码页将字符串编组为以空字符结尾的 ANSI。

Public Type SECURITY_ATTRIBUTES
   nLength As Long
   lpSecurityDescriptor As Long
   bInheritHandle As Long 
End Type

Public Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" _
   (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, _
    ByVal lpName As String) As Long

请记住，如果您从 VB6 IDE 创建互斥锁，则该互斥锁属于该 IDE，并且不会在您停止运行程序时被销毁 - 只有当您关闭 IDE 时。

Answer 2

VB 代码如下所示：

hMutex = CreateMutex(ByVal 0&, 1, ByVal 0&)

第一个参数是指向SECURITY_ATTRIBUTES结构的指针。 如果你不知道它是什么，你就不需要它。 传递 NULL (0)。

如果调用线程应获得互斥锁的所有权，则第二个参数为TRUE （非零或 1）。 否则为FALSE 。

第三个参数是互斥锁名称，可能为 NULL (0)，如图所示。 如果您需要一个命名的互斥体，请将名称（任何唯一的）传入。不确定VB包装器是否将带长度前缀的VB字符串类型（ BSTR ）编组为以空字符结尾的 Ascii/Unicode 字符串，如果不是，您将需要要做到这一点，并且有很多例子。

祝你好运！

Answer 3

好吧，根据文档，它看起来像：

1. 安全属性（可以传null）
2. 是否最初拥有（可以传递false）
3. 它的名字

HTH