chemin := win_api_dialog.open_file('Open File'                               -- Window Title
                                ,'C:/'                                -- StartDirectory
                                ,'Microsoft Project Files(*.mp*)|*.mp*|'|| -- FileFilter
                                'All Files(*.*)|*.*|'
                                ,TRUE                                      -- Modal
                                ,WIN_API.OFN_FLAG_DEFAULT                  -- AdvancedFlags
                                ,FALSE                                     -- RaiseException
                                );