Razzzor писал(а):
Как в этом зашифрованном файле, хранить другие файлы? Как при вводе ключа, получать доступ к этим файлам? Удалять не нужные, записывать новые и т.д.
Пример использования элемента для соединения нескольких файлов в один:
Add(MainForm,9361407,273,140)
{
Width=358
Height=128
Caption="Склеивание файлов"
}
Add(FileStream,14688063,532,238)
{
Mode=1
Point(doCopyFromStream)
Point(doPosition)
link(onLoad,16436871:doData,[])
}
Add(Edit,2192225,371,189)
{
Left=75
Top=10
Width=260
Text=""
ReadOnly=0
link(onChange,14688063:doOpen,[(511,195)(511,244)])
}
Add(Button,4074826,420,203)
{
Left=10
Top=65
Width=325
Caption="Записать на диск"
link(onClick,14688063:doClose,[(492,209)(492,251)])
}
Add(FileStream,16378432,420,252)
{
link(onLoad,1018753:doEvent1,[])
}
Add(ODialog,3015364,322,252)
{
link(onExecute,16405465:doText,[])
}
Add(Edit,16405465,371,252)
{
Left=75
Top=40
Width=260
Text=""
ReadOnly=0
link(onChange,16378432:doOpen,[])
}
Add(Button,9182617,273,252)
{
Left=10
Top=40
Width=60
Caption="Файл 2"
link(onClick,3015364:doExecute,[])
}
Add(DoData,16436871,581,238)
{
link(onEventData,14688063:doPosition,[(622,244)(622,289)(519,289)(519,265)])
link(Data,14688063:Size,[(587,226)(572,226)(572,281)(545,281)])
}
Add(ODialog,12961147,322,189)
{
link(onExecute,2192225:doText,[])
}
Add(Button,13789902,273,189)
{
Left=10
Top=10
Width=60
Caption="Файл 1"
link(onClick,12961147:doExecute,[])
}
Add(Hub,1018753,469,252)
{
link(onEvent1,14688063:doCopyFromStream,[])
link(onEvent2,16378432:doClose,[(492,265)(492,290)(411,290)(411,265)])
}