Я хотел бы использовать диалоговое окно выбора папки в моем пакетном скрипте, я выбрал метод BrowseForFolder с Jscript, так как это самый быстрый тест из всех, что я тестировал.
Однако, если я набираю «несуществующий путь» или «недопустимое имя» в поле редактирования, оно не может передать значение обратно в пакетную деталь, но вместо этого передает папку по умолчанию / root или последнюю «исследованную» папку.
Следуя структуре BROWSEINFO из https://docs.microsoft.com/en-us/windows/win32/api/shlobj_core/ns-shlobj_core-browseinfoa, я добавил значение BIF_VALIDATE (0x00000020) в опции, но я застрял здесь. Я понятия не имею, как я могу подключить BrowseCallbackPro c и получить сообщение BFFM_VALIDATEFAILED, или, если это вообще возможно.
Я также попробовал другой метод folderbrowserdialog, но, похоже, у него нет поля для редактирования.
В идеале было бы еще лучше, если бы проводник мог следовать пути, введенному / вставленному в поле для редактирования (аналогично в windows explorer).
Совершенство было бы, если бы я также мог просматривать выше определенную папку root: например, установить начальную папку, развернуть эту стартовую папку так, чтобы ThisP C оставался верхней папкой.
Также есть ли возможность увидеть полный путь в окне редактирования при просмотре (вместо только имени папки)?
Вот мой пример кода:
@if (@CodeSection == @Batch) @then
@echo off
:Installation_Browser
echo Where do you want to install program?
for /f "delims=" %%a in ('CScript //nologo //E:JScript "%~f0" "17"') do ( set "Install_Folder=%%a" )
if "%Install_Folder%"=="" ( cls & exit /b )
if "%Install_Folder%"=="::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" ( cls & call :Wrong_Path_Error & goto :Installation_Browser )
if not exist "%Install_Folder%" ( cls & call :Wrong_Path_Error & goto :Installation_Browser )
echo "%Install_Folder%"
REM robocopy "%Files_Path%" "%Install_Folder%" *.* /is /it /S >nul 2>&1
:Shortcut_Browser
echo Where do you want to create Start Menu shortcut?
for /f "delims=" %%a in ('CScript //nologo //E:JScript "%~f0" "23"') do ( set "Shortcut_Folder=%%a" )
if "%Shortcut_Folder%"=="" ( cls & exit /b )
if not exist "%Shortcut_Folder%" ( call :Wrong_Path_Error & goto :Shortcut_Browser )
echo "%Shortcut_Folder%"
REM powershell -NoLogo -NoProfile -NonInteractive -ExecutionPolicy Bypass "$s=(New-Object -COM WScript.Shell).CreateShortcut('%Shortcut_Folder%\Program.lnk');$s.TargetPath='%Install_Folder%\Program.exe';$s.WorkingDirectory='%Install_Folder%';$s.Description='This is just an example';$s.Save()" >nul 2>&1
pause
exit /b
:Wrong_Path_Error
echo The path does not exist.
echo Choose an existing folder, or use "Make New Folder" button to create one.
set "Install_Folder=" &set "Shortcut_Folder="
goto :eof
@end
if (WScript.Arguments(0) == 17) {
var Start_folder = 17;
} else {
var Start_folder = 23;
}
var Message = "Browse for location or paste an existing path in the message box below, then click OK.";
var Box_style = 0x00000010 + 0x00000020 + 0x00000040 + 0x00010000;
var shl = new ActiveXObject("Shell.Application");
var folder = shl.BrowseForFolder(0, Message, Box_style, Start_folder );
if (folder != null) {
WScript.Stdout.WriteLine(folder ? folder.self.path : "");
}
Я не Не возражайте против использования C# или кода VBS или Jscript, даже Powershell, который требует 2-3 секунды для загрузки, он просто должен быть внутри пакета (это большой скрипт). Спасибо!
РЕДАКТИРОВАТЬ: я нашел «частичное» решение, используя C# проект, портированный на Powershell.
<# : Batch portion
@echo off
set "Start_Folder=1"
for /f "delims=" %%a in ('Powershell -nop -noni -c "iex (${%~f0} | out-string)"') do ( set "Program_Folder=%%a" )
if "%Program_Folder%"=="" ( cls & exit /b )
echo "%Program_Folder%"
pause
exit /b
: end Batch portion / begin PowerShell hybrid chimera #>
Function BuildDialog {
$sourcecode = @"
using System;
using System.Windows.Forms;
using System.Reflection;
namespace FolderSelect
{
public class FolderSelectDialog
{
System.Windows.Forms.OpenFileDialog ofd = null;
public FolderSelectDialog()
{
ofd = new System.Windows.Forms.OpenFileDialog();
ofd.Filter = "Folders|\n";
ofd.AddExtension = false;
ofd.CheckFileExists = false;
ofd.DereferenceLinks = true;
ofd.Multiselect = false;
}
public string InitialDirectory
{
get { return ofd.InitialDirectory; }
set { ofd.InitialDirectory = value == null || value.Length == 0 ? Environment.CurrentDirectory : value; }
}
public string Title
{
get { return ofd.Title; }
set { ofd.Title = value == null ? "Select a folder" : value; }
}
public string FileName
{
get { return ofd.FileName; }
}
public bool ShowDialog()
{
return ShowDialog(IntPtr.Zero);
}
public bool ShowDialog(IntPtr hWndOwner)
{
bool flag = false;
if (Environment.OSVersion.Version.Major >= 6)
{
var r = new Reflector("System.Windows.Forms");
uint num = 0;
Type typeIFileDialog = r.GetType("FileDialogNative.IFileDialog");
object dialog = r.Call(ofd, "CreateVistaDialog");
r.Call(ofd, "OnBeforeVistaDialog", dialog);
uint options = (uint)r.CallAs(typeof(System.Windows.Forms.FileDialog), ofd, "GetOptions");
options |= (uint)r.GetEnum("FileDialogNative.FOS", "FOS_PICKFOLDERS");
r.CallAs(typeIFileDialog, dialog, "SetOptions", options);
object pfde = r.New("FileDialog.VistaDialogEvents", ofd);
object[] parameters = new object[] { pfde, num };
r.CallAs2(typeIFileDialog, dialog, "Advise", parameters);
num = (uint)parameters[1];
try
{
int num2 = (int)r.CallAs(typeIFileDialog, dialog, "Show", hWndOwner);
flag = 0 == num2;
}
finally
{
r.CallAs(typeIFileDialog, dialog, "Unadvise", num);
GC.KeepAlive(pfde);
}
}
else
{
var fbd = new FolderBrowserDialog();
fbd.Description = this.Title;
fbd.SelectedPath = this.InitialDirectory;
fbd.ShowNewFolderButton = true;
if (fbd.ShowDialog(new WindowWrapper(hWndOwner)) != DialogResult.OK) return false;
ofd.FileName = fbd.SelectedPath;
flag = true;
}
return flag;
}
}
public class WindowWrapper : System.Windows.Forms.IWin32Window
{
public WindowWrapper(IntPtr handle)
{
_hwnd = handle;
}
public IntPtr Handle
{
get { return _hwnd; }
}
private IntPtr _hwnd;
}
public class Reflector
{
string m_ns;
Assembly m_asmb;
public Reflector(string ns)
: this(ns, ns)
{ }
public Reflector(string an, string ns)
{
m_ns = ns;
m_asmb = null;
foreach (AssemblyName aN in Assembly.GetExecutingAssembly().GetReferencedAssemblies())
{
if (aN.FullName.StartsWith(an))
{
m_asmb = Assembly.Load(aN);
break;
}
}
}
public Type GetType(string typeName)
{
Type type = null;
string[] names = typeName.Split('.');
if (names.Length > 0)
type = m_asmb.GetType(m_ns + "." + names[0]);
for (int i = 1; i < names.Length; ++i) {
type = type.GetNestedType(names[i], BindingFlags.NonPublic);
}
return type;
}
public object New(string name, params object[] parameters)
{
Type type = GetType(name);
ConstructorInfo[] ctorInfos = type.GetConstructors();
foreach (ConstructorInfo ci in ctorInfos) {
try {
return ci.Invoke(parameters);
} catch { }
}
return null;
}
public object Call(object obj, string func, params object[] parameters)
{
return Call2(obj, func, parameters);
}
public object Call2(object obj, string func, object[] parameters)
{
return CallAs2(obj.GetType(), obj, func, parameters);
}
public object CallAs(Type type, object obj, string func, params object[] parameters)
{
return CallAs2(type, obj, func, parameters);
}
public object CallAs2(Type type, object obj, string func, object[] parameters) {
MethodInfo methInfo = type.GetMethod(func, BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
return methInfo.Invoke(obj, parameters);
}
public object Get(object obj, string prop)
{
return GetAs(obj.GetType(), obj, prop);
}
public object GetAs(Type type, object obj, string prop) {
PropertyInfo propInfo = type.GetProperty(prop, BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
return propInfo.GetValue(obj, null);
}
public object GetEnum(string typeName, string name) {
Type type = GetType(typeName);
FieldInfo fieldInfo = type.GetField(name);
return fieldInfo.GetValue(null);
}
}
}
"@
$assemblies = ('System.Windows.Forms', 'System.Reflection')
Add-Type -TypeDefinition $sourceCode -ReferencedAssemblies $assemblies -ErrorAction STOP
}
cd c: #THIS IS THE CRITICAL LINE
BuildDialog
$fsd = New-Object FolderSelect.FolderSelectDialog
$fsd.Title = "Browse for location or paste an existing path in the message box below, then click Select Folder.";
If ($env:Start_Folder -eq "1") {$fsd.InitialDirectory = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"};
If ($env:Start_Folder -eq "2") {$fsd.InitialDirectory = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs"};
$fsd.ShowDialog() | Out-Null
$fsd.FileName
Этот диалог папки "vista style" НАМНОГО лучше!
Это хорошо работает в скрипте, но я сталкиваюсь с 2 новыми проблемами:
- Диалог открывается слишком медленно (2-3 секунды) из-за того, что powershell вызывается из пакета, а диалог Jscript загружается мгновенно.
- Я не могу встраивать двоичные данные с кодировкой «ZeroMQ Base-85» (используется bhx), потому что кодированный текст имеет символы <# #> =, такие же, как в многострочных комментариях Powershell, используемых в гибридном пакете. Я должен закодировать двоичные файлы в шестнадцатеричном формате, и поэтому пакетный файл становится больше.
Полагаю, лучший способ решить эти 2 pbs - избавиться от этой "химеры powershell" ...
теперь возникает вопрос: есть ли способ, которым я могу портировать это в моей партии, используя только C# или другой метод?
Или любое другое решение / идею?
спасибо!