ShellExecute упаковка в WinXP выдаёт ошибку

@basil_cat · Регистрация: 24.11.2015

Студворк — интернет-сервис помощи студентам

Столкнулся с такой проблемой по ShellExecute : распаковка файла rar работает всюду

Delphi
1
2
3
4
S_N:=S_NameFileFIGURE+'.rar';
a := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+S_N);
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\');
ShellExecute(0, 'open', 'winrar.exe', pchar('e -y '+a+' '+b), nil, SW_show);

, но вот упаковка в WINXP не работает

Delphi
1
2
3
s_rar_Mask:=S_Mask+'.bmp';
b := Pchar(ExtractFilePath(ParamStr(0))+'RaskFigMem\'+s_rar_Mask);
   ShellExecute(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b), nil, SW_SHOW);

Знатоки, может кто то сталкивался с этим, поделитесь опытом

@Rius · 12.01.2026, 08:09

У "не работает" есть какие-то сообщения или коды ошибок? Или просто "не работает"?

@D1973 · 12.01.2026, 08:16

ShellExecute() - функция, которая возвращает какое-либо значение: если возвращаемое значение больше или равно 32, операция прошла успешно, в противном случае — это код ошибки Windows.
- Какое именно значение она возвращает в тот момент, когда "не работает"?
- Почему ShellExecute(), а не CreateProcess()?

@Rius · 12.01.2026, 08:23

Лицензия-то на winrar есть?
Если нет, используйте https://www.7-zip.org/

@basil_cat · 12.01.2026, 08:27 **[ТС]**

Rius, Проверял в WinXP и Oracle VM VirtualBox

@Rius · 12.01.2026, 08:29

Вы пытаетесь заархивировать файл, в данный момент открытый в CAD (SAPR)?
Закройте SAPR. Или выберите шаринг режим, если такой есть в winrar.

@basil_cat · 12.01.2026, 08:30 **[ТС]**

D1973, Проверял в WinXP и Oracle VM VirtualBox. C CreateProcess() те же яйца, только всмятку.
Это вид ошибки в Oracle VM VirtualBox:

Verevkin · 12.01.2026, 08:39

А ты уверен, что ошибка доступа к памяти возникает при вызове ShellExecute(), а не где-то раньше ~~[или позже]~~? У тебя там в кучу смешались указатели и delphi-строки. Сначала вычисли все значения параметров (во временных переменных), а потом подставляй их в функцию. Перед вызовом функции можешь вывести их куда-нить в лог и/или показать на экране.

@Rius · 12.01.2026, 08:47

Или посмотреть в отладчике пошагово.

Verevkin · 12.01.2026, 08:51

Сообщение от Rius

Или посмотреть в отладчике пошагово.

Если кот написан в относительно новой IDE, то её не вкрячишь на WinXP. Для начала, всё ж, надо попробовать менее кровавые способы локализовать ошибку.

Verevkin · 12.01.2026, 08:54

Сообщение от basil_cat

Проверял в WinXP и Oracle VM VirtualBox

Меня терзают смутные сомнения: чой-то окно с сообщением об ошибке выглядит, как в Windows 10?

ShellExecute упаковка в WinXP выдаёт ошибку

@D1973 · 12.01.2026, 08:58

Сообщение от basil_cat

Это вид ошибки в Oracle VM VirtualBox:

Я вообще не про это спрашивал, а про возвращаемое функцией ShellExecute значение, но вот, судя по скрину, до нее дело даже не доходит. Verevkin правильно Вам советует избавиться от конкатенации строк с указателями - запросто AV может быть из за этого.

@basil_cat · 12.01.2026, 11:43 **[ТС]**

Verevkin,
Извините. Был обесточен район.
Нет, этот файл в данный момент архивирования не открыт в моём CAD (SAPR). Его можно удалять или изменять в этот момент, но воздействий на него нет. SAPR это система на моих исходных файлах. Система разработки управляющих программ на станки термической резки. Это ссылка на сам проект.

https://ru.files.fm/u/cwkekw8dd9 - система SAPR.
https://ru.files.fm/f/yyy774c797 - фото раскроя.

Скачать. Переименовать в SAPR.rar . Установить на диск C: в корень. Все файлы и папки должны быть в директории C:\SAPR

Запустить SAPR.EXE. Ответить ДА. Выбрать num14.bmp мышью, нажать Enter и ещё раз Enter. Загрузится это проект раскроя.
Уменьшение и увеличение на холсте колёсико мыши вверх, вниз или выделение лупой + или =.
Нажимайте ЗАПИСЬ в левом нижнем углу, ответьте ДА, введите новое имя БЕЗ расширения, например num14_1 ничего не трогайте. Происходит сохранение файлов проекта в директорию C:\SAPR\RaskFigMem\ или если установлен SAPR на диск E:/ то изменится папка на E:\SAPR\RaskFigMem\ . Действия в WIN10, WINВиста и WINXP одинаковые, требуется разрешение 1920х1080 и более, но запустится и при меньшем. Именно при упаковке сохраняемых файлов
NUM14_1.xlsx NUM14_1.bmp testNUM14_1_Chetchik.eb testNUM14_1.ebook KVKOLNUM14_1.txt StringGridNUM14_1.txt List_FigNUM14_1.txt в NUM14_1.rar в WINXP и вылетают эти ошибки.

Первое выглядит так в BOX, второе в чистом WINXP v3

@basil_cat · 12.01.2026, 11:54 **[ТС]**

Verevkin, Тот же проект собран и в WINXP и тем же DELPHI 7. Результат тот же. Почему я и вышел на знатоков.

Добавлено через 2 минуты
Verevkin, "А ты уверен, что ошибка доступа к памяти возникает при вызове ShellExecute(), а не где-то раньше [или позже]? У тебя там в кучу смешались указатели и delphi-строки. Сначала вычисли все значения параметров (во временных переменных), а потом подставляй их в функцию. Перед вызовом функции можешь вывести их куда-нить в лог и/или показать на экране."

Ответь пожалуйста тогда на вопрос почему всё таки с указателями всё нормально работает в WIN10 и Висте и не работает в WINXP.

Добавлено через 2 минуты
D1973,
Ответь пожалуйста тогда на вопрос почему всё таки с оформленными так указателями всё нормально работает в WIN10 и Висте и не работает в WINXP.

Добавлено через 3 минуты
Rius, В Delphi 7 работу функции API ShellExecute не посмотришь.

Verevkin · 12.01.2026, 11:56

Сообщение от basil_cat

Ответь пожалуйста тогда на вопрос почему всё таки с указателями всё нормально работает в WIN10 и Висте и не работает в WINXP.

Этот вопрос задавай на форуме телепатов. Здесь их нет, они все там тусуются.
Однако, это ошибка доступа к памяти. Сначала найди, где она возникает. Пока ты этого не сделаешь, будет больно.

@basil_cat · 12.01.2026, 12:03 **[ТС]**

Rius, Пробовал, теже, только в профиль. Пробовал сторонние упаковщики, упаковывают даже в WIN10 только по одному файлу, но в WINXP также выдают ошибку именно на упаковке файлов в архив.
Я почему и обратился, когда исчезли идеи.

Добавлено через 2 минуты
В сущности, все уже работают на WIN10, 11 но обломала сама ситуация не доведенная до логического завершения. В прошлом вы мне много помогли в других темах, надеюсь решим вопрос вместе. Думаю он будет интересен и для других программистов системщиков.

Добавлено через 2 минуты
Verevkin, "Однако, это ошибка доступа к памяти. Сначала найди, где она возникает. Пока ты этого не сделаешь, будет больно."

Да это ясно что доступ к памяти, но как найти где?
Есть идеи?
Попробую ещё файл поковырять в ollydbg
Спасибо.

@Rius · 12.01.2026, 12:03

Работает на Windows 10 и не работает в Windows XP?
Может, не та версия функции WinAPI вызывается? Ansi/Wide, например.

Verevkin · 12.01.2026, 12:07

Сообщение от basil_cat

Пробовал сторонние упаковщики, упаковывают даже в WIN10 только по одному файлу

Плохо пробовал. У меня 7zip прекрасно пакует дерево каталогов по маске.
Есть способ лучше - можно не вызывать внешний упаковщик, а воспользоваться каким-нить опенсорс-компонентом для работы с архивами.

Добавлено через 1 минуту

Сообщение от basil_cat

Да это ясно что доступ к памяти, но как найти где?
Есть идеи?

я ж выше написал.
Сделай тестовое приложение для отладки упаковки и если ошибка будет воспроизводиться, выложи его сюда, а мы поковыряем.

@basil_cat · 12.01.2026, 12:07 **[ТС]**

Rius,
Вы имеете ввиду что вместо ShellExecute() вызвать по очереди эти
function ShellExecuteA;
function ShellExecuteW;x
function ShellExecuteEx;
function ShellExecuteExA;
function ShellExecuteExW;
???

@Rius · 12.01.2026, 12:08

По очереди попробовать, вдруг на одной будет везде работать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 08:09
	У "не работает" есть какие-то сообщения или коды ошибок? Или просто "не работает"? 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,406 Записей в блоге: 3
	12.01.2026, 08:16
	ShellExecute() - функция, которая возвращает какое-либо значение: если возвращаемое значение больше или равно 32, операция прошла успешно, в противном случае — это код ошибки Windows. - Какое именно значение она возвращает в тот момент, когда "не работает"? - Почему ShellExecute(), а не CreateProcess()? 0

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 08:23
	Лицензия-то на winrar есть? Если нет, используйте https://www.7-zip.org/ 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 08:27 [ТС]
	Rius, Проверял в WinXP и Oracle VM VirtualBox Миниатюры 0

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 08:29
	Вы пытаетесь заархивировать файл, в данный момент открытый в CAD (SAPR)? Закройте SAPR. Или выберите шаринг режим, если такой есть в winrar. 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 08:30 [ТС]
	D1973, Проверял в WinXP и Oracle VM VirtualBox. C CreateProcess() те же яйца, только всмятку. Это вид ошибки в Oracle VM VirtualBox: Миниатюры 0

Verevkin Злостный нарушитель 10358 / 5773 / 1274 Регистрация: 12.03.2015 Сообщений: 26,685
	12.01.2026, 08:39
	А ты уверен, что ошибка доступа к памяти возникает при вызове ShellExecute(), а не где-то раньше ~~[или позже]~~? У тебя там в кучу смешались указатели и delphi-строки. Сначала вычисли все значения параметров (во временных переменных), а потом подставляй их в функцию. Перед вызовом функции можешь вывести их куда-нить в лог и/или показать на экране. 0

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 08:47
	Или посмотреть в отладчике пошагово. 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 11:43 [ТС]
	Verevkin, Извините. Был обесточен район. Нет, этот файл в данный момент архивирования не открыт в моём CAD (SAPR). Его можно удалять или изменять в этот момент, но воздействий на него нет. SAPR это система на моих исходных файлах. Система разработки управляющих программ на станки термической резки. Это ссылка на сам проект. https://ru.files.fm/u/cwkekw8dd9 - система SAPR. https://ru.files.fm/f/yyy774c797 - фото раскроя. Скачать. Переименовать в SAPR.rar . Установить на диск C: в корень. Все файлы и папки должны быть в директории C:\SAPR Запустить SAPR.EXE. Ответить ДА. Выбрать num14.bmp мышью, нажать Enter и ещё раз Enter. Загрузится это проект раскроя. Уменьшение и увеличение на холсте колёсико мыши вверх, вниз или выделение лупой + или =. Нажимайте ЗАПИСЬ в левом нижнем углу, ответьте ДА, введите новое имя БЕЗ расширения, например num14_1 ничего не трогайте. Происходит сохранение файлов проекта в директорию C:\SAPR\RaskFigMem\ или если установлен SAPR на диск E:/ то изменится папка на E:\SAPR\RaskFigMem\ . Действия в WIN10, WINВиста и WINXP одинаковые, требуется разрешение 1920х1080 и более, но запустится и при меньшем. Именно при упаковке сохраняемых файлов NUM14_1.xlsx NUM14_1.bmp testNUM14_1_Chetchik.eb testNUM14_1.ebook KVKOLNUM14_1.txt StringGridNUM14_1.txt List_FigNUM14_1.txt в NUM14_1.rar в WINXP и вылетают эти ошибки. Первое выглядит так в BOX, второе в чистом WINXP v3 Миниатюры 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 11:54 [ТС]
	Verevkin, Тот же проект собран и в WINXP и тем же DELPHI 7. Результат тот же. Почему я и вышел на знатоков. Добавлено через 2 минуты Verevkin, "А ты уверен, что ошибка доступа к памяти возникает при вызове ShellExecute(), а не где-то раньше [или позже]? У тебя там в кучу смешались указатели и delphi-строки. Сначала вычисли все значения параметров (во временных переменных), а потом подставляй их в функцию. Перед вызовом функции можешь вывести их куда-нить в лог и/или показать на экране." Ответь пожалуйста тогда на вопрос почему всё таки с указателями всё нормально работает в WIN10 и Висте и не работает в WINXP. Добавлено через 2 минуты D1973, Ответь пожалуйста тогда на вопрос почему всё таки с оформленными так указателями всё нормально работает в WIN10 и Висте и не работает в WINXP. Добавлено через 3 минуты Rius, В Delphi 7 работу функции API ShellExecute не посмотришь. 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 12:03 [ТС]
	Rius, Пробовал, теже, только в профиль. Пробовал сторонние упаковщики, упаковывают даже в WIN10 только по одному файлу, но в WINXP также выдают ошибку именно на упаковке файлов в архив. Я почему и обратился, когда исчезли идеи. Добавлено через 2 минуты В сущности, все уже работают на WIN10, 11 но обломала сама ситуация не доведенная до логического завершения. В прошлом вы мне много помогли в других темах, надеюсь решим вопрос вместе. Думаю он будет интересен и для других программистов системщиков. Добавлено через 2 минуты Verevkin, "Однако, это ошибка доступа к памяти. Сначала найди, где она возникает. Пока ты этого не сделаешь, будет больно." Да это ясно что доступ к памяти, но как найти где? Есть идеи? Попробую ещё файл поковырять в ollydbg Спасибо. 0

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 12:03
	Работает на Windows 10 и не работает в Windows XP? Может, не та версия функции WinAPI вызывается? Ansi/Wide, например. 0

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 165
	12.01.2026, 12:07 [ТС]
	Rius, Вы имеете ввиду что вместо ShellExecute() вызвать по очереди эти function ShellExecuteA; function ShellExecuteW;x function ShellExecuteEx; function ShellExecuteExA; function ShellExecuteExW; ??? 0

@Rius 13131 / 7691 / 1677 Регистрация: 25.05.2015 Сообщений: 23,465 Записей в блоге: 14
	12.01.2026, 12:08
	По очереди попробовать, вдруг на одной будет везде работать. 0