+ added the win16api dialog directory support functions

git-svn-id: trunk@31812 -

rtl/win16/win31.pp

@@ -851,6 +851,10 @@ procedure GetClipCursor(var rc: RECT); external 'USER';
 { Icon support }
 function CopyIcon(hinst: HINST; hicon: HICON): HICON; external 'USER';
 
+{ Dialog directory support }
+function DlgDirSelectEx(hwndDlg: HWND; lpszPath: LPSTR; cbPath, idListBox: SmallInt): BOOL; external 'USER';
+function DlgDirSelectComboBoxEx(hwndDlg: HWND; lpszPath: LPSTR; cbPath, idComboBox: SmallInt): BOOL; external 'USER';
+
 implementation
 
 end.

rtl/win16/winprocsh.inc

@@ -1212,3 +1212,11 @@ procedure MapDialogRect(hwndDlg: HWND; lprc: LPRECT); external 'USER';
 procedure MapDialogRect(hwndDlg: HWND; var rc: RECT); external 'USER';
 {$endif}
 function GetDialogBaseUnits: DWORD; external 'USER';
+
+{ Dialog directory support }
+
+function DlgDirList(hwndDlg: HWND; lpszPath: LPSTR; idListBox, idStaticPath: SmallInt; uFileType: UINT): SmallInt; external 'USER';
+function DlgDirSelect(hwndDlg: HWND; lpszPath: LPSTR; idListBox: SmallInt): BOOL; external 'USER';
+
+function DlgDirListComboBox(hwndDlg: HWND; lpszPath: LPSTR; idComboBox, idStaticPath: SmallInt; uFileType: UINT): SmallInt; external 'USER';
+function DlgDirSelectComboBox(hwndDlg: HWND; lpszPath: LPSTR; idComboBox: SmallInt): BOOL; external 'USER';

rtl/win16/wintypes.inc

@@ -2560,3 +2560,17 @@ const
   LB_ERRSPACE            = (-2);
 
   LB_CTLCODE             = 0;
+
+{ Dialog directory support }
+
+{ DlgDirList, DlgDirListComboBox flags values }
+  DDL_READWRITE = $0000;
+  DDL_READONLY  = $0001;
+  DDL_HIDDEN    = $0002;
+  DDL_SYSTEM    = $0004;
+  DDL_DIRECTORY = $0010;
+  DDL_ARCHIVE   = $0020;
+
+  DDL_POSTMSGS  = $2000;
+  DDL_DRIVES    = $4000;
+  DDL_EXCLUSIVE = $8000;