Если в папке со схемой будут файлы имеющие в имени "не стандартные" символы, то переместить файл не получится.

Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,301,189)
{
Position=1
link(onCreate,11015838:doWork2,[])
}
Add(FileSearch,2495974,357,203)
{
SubDir=1
Include=2
link(onSearch,14522694:doEvent1,[])
link(Dir,6081030:Var2,[])
}
Add(MT_AddData,16353286,504,140)
{
InputMT=0
link(onAdd,16662174:doRowAction,[])
link(Data2,506766:CountIcons,[])
}
Add(Hub,14522694,406,203)
{
link(onEvent1,7087361:doSplit,[(430,209)(430,146)])
link(onEvent2,10929371:doGetFileIcon,[])
}
Add(FileAttributes,10929371,441,189)
{
Point(doGetFileIcon)
Point(onGetFileIcon)
link(onGetFileIcon,12878466:doAdd,[])
}
Add(ArrayRW,12878466,490,182)
{
link(Array,506766:IconArray,[(496,134)(510,134)])
}
Add(MultiStrData,7087361,441,140)
{
Char="\"
Direct=1
link(onPart1,16353286:doAdd,[])
}
Add(MST_RowAction,16662174,553,140)
{
MSTControl="MTStrTbl"
link(onChange,15946809:doColAction,[(585,146)])
}
Add(MST_ColAction,15946809,602,140)
{
Action=9
MaxColWidth=2500
MSTControl="MTStrTbl"
}
Add(IconsManager,506766,504,91)
{
Name="Icons"
Icons=['Void'=[ZIP7E05000078DAED8F494F535118869F4B811670A813CE8A33CEF38C8ADA5E6E979A18D746D126089218239AA0D58D115D3845E34F6A5AE886AA0948090D8545D399F64EE57A7A5BDC68FC0186F7E43DF99EF30DF90E48E2B8DD88DB85BF015A817661F1441BD5F78A3A25FE90AEEB148B4562B118AAAA522A95C8E7F3CCCDCD914C260985427CFE382FEA4CA6A6A6080CCEF3FA954A2A95E2415F918909936783799E0EE4F8FA659EBEFB16BD3D2AB76F65F8F441E7FD3B43CCD37919D0C8E534E2F138FE6E83743A4D3854A4BFD7607A5A6564648437431A93933A6F8754B2D92CF7BAD3620F95D95995E1E1613299928873DCBCA191496B140A2633335922910881E705C6C7541EF65BDCBD63895C41F41A3C1928F073DCE0F1A31C3FBE1B8C8EA64924CABC0814B87E2D856194F916D5E9F15BCC244CC1069AA6619A26C1609072B94C381CC6B22C16B5A8FF4E2DAEAEDFF2B580CBA3288AACD8F2F8A0AB162BB208BA04DB49D9568DE5CB3B65CFF1ADB2C766593EBFFC5C73F39E4BDBA8E695B31B361F5B79B075AF77A1FFF08E2B27CF1C7254598CEB5C7B62F5C576A9B1567F75D59275BBDA561CD82D57EB2F3435ADDFBF744D87B3CA784E6F74341E718B056CF6E2F54A0D5B148774B4AE324FAAAFAF3FD5B04C716EAF53C08747B697F7EEAB209B7C0BBFB531207508F30F47FF6E87B033CA2F803FF614]]
}
Add(Dir,2080286,364,154)
{
}
Add(MTStrTbl,6524990,231,224)
{
Left=180
Top=55
Width=625
Height=400
Align=5
Name="MTStrTbl"
Columns=#1:1|
FlatScroll=1
Style=2
SmallIconsManager="Icons"
Point(onMouseUp)
Point(onMouseDown)
link(onMouseUp,16375271:doCase,[])
link(onMouseDown,6348883:doCase,[(273,265)(273,300)])
}
Add(PopupMenuEx,5175250,497,266)
{
Menu=#11:Переместить|1:-|8:Вырезать|10:Копировать|8:Вставить|1:-|7:Удалить|5:Найти|
GutterLineOn=1
Bitmaps=[]
link(MenuItemIdx,14141145:doMove,[(541,272)(541,304)(380,304)(380,335)])
}
Add(Case,16375271,280,252)
{
@Hint=#27:Реагирует на отпускание ПКМ|
Value=Integer(1)
link(onTrue,14949713:doCompare,[])
}
Add(MouseEvent,7286383,336,301)
{
@Hint=#56:Создаёт видимость реагирования на первое отпускание ПКМ.|
}
Add(Case,6348883,287,294)
{
@Hint=#24:Реагирует на нажатие ПКМ|
Value=Integer(1)
link(onTrue,7286383:doClick,[])
}
Add(DirTools,14141145,392,322)
{
@Hint=#60:Проверка наличия объекта с данным именем в принимающей папке|
NoConfirmation=1
link(onOK,8471066:doClear,[])
link(Source,6963919:Result,[])
link(Dest,7129889:Result,[(405,310)(447,310)])
}
Add(StrCatDelim,7129889,441,266)
{
@Hint=#43:Полный путь к вложению перемещённому в бокс|
Delimiter="\Box\"
link(onStrCatDlm,5175250:doPopupHere,[])
link(Str1,15476386:Var3,[(447,250)])
link(Str2,9259387:Var3,[(454,257)])
}
Add(StrCatDelim,6963919,392,266)
{
@Hint=#34:Полный путь к выделенному вложению|
Delimiter="\"
link(onStrCatDlm,7129889:doStrCatDlm,[])
link(Str1,15476386:Var2,[])
link(Str2,9259387:Var2,[])
}
Add(GetDataEx,9259387,399,252)
{
Angle=3
link(Data,6177288:Var3,[(378,257)(378,278)])
}
Add(GetDataEx,6177288,322,273)
{
Angle=3
link(Data,6524990:Select,[(237,278)])
}
Add(If_else,14949713,336,259)
{
@Hint=#35:Завершение, если ничего не выбрано.|
link(onFalse,6963919:doStrCatDlm,[])
link(Op1,6177288:Var1,[(342,251)(328,251)])
}
Add(GetDataEx,15476386,392,245)
{
link(Data,6081030:Var3,[(398,194)])
}
Add(GetDataEx,6081030,364,189)
{
link(Data,2080286:CurrentDir,[])
}
Add(HubEx,11015838,343,203)
{
link(onEvent,2495974:doSearch,[])
}
Add(MST_Clear,8471066,441,322)
{
MSTControl="MTStrTbl"
link(onChange,11015838:doWork3,[(488,328)(488,244)(347,244)])
}
Ravilr писал(а):
?????? вопросики это и есть нестандартные символыДа, но не только, видимо это и возьму за основу.