Subversion Repositories DevTools

#ifndef _BRWSDLG_RUL_
#define _BRWSDLG_RUL_

#include "FileBrowseDlg.h"

prototype Kernel32.RtlMoveMemory(BYREF STRING, POINTER, NUMBER);

typedef STR260
begin
   STRING sz[260];
end;

///////////////////////////////////////////////////////////////////////////////
//
// FileBrowseDlg() uses the Windows GetFileNameA function to allow single file
// selection. Callers specify filter, dialog title, and initial browse
// directory.  SEE END OF FILE FOR EXAMPLE ON HOW TO USE
//
// Inputs:
//
// szFile: String variable into which FileBrowseDlg() will place the selected
//      file's fully qualified pathname. The variable passed in as szFile can
//      be dynamically sized.  szFile is passed by reference.
//
//  szFilter: Filter spec for dialog. In the form "<descr>|<ext>||". For example:
//
//     "Text files (*.txt)|*.txt|All files (*.*)|*.*||"
//
//      The description ("Text files (*.txt)" above) must be separated from
//      the extension ("*.txt" above) by a pipe "|" character. The entire
//      string must end in a double || ("||").
//
//  szDialogTitle: A string containig the title to display on the file
//      browse dialog.
//
//  szInitialDir: A string specifying the directory the browse dialog
//      initially opens to.
//
//  bMultiSel: Set to TRUE if you wish to enable multiple selection.
//
//  listFiles: List that will be loaded with directory and filenames if
//      multiple selection is enabled (i.e. bMultiSel = TRUE).
//      List is passed by reference (by default, since list variables
//      are pointers).
//
//  bDerefLinks: Set to TRUE if you want to dereference shell links (also
//      known as shortcuts). If TRUE, then choosing a shell link causes
//      it to be dereferenced by the shell.
//
// Returns:
//
//      Returns 0 when a file is successfully selected. Returns less than
//      zero when when the user cancels/closes the browse dialog or an
//      error occurs. If an error occurs, a message box displays the error
//      identifier.
//
// History:
//
//      03-12-99 RBS Updated this header to correctly document bDerefLinks.
//      06-01-01 RBS Merged in changes from latest on InstallShield's site.
//
///////////////////////////////////////////////////////////////////////////////

function FileBrowseDlg( szFile, szFilter, szDialogTitle, szInitialDir,
                        bMultiSel, listFiles, bDerefLinks)

    OPENFILENAME ofn;
    STRING szMsg, szFileTitle[260];
    STRING szCustomFilter[260], szTemp[260];
    LONG   nLen, nCount, nResult, n, nFlags, nErr;
    STR260 str;

begin

    // Replace each '|' character in szFilter with '\0' since that is
    // what is required by the Win32 API.
    nLen = StrLength( szFilter );
    nLen = nLen - 1;
    nCount = 0;
    for nCount = 0 to nLen
        if ( szFilter[nCount] = '|' ) then
            szFilter[nCount] = '\0';
        endif;
    endfor;
    
    UseDLL(WINSYSDIR ^ "comdlg32.dll");
    
    nFlags = OFN_FILEMUSTEXIST | OFN_PATHMUSTEXIST | OFN_HIDEREADONLY
             | OFN_NOCHANGEDIR | OFN_EXPLORER;
    if bMultiSel then
        nFlags = nFlags | OFN_ALLOWMULTISELECT;
    endif;
    if bDerefLinks = FALSE then
        nFlags = nFlags | OFN_NODEREFERENCELINKS;
    endif;

    nResult = GetWindowHandle(HWND_INSTALL);
    
    ofn.lStructSize = SizeOf(ofn);
    ofn.hwndOwner = nResult;

    // The string pointed to by ofn.lpstrFile is modified by
    // GetOpenFileName. The only way to have a string in
    // script to reflect the change is to point lpstrFile
    // to a structure that contains just a string member.
    str.sz = szFile;
    ofn.lpstrFile = &str;
    ofn.nMaxFile = SizeOf(str);

    // Notice how the address of an explicitly sized string
    // is used when assigning to a member who was declared
    // as a LONG string pointer (lpstr). For example, &szFilter.
    ofn.lpstrFilter = &szFilter;
    ofn.nFilterIndex = 1;
    ofn.lpstrFileTitle = &szFileTitle;
    ofn.nMaxFileTitle = 260;
    ofn.lpstrTitle = &szDialogTitle;
    ofn.Flags = nFlags;
    ofn.lpstrDefExt = &szTemp;
    ofn.lpstrInitialDir = &szInitialDir;
    ofn.hInstance = 0;
    ofn.lpstrCustomFilter = &szCustomFilter;
    ofn.nMaxCustFilter = 260;
    ofn.lpfnHook = 0;
    
    nResult = GetOpenFileNameA(&ofn);
    if nResult = 1 then     
        if bMultiSel then
            // A direct assignment in the form of szFile = str.sz
            // will result in all data beyond the first null to be
            // lost. This only happend when the string is assigned
            // with a structure member. This is the reason why a
            // very indirect method is being used the transfer the
            // contents of str.sz to szFile.
            Resize( szFile, SizeOf(str));
            RtlMoveMemory( szFile, &str, SizeOf(str));
            StrGetTokens( listFiles, szFile, "");
        else
            szFile = str.sz;
        endif;
    else
        // We had an error in GetOpenFileNameA() so get the error string.
        nErr = CommDlgExtendedError();
        switch (nErr)
            case CDERR_DIALOGFAILURE: szMsg = CDERR_DIALOGFAILURE_MSG;
            case CDERR_FINDRESFAILURE: szMsg = CDERR_FINDRESFAILURE_MSG;
            case CDERR_INITIALIZATION: szMsg = CDERR_INITIALIZATION_MSG;
            case CDERR_LOADRESFAILURE: szMsg = CDERR_LOADRESFAILURE_MSG;
            case CDERR_LOADSTRFAILURE: szMsg = CDERR_LOADSTRFAILURE_MSG;
            case CDERR_LOCKRESFAILURE: szMsg = CDERR_LOCKRESFAILURE_MSG;
            case CDERR_MEMALLOCFAILURE: szMsg = CDERR_MEMALLOCFAILURE_MSG;
            case CDERR_MEMLOCKFAILURE: szMsg = CDERR_MEMLOCKFAILURE_MSG;
            case CDERR_NOHINSTANCE: szMsg = CDERR_NOHINSTANCE_MSG;
            case CDERR_NOHOOK: szMsg = CDERR_NOHOOK_MSG;
            case CDERR_NOTEMPLATE: szMsg = CDERR_NOTEMPLATE_MSG;
            case CDERR_REGISTERMSGFAIL: szMsg = CDERR_REGISTERMSGFAIL_MSG;
            case CDERR_STRUCTSIZE: szMsg = CDERR_STRUCTSIZE_MSG;
            case FNERR_BUFFERTOOSMALL: szMsg = FNERR_BUFFERTOOSMALL_MSG;
            case FNERR_INVALIDFILENAME: szMsg = FNERR_INVALIDFILENAME_MSG;
            case FNERR_SUBCLASSFAILURE: szMsg = FNERR_SUBCLASSFAILURE_MSG;
        endswitch;
        if nErr != 0 then
            // User did not close or cancel dialog box.
            MessageBox("FileBrowseDlg() error:\n\n" + szMsg, SEVERE);
        endif;
        return -1;
    endif;
    
    UnUseDLL(WINSYSDIR ^ "comdlg32.dll");
    
    return 0;   
end;

///////////////////////////////////////////////////////////////////////////////
// //Need declarations for FileBrowseDlg and friends.
// #include "brwsdlg.h"
//
// STRING szFile, svFileList, svTemp, szFilter;
// NUMBER nResult, nReturn;
// BOOL   bMultiSel, bDerefLinks;
// LIST   listFiles;
//
//  // If I want to support multiple selection, set bMultiSel to TRUE
//  // and pass in a valid string list.
//  bMultiSel = TRUE;
//  bDerefLinks = FALSE;
//  listFiles = ListCreate(STRINGLIST);
//  szFilter = "Text files (*.txt)|*.txt|All files (*.*)|*.*||";
//  
//  // Open the file browse dialog.
//  nResult = FileBrowseDlg( szFile,
//                           szFilter,
//                           "Select the DCOM98.EXE File",
//                           "c:\\",
//                           bMultiSel,
//                           listFiles,
//                           bDerefLinks );
//  if nResult = 0 then
//      if bMultiSel then
//          // If I chose multiple selection, I must parse the info, which is stored
//          // in list. First item will be dir, all others are individual filenames.
//          nReturn = ListGetFirstString(listFiles, svTemp);
//          while nReturn != END_OF_LIST
//              svFileList = svFileList + svTemp + "\n";
//              nReturn = ListGetNextString(listFiles, svTemp);
//          endwhile;
//          MessageBox("Directory (first item) and selected files:\n\n" + svFileList, 0);
//      else
//          // No multiple selection, so a single file/path was set.
//          MessageBox("Selected file:\n\n" + szFile, 0);
//      endif;
//  endif;
//  
//  ListDestroy(listFiles);
///////////////////////////////////////////////////////////////////////////////




#endif