Вверх ↑
Этот топик читают: Гость
Ответов: 964
Рейтинг: 12
#16: 2006-03-09 17:30:59 ЛС | профиль | цитата
А КАК внедрять файлы? Зачем?... Да причин полным полно!

Зачем вообще внедрять ?
Если можно просто дописать в конец ?
(Да хоть командой Copy Программа.EXE + Сказка.TXT Программа.EXE )

Всё и не расскажешь....

Не нужно все , расскажи хоть одну - просто вариантов много и почти
для каждого есть свое решение .
карма: 0

0
Ответов: 964
Рейтинг: 12
#17: 2006-03-09 17:41:00 ЛС | профиль | цитата

Скорее наоборот - HiAsm может пригодиться для NB! Я, например, хочу попробовать сделать в HiAsm плагины для NB!

Да пожалуйста !
(Думаю тоже и Dilma скажет)
Сомнительно!

Peter не будь так уверен ...
ХайАсм очень всеяден , и заранее предположить что и откуда можно а откуда нельзя взять для ХайАсма не возьмется на 100% сказать даже его Автор .
карма: 0

0
Ответов: 574
Рейтинг: 1
#18: 2006-03-09 18:13:00 ЛС | профиль | цитата
Что вы над человеокм издиваетесь? Лень ответить?

Peter, вот так можно внедрять файлы + как я это делал:

Add(MainForm,9646971,14,119)
{
Left=20
Top=105
Point(Close)
link(onCreate,16054173:doString,[(114,160)(114,69)])
link(Close,4600142:GetData,[])
}
Add(MemoryStream,10281635,126,91)
{
Stream=[ZIP1000000078DA011000EFFFD1EEF5F0E0EDE5EDE8E520F4E0E9EBE076960DB9]
}
Add(DoData,14346753,126,142)
{
link(onEventData,1549651:doCopyFromStream,[(208,148)(208,162)])
link(Data,10281635:Stream,[])
}
Add(FileStream,1549651,259,142)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,8716960:Var1,[(265,114)])
}
Add(Dir,11555756,168,7)
{
}
Add(FormatStr,16054173,182,63)
{
DataCount=1
Mask="%1file.txt"
link(onFString,6723799:doValue,[])
link(Str1,11555756:TempDir,[])
}
Add(Memory,6723799,231,63)
{
link(onData,14346753:doData,[(273,69)(273,118)(116,118)(116,148)])
}
Add(GetDataEx,8716960,231,105)
{
link(Data,6723799:Value,[(244,102)(237,102)])
}
Add(EventFromData,4600142,14,77)
{
link(onEvent,453294:doDelete,[(110,83)(110,195)])
}
Add(FileTools,453294,175,175)
{
link(FileName,8716960:Var2,[(181,147)(244,147)])
}
Add(Button,10273249,14,224)
{
Left=95
Top=100
Width=215
Caption="Запустить внедрённый файл"
link(onClick,15844965:doShellExec,[(72,230)(72,237)])
}
Add(WinExec,15844965,91,224)
{
link(FileName,8716960:Var3,[(97,114)])
}
Add(InfoTip,11737470,14,280)
{
Info=#375:Как видно, внедрить файл можно кликнув два раза на объект, на котором нарисована стрелочка :) В окошке выбери "Открыть" и выбирай нужный файл. Я его уже внедрил - текстовый файл и сделал проект по принципу MMB. Программа этот файл распаковывает во временный катагол(папку Темп) и пр закрытии проги удаляет его. Можешь на файл запустить - то есть делать с ним нужные операции.|
Width=449
Height=74
}
карма: 0

0
Ответов: 964
Рейтинг: 12
#19: 2006-03-10 03:04:59 ЛС | профиль | цитата
CASPER, Просто возможно это совсем не то что ему нужно.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#20: 2006-03-10 03:07:00 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:57:12
карма: 0

0
Ответов: 964
Рейтинг: 12
#21: 2006-03-10 03:33:59 ЛС | профиль | цитата
Да, совсем забыл...
У меня в HiAsm при внедрении в проект элемента WinExec, Norton Antivirus 2005 не
дает запуститься скомпилированному файлу!
Ругается... Говорит, дескать, вирус "W32.Kitro.Gen"...
Так и должно быть?

Да глюк это !
Касперский ругался теперь Нортон ругается .
Зы
Поставь компилятор Дельфи возможно перестанет .
карма: 0

0
Ответов: 8918
Рейтинг: 823
#22: 2006-03-10 03:50:59 ЛС | профиль | цитата
Peter, почитайте здесь: http://hiasm.hexshock.com/forum/viewtopic.php?t=1601&postdays=0&postorder=asc&start=30
карма: 19

0
Администрация
Ответов: 15295
Рейтинг: 1519
#23: 2006-03-10 22:53:00 ЛС | профиль | цитата
Упоминать о "конкуренте" на форуме другой программы - не очень-то корректно!

Почему же? Здоровая конкуренция, как и здоровая критика, помогают делать продукт лучше и ничего в этом плохого нет...
карма: 27
0
Ответов: 2058
Рейтинг: 28
#24: 2006-03-10 22:59:00 ЛС | профиль | цитата
Упоминать о "конкуренте" на форуме другой программы - не очень-то корректно!

Почему же? Здоровая конкуренция, как и здоровая критика, помогают делать продукт лучше и ничего в этом плохого нет...

А лучше всего любить своего конкурента - это совсем круто будет.
карма: 1

0
Ответов: 242
Рейтинг: 5
#25: 2006-03-11 00:24:59 ЛС | профиль | цитата
Ну для картинок есть особая графа - вкладка "графика". Там есть по-моему почти всё, что нужно.
карма: 0

0
Ответов: 376
Рейтинг: 1
#26: 2006-03-11 11:48:00 ЛС | профиль | цитата
Михаил, но там нет такого компонента, который заполнил картинками, и он их выдаёт в поток через заданное кол-во секунд с переходными эффектами .
карма: 1

0
Ответов: 5446
Рейтинг: 323
#27: 2006-03-11 14:07:59 ЛС | профиль | цитата
botan, готового - нет, а собрать из имеющихся можно, только вот насчёт эффектов нне уверен.
карма: 1

0
Ответов: 242
Рейтинг: 5
#28: 2006-03-11 21:08:00 ЛС | профиль | цитата
только вот насчёт эффектов нне уверен.
Можно использовать "копирование картинки" "размытие" и пр. Только боюсь скорость будет не блестящей...
карма: 0

0
Ответов: 8918
Рейтинг: 823
#29: 2006-03-12 00:00:00 ЛС | профиль | цитата
botan, элемент "BitmapArray" не поможет?, эффекты могут быть очень разными, вот простейший ("5 мин., включая почёсывание в затылке")
Add(MainForm,3751151,602,154)
{
Left=20
Top=105
Height=390
}
Add(GetData,3771552,497,280)
{
link(Data,7792880:Position,[])
}
Add(BitmapArray,13235940,399,105)
{
Bitmaps=[]
UseName=1
}
Add(GetData,10296800,553,280)
{
link(Data,15985140:Position,[])
}
Add(Counter,2598396,350,154)
{
Max=5
Default=-1
link(onNext,11891691:doRead,[])
}
Add(ArrayRW,11891691,399,154)
{
link(onRead,9037911:doEvent1,[])
link(Array,13235940:Array,[])
}
Add(Bitmap,7573527,532,154)
{
Point(Height)
Point(Width)
}
Add(Hub,9037911,448,154)
{
link(onEvent1,7573527:doLoad,[(513,160)(513,160)])
link(onEvent2,7792880:doFor,[(488,167)(488,230)])
}
Add(Img_GetPoint,9324686,532,343)
{
link(onGetPixel,3943382:doDraw,[])
link(Bitmap,7573527:Bitmap,[])
link(X,10296800:Data1,[(545,332)(559,332)])
link(Y,3771552:Data1,[(552,325)(503,325)])
}
Add(Img_Point,3943382,602,343)
{
DrawSource=1
link(Bitmap,3751151:Handle,[])
link(X,10296800:Data2,[(615,331)(566,331)])
link(Y,3771552:Data2,[(622,320)(510,320)])
}
Add(Button,7529505,301,154)
{
Left=50
Top=275
link(onClick,2598396:doNext,[])
}
Add(For,7792880,497,224)
{
Start=1
link(onEvent,15985140:doFor,[])
link(End,7573527:Height,[(510,205)(545,205)])
}
Add(For,15985140,553,224)
{
Start=1
link(onEvent,9324686:doGetPixel,[(595,230)(595,265)(473,265)(473,349)])
link(End,7573527:Width,[(566,205)(552,205)])
}
не забудьте заполнить BitmapArray картинками :)
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#30: 2006-03-23 01:50:59 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 08:57:12
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)