[dimusikus]

Здравствуйте.

Столкнулся с проблемой, вот кусок кода:

Код:

1 2 3 4 5 6 7 8 9 10

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]

А что "говорить" GetLastError?

[dimusikus]

после каждой команды BeginUpdateResource,UpdateResource,EndUpdateResour ce опрашивал GetLastError - везде по 0.

Получается все команды работают без ошибок а эффекта нет.