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);

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

@basil_cat · 13.01.2026, 04:35 **[ТС]**

Verevkin,

Нашёл в инете, что для WinXP необходимо давать не параметр в событие мыши MOUSEEVENTF_LEFTDOWN а MOUSEEVENTF_XDOWN проверю намедни. Исправленная система по адресу
https://ru.files.fm/u/5wbctj49zn

@AzAtom · 13.01.2026, 10:52

basil_cat, цитирование применили неправильно. Verevkin показал, как вставить цитату из сообщения, на которую вы отвечаете. Например, вам задали вопрос. Цитируете этот вопрос и далее пишете свой ответ. Или наоборот, вам что-то написали, а вы задаёте уточняющий вопрос. Будет выглядеть так:

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

был актуален пока я не сделал, чтобы холст становился активным

А холст у вас элемент с фокусом, чтобы его активировать? Или у вас своя система активный/неактивный?

@basil_cat · 13.01.2026, 19:45 **[ТС]**

AzAtom,

А холст у вас элемент с фокусом, чтобы его активировать? Или у вас своя система активный/неактивный?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
WINXP:
    handleGL    : HWND;
    dc          : HDC  ;
    hrc         : HGLRC ;
    ps          : TPaintStruct;
 
  handleGL:=TWinControl(dr).Handle;
  dc := GetDC (handleGL);
  SetDCPixelFormat;
  hrc := wglCreateContext(dc);
 
В winXP от TCustomControl   [B]SetFocus[/B](handleGL);  в unit Windows
 
Win10
    handleGL    : HWND;
    dc          : HDC  ;
    hrc         : HGLRC ;
    ps          : TPaintStruct;
 
  handleGL:=TWinControl(dr).Handle;
  dc := GetDC (handleGL);
  SetDCPixelFormat;
  hrc := wglCreateContext(dc);
 
 win10  (WIN7) от TGraphicControl  TWinControl.SetFocus; в unit Controls

Там рисует пользовательский procedure WMPaint(var Msg: TWMPaint); message WM_PAINT; абсолютно одинаковый для WINXP и WIN10 (WIN7)
в памяти на холсте и выводит это всё при любом изменении на TPanel

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

Ну и каждый шаг можно залогировать в файл, раз отладки нормальной нет на XP.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure ClickLeftMousePoTabSheetRaskRo;
var
  p: TPoint;
  k,m:integer;
 
begin
if FormSapr.Panel_Visual_Raskroj1<>nil then // WinXP
begin
  k:=Panel_Visual_Raskroj1.W_ div 2;
  m:=Panel_Visual_Raskroj1.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj1.ClientToScreen(p);
end
else    // Win10
begin
  k:=Panel_Visual_Raskroj2.W_ div 2;
  m:=Panel_Visual_Raskroj2.H_ div 2;
    p:=Types.Point(k,m);
    p:=Panel_Visual_Raskroj2.ClientToScreen(p);
end;
    SetCursorPos(p.x, p.y);
if FormSapr.Panel_Visual_Raskroj1<>nil then // WinXP
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj1.W_),round(p.y*65535/Panel_Visual_Raskroj1.H_))
else    // Win10
    p := Types.Point(round(p.x*65535/Panel_Visual_Raskroj2.W_),round(p.y*65535/Panel_Visual_Raskroj2.H_));
 
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
    Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, p.x, p.y, 0, 0);
    Application.ProcessMessages;
    sleep(300);
 
end;

Обычная моя невнимательность. Теперь этот код работает и в WINXP, Win7 и WIN10.
Холсты то у меня разные по наследованию от разных компонентов для разных ОС.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@basil_cat 5 / 22 / 1 Регистрация: 24.11.2015 Сообщений: 205
	13.01.2026, 04:35 [ТС]
	Verevkin, Нашёл в инете, что для WinXP необходимо давать не параметр в событие мыши MOUSEEVENTF_LEFTDOWN а MOUSEEVENTF_XDOWN проверю намедни. Исправленная система по адресу https://ru.files.fm/u/5wbctj49zn 0