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

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

压缩解压

开发平台：

Visual C++

seldir.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 <string.h>
  10. #include <io.h>
  11. #include <stdio.h>
  13. #include "wiz.h"
  14. #include "helpids.h"
  16. /****************************************************************************
  18.     FUNCTION: SelectDirProc(HWND, WORD, WPARAM, LPARAM)
  20.     PURPOSE:  Processes messages for "Unzip To..." dialog box
  22.     MESSAGES:
  24.     WM_INITDIALOG - initialize dialog box
  25.     WM_COMMAND    - Input received
  27. ****************************************************************************/
  29. BOOL WINAPI SelectDirProc(HWND hDlg, WORD wMessage, WPARAM wParam, LPARAM lParam)
  30. {
  31.     static OPENFILENAME __far *lpofn = 0;
  32.     static WORD wClose;
  34.     switch (wMessage)
  35.     {
  36.     case WM_DESTROY:
  37.         if (lpofn && lpofn->lpstrFile && (wClose == IDOK))
  38.         {
  39.          DWORD dwResult;      /* result of Save As Default button query */
  41.          /* get state of Save As Default checkbox, if appropriate */
  42.          if (!uf.fUnzipToZipDir)
  43.             {
  44.              dwResult = SendDlgItemMessage(hDlg , IDM_SAVE_AS_DEFAULT, BM_GETSTATE, 0, 0);
  45.              if (dwResult & 1)   /* if checked */
  46.                  {
  47.                  /* save as future default */
  48.                  WritePrivateProfileString(szAppName, szDefaultUnzipToDir,
  49.                                 lpofn->lpstrFile, szWiZIniFile);
  51.                  }
  52.             }
  53.         }
  54.         break;
  55.     case WM_COMMAND:
  56.         /* When the user presses the OK button, stick text
  57.            into the filename edit ctrl to fool the commdlg
  58.            into thinking a file has been chosen.
  59.            We're just interested in the path, so any file
  60.            name will do - so long as it doesn't match
  61.            a directory name, we're fine
  62.         */
  64.         if (LOWORD(wParam) == IDOK)
  65.         {
  66.             SetDlgItemText(hDlg, edt1, "johnny376376.375374373");
  67.             wClose = LOWORD(wParam);
  68.         }
  69.         else if (LOWORD(wParam) == IDCANCEL)
  70.         {
  71.             wClose = LOWORD(wParam);
  72.         }
  73.         break;
  74.     case WM_INITDIALOG:
  75.         {
  76.             RECT    rT1, rT2;
  77.             short   nWidth, nHeight;
  79.             lpofn = (OPENFILENAME __far *)lParam;
  81.             CenterDialog(GetParent(hDlg), hDlg); /* center on parent */
  83.             wClose = 0;
  85.             /* Disable and hide the "save as default" checkbox */
  86.             EnableWindow(GetDlgItem(hDlg, IDM_SAVE_AS_DEFAULT), FALSE);
  87.             ShowWindow(GetDlgItem(hDlg, IDM_SAVE_AS_DEFAULT), SW_HIDE);
  89.             /* Disable the filename edit ctrl
  90.                and the file type label
  91.                and the file type combo box
  92.                Note: stc2, cmb1 etc are defined in DLGS.H in the standard
  93.                windows include files.
  94.             */
  95.             EnableWindow(GetDlgItem(hDlg, edt1), FALSE);
  96.             EnableWindow(GetDlgItem(hDlg, stc2), FALSE);
  97.             EnableWindow(GetDlgItem(hDlg, cmb1), FALSE);
  99.             GetWindowRect(GetDlgItem(hDlg, cmb2), &rT1);
  101.             /*  Hide the file type label & combo box */
  102.             ShowWindow(GetDlgItem(hDlg, stc2), SW_HIDE);
  103.             ShowWindow(GetDlgItem(hDlg, cmb1), SW_HIDE);
  105.             /* Extend the rectangle of the list of files
  106.                in the current directory so that it's flush
  107.                with the bottom of the Drives combo box
  108.             */
  109.             GetWindowRect(GetDlgItem(hDlg, lst1), &rT2);
  110.             nWidth = (short)(rT2.right - rT2.left);
  111.             nHeight = (short)(rT1.bottom - rT2.top);
  112.             ScreenToClient(hDlg, (LPPOINT)&rT2);
  113.             MoveWindow(GetDlgItem(hDlg, lst1),
  114.                         rT2.left, rT2.top,
  115.                         nWidth,
  116.                         nHeight,
  117.                         TRUE);
  118.         }
  119.     default:
  120.         break;
  121.     }
  123.     /* message not handled */
  124.     return 0;
  125. }