1.External Function 에.. 아래와 같이 기술...
FUNCTION UINT CreateMutex ( ULONG lpsa, BOOLEAN fInitialOwner, &
STRING lpszMutexName ) LIBRARY "Kernel32.DLL" ALIAS FOR "CreateMutexA"
FUNCTION ULONG GetLastError ( ) LIBRARY "Kernel32.DLL"
FUNCTION BOOLEAN ReleaseMutex ( UINT hMutex ) LIBRARY "Kernel32.DLL"
2. Application Open에.. 아래와 같이 기술...
ULong ll_rc1, ll_rc2
String ls_appname
Boolean lb_inherit
ls_appanme = "실행파일명.EXE"
FUNCTION UINT CreateMutex ( ULONG lpsa, BOOLEAN fInitialOwner, &
STRING lpszMutexName ) LIBRARY "Kernel32.DLL" ALIAS FOR "CreateMutexA"
FUNCTION ULONG GetLastError ( ) LIBRARY "Kernel32.DLL"
FUNCTION BOOLEAN ReleaseMutex ( UINT hMutex ) LIBRARY "Kernel32.DLL"
2. Application Open에.. 아래와 같이 기술...
ULong ll_rc1, ll_rc2
String ls_appname
Boolean lb_inherit
ls_appanme = "실행파일명.EXE"
ll_rc1 = CreateMutexA( 0, lb_inherit, ls_appname)
ll_rc2 = GetLastError()
IF ll_rc2 = 183 then
messagebox('알림', '이미 프로그램이 실행중입니다.')
Halt
return
End IF
'IT Info > [PowerBilder]' 카테고리의 다른 글
[Appeon] Local로 Appeon Server Setting하기. (0) | 2010.01.25 |
---|---|
[Tip] Datawindow에서 한페이지에 출력되는 Row의 개수 제한하기. (0) | 2009.10.21 |
[Tip] PowerBilder10이후 Oracle Procedure 호출시 Return 값을 가져오지 못하는 경우. (0) | 2009.10.15 |
[강좌] PowerBuilder 10 과 EAServer 5 이용한 웹 서비스 (下) (0) | 2009.09.11 |
[Tip] PowerBilder에서 임의로 Paper Size 지정하기 (0) | 2009.09.07 |