initialization begin CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, 1, 'CM'); if GetLastError = ERROR_ALREADY_EXISTS then begin ShowMessage('CMÀÌ ÀÌ¹Ì ½ÇÇàÁßÀÔ´Ï´Ù...'); Halt; end; { CreateMutex(nil, True, 'DUP_EXECUTION'); if GetLastError = ERROR_ALREADY_EXISTS then begin ShowMessage('RealCont[°è¾à°ü¸®] ÇÁ·Î±×·¥ÀÌ ÀÌ¹Ì ½ÇÇàÁßÀÔ´Ï ´Ù...'); Halt; end; } end;