[dimusikus]

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

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

Код:

    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.

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