开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 压缩解压 > 查看源码
comment.c
资源名称：zipsrc.zip　[点击查看]
上传用户：jlteech
上传日期：2007-01-06
资源大小：349k
文件大小：3k
源码类别：

压缩解压

开发平台：

Visual C++

comment.c：源码内容
  1. /*
  2.  Copyright (C) 1996 Mike White
  3.  Permission is granted to any individual or institution to use, copy, or
  4.  redistribute this software so long as all of the original files are included,
  5.  that it is not sold for profit, and that this copyright notice is retained.
  7. */
  9. #include <windows.h>
  10. #include <stdio.h>
  11. #include <string.h>
  12. #include <stdlib.h>
  13. #include "wiz.h"
  14. #include "helpids.h"
  16. /****************************************************************************
  18.     FUNCTION: EditBoxProc(HWND, unsigned, WPARAM, LPARAM)
  20.     PURPOSE:  Processes messages for "Comment Edit Box" dialog box
  22.     MESSAGES:
  24.     WM_INITDIALOG - initialize dialog box
  25.     WM_COMMAND    - Input received
  27. ****************************************************************************/
  29. LPSTR szAppCommentBuf;
  30. HANDLE hStr;
  32. #ifdef __BORLANDC__
  33. #pragma warn -par
  34. #pragma warn -aus
  35. #endif
  36. BOOL WINAPI
  37. CommentBoxProc(HWND hwndDlg, WORD wMessage, WPARAM wParam, LPARAM lParam)
  38. {
  39.    switch (wMessage) {
  40.    case WM_INITDIALOG:
  41.       {
  42.       if (szAppCommentBuf[0] != '')
  43.          {
  44.          SendMessage(GetDlgItem(hwndDlg, IDM_EDIT_BOX), WM_SETTEXT, 0, (LPARAM)szAppCommentBuf);
  45.          }
  46.       CenterDialog(GetParent(hwndDlg), hwndDlg); /* center on parent */
  47.       SetFocus(GetDlgItem(hwndDlg, IDM_EDIT_BOX));
  48.       }
  49.       break;
  50.    case WM_COMMAND:
  51.       switch (LOWORD(wParam)) {
  52.          case IDCANCEL:
  53.             szAppCommentBuf[0] = '';
  54.             EndDialog(hwndDlg, wParam);
  55.             break;
  56.          case ID_HELP:
  57.             WinHelp(hwndDlg,szHelpFileName,HELP_CONTEXT, (DWORD)(HELPID_ADD_COMMENT));
  58.             break;
  59.          case IDOK:
  60.             {
  61.             DWORD iEBItems;
  62.             /* Get multi-line comment for the zip file */
  63.             SendMessage(GetDlgItem(hwndDlg, IDM_EDIT_BOX), EM_FMTLINES, TRUE, 0L);
  64.             iEBItems = (DWORD) SendMessage(GetDlgItem(hwndDlg, IDM_EDIT_BOX),
  65.                WM_GETTEXTLENGTH, 0, 0L) + 1;
  66.             if (iEBItems)
  67.                {
  68.                if (iEBItems > 65534L)
  69.                   iEBItems = (DWORD) 65534L;
  70.                SendMessage(GetDlgItem(hwndDlg, IDM_EDIT_BOX),
  71.                   WM_GETTEXT, (WPARAM)iEBItems, (LPARAM)szAppCommentBuf);
  72.                }
  73.             else
  74.                szAppCommentBuf[0] = '';
  75.             EndDialog(hwndDlg, wParam);
  76.             break;
  77.             }
  78.          }
  79.       default:
  80.          break;
  81.    }
  82.    return FALSE;
  83. }
  84. #ifdef __BORLANDC__
  85. #pragma warn .par
  86. #pragma warn .aus
  87. #endif
  89. LPSTR WINAPI comment(LPSTR szBuf)
  90. {
  91. #ifndef WIN32
  92. FARPROC lpfnComment;
  93. #endif
  94. hStr = GlobalAlloc( GPTR, (DWORD)32768L);
  95. if ( !hStr )
  96.    {
  97.    szBuf[0] = '';
  98.    return szBuf;
  99.    }
  101. szAppCommentBuf = GlobalLock(hStr);
  102. if (lstrlen(szBuf) != 0)
  103.    {
  104.    lstrcpy(szAppCommentBuf, szBuf);
  105.    }
  106. else
  107.    {
  108.    szAppCommentBuf[0] = '';
  109.    }
  110. #ifndef WIN32
  111. lpfnComment = MakeProcInstance(CommentBoxProc, hInst);
  112. DialogBox(hInst, "COMMENTBOX", hWndMain, lpfnComment);
  113. FreeProcInstance(lpfnComment);
  114. #else
  115. DialogBox(hInst, "COMMENTBOX", hWndMain, CommentBoxProc);
  116. #endif
  117. if (szAppCommentBuf[0] != '')
  118.    {
  119.    lstrcpy(szBuf, szAppCommentBuf);
  120.    }
  121. else
  122.    {
  123.    szBuf[0] = '';
  124.    }
  125. GlobalUnlock(hStr);
  126. GlobalFree(hStr);
  127. return szBuf;
  128. }