Проблема регистрации OCX в Delphi 6 под 64-битной Windows 7 с повышенными правами: Поиск решений

Delphi , ОС и Железо , Windows

При разработке программного обеспечения на Delphi 6 в среде Windows XP разработчики могут столкнуться с проблемами при переходе на использование 64-битных операционных систем, таких как Windows 7. Одна из таких проблем связана с регистрацией OCX-контролов, которая может не выполняться корректно из-за недостаточных прав. Для решения этой задачи разработчики используют функцию, позволяющую запустить программу с повышенными правами.

Вот пример функции на Object Pascal (Delphi), которая предназначена для запуска программы с правами администратора:

function LB_RunAsAdminWait(hWnd: HWND; filename: string; Parameters: string): Boolean;
var
  sei: TShellExecuteInfo;
begin
  Result := False;
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := hWnd;
  sei.fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS;
  sei.lpVerb := 'runas';
  sei.lpFile := PChar(filename);
  sei.lpParameters := PChar(Parameters);
  sei.nShow := SW_SHOWNORMAL;

  if ShellExecuteEx(@sei) then
    Result := True;

  if sei.hProcess <> 0 then begin
    while WaitForSingleObject(sei.hProcess, 50) = WAIT_TIMEOUT do
      Application.ProcessMessages;
    CloseHandle(sei.hProcess);
  end;
end;

Эта функция вызывается для запуска RegSvr32 с параметрами для регистрации OCX, но при выполнении на 64-битной Windows 7 функция возвращает True, указывая на успешный запуск, однако OCX не регистрируется.

Подтвержденный ответ указывает на вероятность того, что проблема может быть связана с несоответствием битности DLL и RegSvr32, или же с задействованием файловой системы с перенаправлением. В случае использования 64-битной операционной системы, если OCX находится в директории System32, перенаправление может привести к тому, что путь будет интерпретирован как SysWow64.

Альтернативный ответ предлагает убрать параметр /s (silent), который не позволяет RegSvr32 выводить сообщения об ошибках, и дать программе возможность сообщить о проблеме.

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

Итак, для успешной регистрации OCX в Delphi 6 под 64-битной Windows 7 с использованием повышенных прав, разработчикам следует:

1. Убедиться, что битность RegSvr32 соответствует битности OCX.
2. Проверить наличие пробелов в пути к OCX и, если они есть, использовать кавычки для корректного обращения к файлу.
3. В случае возникновения ошибок, отключить параметр /s в RegSvr32, чтобы получить подробное сообщение об ошибке.

Эти шаги помогут разработчикам избежать типичных ошибок при работе с OCX в среде 64-битных операционных систем.

Создано по материалам из источника по ссылке.

Проблема заключается в том, что при попытке зарегистрировать OCX-контрол в Delphi 6 на 64-битной Windows 7 с использованием повышенных прав возникают сложности, связанные с битностью и путями к файлам, что требует специального подхода для решения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::