![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Здравствуйте.
Столкнулся с проблемой, вот кусок кода: Код:
H:= BeginUpdateResource('Out.exe', False);
GetMem(Buf, Size);
AssignFile(myFile, 'file.exe');
FileMode := fmOpenRead;
Reset(myFile, 1);
BlockRead(myFile, Buf^,Size);
CloseFile(myFile);
UpdateResource(H, 'RT_RCDATA', 'file.exe', MAKEWord(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size);
FreeMem(Buf);
EndUpdateResource(H, False);lmikle: Пользуемся тегами. У меня на борту Windows7 , Delphi10, всё работает как надо, т.е. файл 'file.exe' добавляется в ресурсы файла 'Out.exe'. Но вот проблема что моя готовая программа с вышенаписанным куском кода , на различных компьютерах (с операционкой Windows XP, win7), непашет, т.е. файл 'Out.exe' остаётся как есть, а в текущем каталоге иногда появляется неизвестный файл RCxxx.tmp. Никаких ошибок вроде "нехватает каких то библиотек" программа невыдаёт. Последний раз редактировалось lmikle, 02.06.2011 в 09:00. |