[Muxa]

Код удален

[Muxa]

Создается лишь файл с размером 0 байт. Неужели никто не поможет?

[Muxa]

Код удален

[Rokuell]

Проверил - у меня всё работает.

Проверь у себя:
1. Правильно ли создал *.rc файл
( сначала записывается имя ресурса, потом тип, а потом путь к ресурсу )
пример: http://www.delphisources.ru/pages/fa...with_brcc.html

2. Правильные ли параметры передаёшь ( если перепутать имя ресурса и его тип, то файл будет создан, но ничего в него записано не будет, т.к. ресурс не будет найден )

3. И под отладкой проверь, что возвращают функции:
В случае неуспеха функции FindResource, LoadResource, LockResource, SizeOfResource, WriteFile возвратят ноль, а функция CreateFile возвратит константу INVALID_HANDLE_VALUE (равную DWORD(-1) или 4294967295)

[Muxa]

Код .rc файла:

Код:

1 2	CP SETUP_FILES "panel.exe" MONITOR SETUP_FILES "mon.exe"

Вызываю так:
SaveRes('CP', 'SETUP_FILES', 'C:\exe1.exe');
SaveRes('MONITOR ', 'SETUP_FILES', 'C:\exe2.exe');

Файлы ресурсов для компилирования brcc32 лежат у меня в папке с программой.

[Rokuell]

Читать внимательней надо было п.2

Для функции

Код:

1	function Saveres(lpType, lpName, FileName: PChar): BOOL;

Первым параметром должен идти тип, а вторым - имя ресурса, а не наоборот.

Правильный вариант:

Код:

1 2	SaveRes('SETUP_FILES', 'CP', 'C:\exe1.exe'); SaveRes('SETUP_FILES', 'MONITOR', 'C:\exe2.exe');

[Muxa]

Спасибо. Как я мог быть таким невнимательным) Все работает. На счет п. 3 - сделал проверки на то, что возвращают функции. С меня +.