안녕하세요?
꼭 해 보고 싶었던 것인데 자료가 있어 연습을 해 보았습니다.
그런데, 메세지가 가지 않는것 같아요. 그래서 Case 대신 If로 해 보니
Error도 Nerr에도 아무곳도 안 걸리고 ShowMessage()문에가서
'Message X' 가 됩니다. 제발 이유 좀 알려 주세요

  Res := NetSend('심3','메세지 놀이');
  If Res = ERROR_ACCESS_DENIED Then
     sMsg := 'user does not have access to the requested information.'
  Else If Res = ERROR_INVALID_PARAMETER Then
     sMsg := 'The specified parameter is invalid.'
  Else If Res = ERROR_NOT_SUPPORTED Then
    sMsg := 'This network request is not supported.'
  Else If Res = NERR_NameNotFound Then
    sMsg := 'The user name could not be found.'
  Else If Res = NERR_NetworkError Then
    sMsg := 'A general failure occurred in the network hardware.'
  Else If Res = NERR_Success Then
    sMsg := 'Message sent!'
  Else
    sMsg := 'Message X';
  ShowMessage(sMsg);
감사합니다.