41 lines
1.0 KiB
Factor
41 lines
1.0 KiB
Factor
! Copyright (C) 2017 Alexander Ilin.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors alien alien.c-types alien.libraries
|
|
alien.syntax classes.struct destructors kernel libc math
|
|
sequences strings windows windows.types ;
|
|
|
|
IN: windows.comdlg32
|
|
|
|
<< "comdlg32" "comdlg32.dll" stdcall add-library >>
|
|
|
|
LIBRARY: comdlg32
|
|
|
|
CONSTANT: OFN_OVERWRITEPROMPT 2
|
|
|
|
STRUCT: OPENFILENAME
|
|
{ lStructSize DWORD }
|
|
{ hwndOwner HWND }
|
|
{ hInstance HINSTANCE }
|
|
{ lpstrFilter LPCTSTR }
|
|
{ lpstrCustomFilter LPTSTR }
|
|
{ nMaxCustFilter DWORD }
|
|
{ nFilterIndex DWORD }
|
|
{ lpstrFile LPTSTR }
|
|
{ nMaxFile DWORD }
|
|
{ lpstrFileTitle LPTSTR }
|
|
{ nMaxFileTitle DWORD }
|
|
{ lpstrInitialDir LPCTSTR }
|
|
{ lpstrTitle LPCTSTR }
|
|
{ Flags DWORD }
|
|
{ nFileOffset WORD }
|
|
{ nFileExtension WORD }
|
|
{ lpstrDefExt LPCTSTR }
|
|
{ lCustData LPARAM }
|
|
{ lpfnHook PVOID }
|
|
{ lpTemplateName LPCTSTR } ;
|
|
|
|
TYPEDEF: OPENFILENAME* LPOPENFILENAME
|
|
|
|
FUNCTION: BOOL GetSaveFileNameW ( LPOPENFILENAME lpofn )
|
|
ALIAS: GetSaveFileName GetSaveFileNameW
|