🚀 go-pugleaf

$B7'C+!wIY;NDLElKLDL?.%7%9%F%`$G$9!#(B

VB4.0$B$G:n@.$7$?(Bexe$B$NFs=E5/F0$rKI;_$9$k$?$a!"(BMutex$B$r;H$$$?$$$N$G$9$,!"(B
exe$B$r:n@.$9$k$H!"(BWin32API$B%S%e%o!<$G(BCreateMutex$B4X?t$r@k8@$7$?ItJ,$G!"!W(B
$B!V%f!<%6!<Dj5A$5$l$F$$$^$;$s!W$N%(%i!<$G$F$7$^$$!"(Bexe$B$,:n@.$G$-$^$;$s!#(B

Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA"
   (lpMutexAttributes As SECURITY_ATTRIBUTES, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function OpenMutex Lib "kernel32" Alias "OpenMutexA" 
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

CreateMutex$B$G;HMQ$7$F$$$k(B"SECURITY_ATTRIBUTES"$B$N7?$,@k8@$5$l$F(B
$B$$$J$$$+$i$@$H;W$&$N$G$9$,!"$3$N7?$NDj5A$r(B
API$B%S%e!<%o!<$G$O8!:w$G$-$^$;$s$G$7$?!#(B

VB4.0$B$G$O(BCreateMutex$B$O;HMQ$G$-$J$$$N$G$7$g$&$+(B?


---
Hiroko Kumagai-Takahashi $BIY;NDLElKLDL?.%7%9%F%`3t!J#T#C#S!K%S%8%M%9?d?J<<(B
e-mail:kuma@tcs.ts.fujitsu.co.jp tel:7386-4110 FAX:7386-4299
nifty:KGF02601