Вверх ↑
Ответов: 234
Рейтинг: 1
#1: 2026-03-05 09:26:55 ЛС | профиль | цитата
Gunta писал(а):
Gitarist писал(а):
Браузер в этом самодельном проводнике все таки не подходит(( ведь могут вредоносное ПО запустить...
Наверно надо как то реализовать через таблицу, но как то геморно получается.

Вот
https://forum.hiasm.com/getfile/16543
может это подойдёт. Схема не моя, но вроде ничего сложного.

Нет, надо закрыть доступ ко всему кроме флэшки.
Вот примерно так, на таблице. Осталось только понять как сделать, чтобы иконки были "папка" и "файл". А да, и стрелку "назад" как то сделать.
Add(MainForm,1200097,182,140)
{
link(onCreate,2040099:doWork1,[])
}
Add(ChildForm,2040099,294,154)
{
@Hint=#19:Сохранить на флешку|
link(Data1,15371687:Text,[])
AddHint(51,46,125,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,12352849,21,21)
{
WorkCount=1
DataCount=1
Width=1259
Height=641
link(doWork1,4225154:doEvent1,[(45,27)(45,90)])
}
Add(MainForm,14484827,126,63)
{
Left=35
Top=105
Width=667
Height=546
Visible=1
Caption="Сохранить"
BorderStyle=3
Position=1
Point(doShowModal)
}
Add(Button,5403161,1001,371)
{
Left=135
Top=10
Width=175
Height=30
Font=[Arial,12,0,0,204]
Caption="Сохранить здесь"
link(onClick,622629:doString,[])
}
Add(Memory,11439258,1064,224)
{
}
Add(FileTools,10749242,1120,364)
{
link(onEnd,12616912:doTimer,[])
link(FileName,4267698:Var3,[(1126,278)])
link(NewFileName,622629:FString,[(1133,352)(1106,352)(1106,417)(1070,417)])
}
Add(FSMonitor,3404981,224,126)
{
link(onDeviceArrival,14058202:doStrCat,[])
}
Add(StrCat,14058202,273,126)
{
Str2=":\"
link(onStrCat,8362880:doWork2,[])
}
Add(FormatStr,622629,1064,371)
{
Mask="%1\\%2"
Point(FString)
link(onFString,10749242:doCopy,[])
link(Str1,11439258:Value,[])
link(Str2,11977230:Part,[])
}
Add(FilePartElm,11977230,1071,301)
{
Point(Part)
link(FileName,4267698:Var2,[])
}
Add(Timer,12616912,1169,364)
{
Interval=500
Enable=1
AutoStop=1
link(onTimer,2526631:In,[])
}
Add(Hub,4225154,70,84)
{
link(onEvent1,11977230:doPart,[(111,90)(111,307)])
link(onEvent2,14484827:doShowModal,[])
}
Add(GetDataEx,4267698,1071,273)
{
link(Data,12352849:Data1,[(1077,41)(27,41)])
}
Add(Button,322872,175,126)
{
Left=335
Top=10
Width=160
Height=30
Font=[Arial,12,0,0,204]
Caption="Извлечь USB-диск"
link(onClick,3404981:doDeviceRemove,[])
}
Add(FileSearch,6396709,322,196)
{
SubDir=1
FullOtherName=1
Include=2
Point(DateModify)
Point(Attr)
link(onSearch,15219936:doCompare,[])
link(Dir,2196868:Value,[])
}
Add(Button,9803200,140,182)
{
Left=335
Top=55
Width=160
Height=30
Font=[Arial,12,0,0,204]
Caption="go"
link(onClick,15025588:doWork2,[])
}
Add(Memory,2196868,329,126)
{
Default=String(U:\\)
link(onData,15025588:doWork1,[(375,132)(375,167)(200,167)])
}
Add(Hub,10187023,224,182)
{
OutCount=3
link(onEvent1,1592341:In,[])
link(onEvent2,4712629:In,[])
link(onEvent3,6396709:doSearch,[])
}
Add(FormatStr,10183540,539,210)
{
Mask="%1;%2"
Point(FString)
link(onFString,6730565:doMT,[])
link(Str2,6396709:DateModify,[(552,195)(527,195)(527,248)(342,248)])
}
Add(StrList,561298,798,126)
{
}
Add(FilePartElm,12859355,483,210)
{
link(onPart,10183540:doString,[])
}
Add(Hub,10444,441,203)
{
link(onEvent1,561298:doAdd,[(471,209)(471,132)])
link(onEvent2,12859355:doPart,[])
}
Add(LineBreak,16351798,749,133)
{
Caption="cl"
link(Out,561298:doClear,[])
Primary=[1592341,-497,49]
}
Add(LineBreak,14369636,140,406)
{
Caption="cl"
link(Out,10748983:doClear,[])
Primary=[4712629,112,-217]
}
Add(ArrayRW,15039287,812,217)
{
link(onRead,2347491:doEvent1,[])
link(Array,561298:Array,[])
link(Index,3981741:Index,[(825,205)(792,205)(792,248)(755,248)])
}
Add(HubEx,15025588,196,182)
{
link(onEvent,10187023:doEvent1,[])
}
Add(HubEx,8362880,313,126)
{
link(onEvent,2196868:doValue,[])
}
Add(If_else,15219936,392,196)
{
@Hint=#24:Не пропустить атрибут 56|
Op2=Integer(56)
link(onFalse,10444:doEvent1,[])
link(Op1,6396709:Attr,[(398,184)(374,184)(374,240)(349,240)])
AddHint(-61,60,146,13,@Hint)
}
Add(Hub,2347491,854,217)
{
link(onEvent1,15165782:doValue,[(878,223)(878,188)])
link(onEvent2,11439258:doValue,[])
}
Add(DirTools,10325374,931,161)
{
Point(doExists)
link(onOK,16142390:doEvent,[])
}
Add(IndexToChanel,16142390,973,161)
{
Point(Data)
link(onEvent2,8362880:doWork1,[(1014,174)(1014,106)(317,106)])
link(Data,15165782:Value,[(979,149)(968,149)(968,222)(895,222)])
}
Add(Memory,15165782,889,182)
{
link(onData,10325374:doExists,[])
}
Add(MTStrTbl,3981741,742,189)
{
Left=15
Top=95
Width=635
Height=415
Name="add_tbl"
Columns=#9:Имя файла|14:Дата изменения|
ColDelimiter=";"
ColumnWidth=300
ImgColumn=0
StateIconsManager="icons_save"
Point(onDblClick)
link(onDblClick,15039287:doRead,[])
}
Add(MT_String,6730565,588,203)
{
link(onResult,8077602:doRowAction,[])
}
Add(MST_RowAction,8077602,637,203)
{
MSTControl="add_tbl"
}
Add(MST_Clear,10748983,182,406)
{
MSTControl="add_tbl"
}
Add(LineBreak,10034015,133,217)
{
Caption="refresh"
link(Out,15025588:doWork3,[(200,223)])
Primary=[2526631,1078,147]
}
Add(IconsManager,14048787,567,329)
{
Name="icons_save"
Icons=['Icon'=[ZIPA217000078DAEDD73D50E2401806E08DE8CD21C2185019F0879F9B8135088C4C66C324C6C2EE2CAFB4E53A4B4B5B4BAB1B4B5BCB2BAFBCD296D2D2929692927B771348C8BF0E8E57F03ADF7C4BE0E10357422444C2CFD97722725F24640F9DA2CE50BF5012F92AEEFB5920BE4CA75332418D794DA664847A45BDA086A867DEC7E8A226E42FEA09EB47D403EACF68421E4753F21BFD01FD09FD1EFD11FD0EFD96AF5FB17EC5E3D16FD1EFD16FD0EFC46DBE9E906BD4803FEE05C750372F7C3D26D7E2F6980CC4B131B942BF46FF813E40BF44BF1AE2D810C7D007E897437E8CDFE6EB31B9E0EB67AC5117A28FD04764955556F9B44892947A4F24D0D4463AF39E7C81DDC8E44B21D90F89B8731B369D3F6C3BE9254BABD52A1192CA94DA8661988613332CE756AC1BCD99D53416166D1E5D07374D5D2CCC63615B8676DAA52275EAEE8AF24DB122BACA740CD598C298E1B25D5A0D486D31546198CA688DAA9A6319ADEE7A53F4E58032DDD4945AB18627398FB2FE671096714B3DB6108B236C2C3EA06AA80DC1733EB7D5A5D9BAB00EF7F4E2AE6D0DDB9E0ABB06DBB7E7868FB6E6363C733D36EA757FA88D78D9096C28B62CADFA6CC19D605C5EBEADDB56B6B11CB4CFB0DEFDDDF3CF0D1E5D6E74B5D9DFB3E1B295423C5E862DE3B3FF665B5334435371CEE9325D6F4658BFE6E71A5D635DAAA82A63D1B6E0B39459276315D98FB61E8CBD51C5891AB6D72BCD6CBDE2D95FDB16166DA3CECFF506EB359ACDBC6BAE1C3BB978506D5095C1B69AA59D2DDB9ED4601361FE964DB559DAE6DFA12E9B00E3B3843DEE1D6E7F594FBDD15AFB64F6F6B7D62569D186E842321B8B67965F6E786D1C169FDD76299322737B347BCD72E03EBBB065375DD6991B37D93FD76DA3719095DD89C0FFAD8DD0096C280EDA5F5BC8F31EB2CF41FB2B271C9CE4358768AF6DF471BE9693616E8D2456FE2CEBD7417657CEE59260615B0BF6C8B6AEFD0DDE67DB6E269A2BC7CE85CD86D845BE683767369BCBC5CF0EB3D950EBC21F61B309DEF3126D4DECAF65EDDF57F83EC3F6B1BF6B8E9DCD8D7FCF1561338E3DA9C75E03DBDFA165CCD55A7B6EABD4AB5171FF73D665EC78C7653B278A42E751A2D2C5F5517327EDD87E47EB743A5A92F00BA44A3E2D3936797081D43E5C825D6595CFCD3F49D14191],'Icon'=[ZIPFE15000078DAED98BD72E2301485AFEC8C9D717094C81881C1C489092179813CC23ED4B694CC5694B4949494CC6C434B4949C96C4749C95EC996218E596CEF6F7638CC4105FE3892EE0C732F00045FAF9F40EA9B0B50C3B5877E457F4113B8949F7DBD8577DAED76E82DECB65BD84A6F60BBD9C006BD5EAFD12B58AF56B0925EC26AB984A5F402160BE1392CE673984BCF603E9BC14C7A0AD3A9F004A693094CA4C730198F612C3D82F1680423E9218C8643184A0F603818C040BA0F837E1FFAD29FE1ACB3CEFAF8D28B4B628669A575757555A954ECA3129C6151C61C54D5CDA19A948833A9EB67AB8DBABB0B3224388B799DB013A23AA8475437AD27A1DEB3D2CB8BE21E02BFE94935A55AADD6B13D0461F7597161E071870945EFC9EAC883E3D1D5E1AB6EDD0F7BCF8AF339B3AD7C623CE8265CD3B18D9CA5B3586BCF79CCBA208468A7207CC662CD379C4E34ED745A06A7E5DA26B92CCD79BF8073624EC147D79FC9EB7C488E7C04CE89B95CF54BE56979F3C25E49EEE92F710F25B97BC1412E0ECC3DD7080A72DD847362EE64FD525CA93C1E340497E76230EFF680ABFF618EFFCB5CE3807362EE54FDC8017753328F22778B1CE4E36E1A0FFF3757BFEF46FD12725470A77F4135E4E82177137327EAA791145736AF08C783C7B71CE4E53ABF9B33F6AA302F2F77819DB4689AE935BE31EE878ABB8B392DBBD5324C1B5B69D7E528D7F383308C393FAA1F7224AB6ED88157B9E7FBD820DFA3C303EE8779A6CD30453CAF5480F37D4F36CA3230C58916547B0F0BCEF3B8E89379B4DF021C67D4A6E27AB8578873A9659A16D641DC688A5322EA0B22259CA5EA5184C38E1F313C23CE071157C3FA9911471479B822D7101C6255BC1E26E72AC9D5A8A91F1FF40C752FE26C75CC35933C669BC65B997B59D4156560545CA638A7A1E631B98BA3C2C7B1EAB27E8E4B31414F382E8EEB1C99F9B0D6EDB61F455E639A9E706A1A534A8D636D31F361640D8F13A565CE8D99A36210B4A36BD0F5F35F026795D4772810F32D]]
}
END_SDK
Add(Edit,15371687,294,105)
{
Left=10
Top=30
Width=370
Text="C:\\del\\123.txt"
}


карма: 1

0
Редактировалось 2 раз(а), последний 2026-03-05 11:26:32