如何从 TOpenFileName 对话框中删除“OPEN AS READ ONLY”按钮功能

Question

当我调用此文件对话框时，它会显示一个漂亮的现代对话框 打开 + 打开为只读按钮。

如何删除“以只读方式打开”按钮功能？

OpenSaveFileDialog(editform,'','my|*.my','','Open my',FilSelez,True,False,True,True) 

function OpenSaveFileDialog(      Parent: TWinControl;
                            const DefExt,Filter,InitialDir,Title: string;
                              var FileName: string;
                                  MustExist,OverwritePrompt,NoChangeDir,DoOpen: Boolean): Boolean;
     var ofn: TOpenFileName;
         szFile: array[0..MAX_PATH] of Char;
   begin
         Result := False;
         FillChar(ofn, SizeOf(TOpenFileName), 0);
         with ofn do
           begin
           lStructSize := SizeOf(TOpenFileName);
           hwndOwner := Parent.Handle;
           lpstrFile := szFile;
           nMaxFile := SizeOf(szFile);

           if (Title <> '') then
              lpstrTitle := PChar(Title);

           if (InitialDir <> '') then
              lpstrInitialDir := PChar(InitialDir);

           StrPCopy(lpstrFile, FileName);
           lpstrFilter := PChar(StringReplace(Filter, '|', #0,[rfReplaceAll, rfIgnoreCase])+#0#0);

           if DefExt <> '' then
              lpstrDefExt := PChar(DefExt);
           end;

         if MustExist then
            ofn.Flags := ofn.Flags or OFN_FILEMUSTEXIST;

         if OverwritePrompt then
            ofn.Flags := ofn.Flags or OFN_OVERWRITEPROMPT;

         if NoChangeDir then
            ofn.Flags := ofn.Flags or OFN_NOCHANGEDIR;

         if DoOpen
            then begin
                 if GetOpenFileName(ofn) then
                    begin
                    Result := True;
                    FileName := StrPas(szFile);
                    end;
                 end
            else begin
                 if GetSaveFileName(ofn) then
                    begin
                    Result := True;
                    FileName := StrPas(szFile);
                    end;
                 end;
    end;

Answer 1

每次使用新的 API 时，您总是会阅读其完整文档。

在这种情况下，您可以转到文档 GetOpenFileName 函数，您会发现它只有一个参数，即 OPENFILENAME 类型的结构。因此，您可以转到文档 对于这个结构。

在此页面，您在浏览器中按Ctrl+F，然后搜索“只读”即可快速找到这段文字：

标志

可用于初始化对话框的一组位标志。当对话框返回时，它设置这些标志来指示用户的输入。该成员可以是以下标志的组合。

[...]

OFN_HIDEREADONLY
0x00000004

隐藏“只读”复选框。

因此，您意识到您只需要添加此标志：

ofn.Flags := ofn.Flags or OFN_HIDEREADONLY;