FireMonkey 응용 프로그램의 TFileOpenDialog

Question

저는 FireMonkey를 사용 중이며 TFileOpenDialog에서 제공하는 인터페이스를 사용하여 디렉토리를 선택하기를 원합니다 (예 : sdNewUI 옵션을 사용하더라도 기껏해야 SelectDirectory 인터페이스가 오래되었습니다).

첫째, 그것은 FireMonkey 애플리케이션에서의 (a들을 TFileOpenDialog를 사용하는)을 VCL.Dialogs 장치를 포함하는 나쁜 관행인가?

둘째, Windows Vista 이상에서만 가능합니다. 이 방법이 호환 가능한 Windows 버전을 확인하는 올바른 방법입니까?

{IFDEF WIN32 or WIN64} 
    if Win32MajorVersion >= 6 then 
    // Create TOpenFileDialog with fdoPickFolders option 

Answer 1

미래 참고로, IFileDialog의 사용은 Windows Vista를 생성하고 폴더 대화 상자 위 :

이

uses 
    ShlObj, ActiveX; 

... 

var 
    FolderDialog : IFileDialog; 
    hr: HRESULT; 
    IResult: IShellItem; 
    FileName: PChar; 
    Settings: DWORD; 
begin 
    if Win32MajorVersion >= 6 then 
    begin 
     hr := CoCreateInstance(CLSID_FileOpenDialog, 
        nil, 
        CLSCTX_INPROC_SERVER, 
        IFileDialog, 
        FolderDialog); 

     if hr = S_OK then 
     begin 
      FolderDialog.GetOptions(Settings); 
      FolderDialog.SetOptions(Settings or FOS_PICKFOLDERS); 
      FolderDialog.GetOptions(Settings); 
      FolderDialog.SetOptions(Settings or FOS_FORCEFILESYSTEM); 
      FolderDialog.SetOkButtonLabel(PChar('Select')); 
      FolderDialog.SetTitle(PChar('Select a Directory')); 

      hr := FolderDialog.Show(Handle); 
      if hr = S_OK then 
      begin 
       hr := FolderDialog.GetResult(IResult); 

       if hr = S_OK then 
       begin 
        IResult.GetDisplayName(SIGDN_FILESYSPATH,FileName); 
        ConfigPathEdit.Text := FileName; 
       end; 
      end; 
     end; 
    end; 
end;