Не регистрирует класс

[Fakov]

И еще раз привет знатокам.
Преследую цель - перестать регистрировать ocx библиотеку на машинах пользователей через батник, хочу, чтобы программа делала это при запуске. Если это возможно.

Вот такую структуру запускаю на событии создания главной формы:

//============================================================== REGSVR32
function TForm1.IsWow64: BOOL;
type
  TIsWow64Process = function(hProcess: THandle;
    var Wow64Process: BOOL): BOOL; stdcall;
var
  IsWow64Process: TIsWow64Process;
begin
  Result := False;
  @IsWow64Process := GetProcAddress(GetModuleHandle(kernel32),
    'IsWow64Process');
  if Assigned(@IsWow64Process) then
    IsWow64Process(GetCurrentProcess, Result);
end;

function TForm1.ExecAndWait(const ExecuteFile, ParamString : string): boolean;
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result:=True;
  end
  else Result:=False;
end;


procedure TForm1.RegisterOCX;
type
  TRegFunc = function : HResult; stdcall;
var
  ARegFunc : TRegFunc;
  aHandle  : THandle;
  ocxPath  : string;
begin
  ocxPath := ExtractFilePath(Application.ExeName) + 'MpqCtl.ocx';
  aHandle := LoadLibrary(PChar(ocxPath));
  if aHandle <> 0 then
  begin
    ARegFunc := GetProcAddress(aHandle,'DllRegisterServer');
    if Assigned(ARegFunc) then
    begin
      if IsWow64 then
        ExecAndWait('C:\Windows\SysWOW64\regsvr32','/s ' + ocxPath)
        else
        ExecAndWait('C:\Windows\System32\regsvr32','/s ' + ocxPath)
    end;
    FreeLibrary(aHandle);
  end;
  ShowMessage(Format('Error registering %s', [ocxPath]));
 end;

//============================================================== REGSVR32

Вероятно, знатоки быстрым взглядом найдут ошибку и подскажут - что не так здесь и как нужно исправить, чтобы при запуске программы не ловить эксепшн с надписью "EOleSysError - Класс не зарегистрирован"

Спасибо.

[Serge_Bliznykov]

а если просто в батнике выполнить

regsvr32 /s <ПолныйПутькOCX>

[Fakov]

Через батник работает все. Но цель то - избавить пользователя от необходимости сначала запускать батник, а потом экзешник.

[Serge_Bliznykov]

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

Через батник работает все. Но цель то - избавить пользователя от необходимости сначала запускать батник, а потом экзешник.

понятно.
А что сложного в том, чтобы в начале EXE-шника проверить наличие нужного класса, если его нет - выдать сообщение пользователю и выйти?!
И пользователю, имхо, несложно будет один раз запустить батник.


Тогда я вряд ли подскажу, в чём проблема с вашим кодом для регистрации.
Один только совет. Попробуйте запустить ваш EXEшник регистрации с правами администратора (правой кнопкой мышки на exe - "Запуск от имени администратора"). Может быть, прав не хватает.

[Slym]

и можно обойтись без regsvr32...
ocx это длл с 4 функциями одна из которых DllRegisterServer...
делаем лоадлиб, гетпрокадр('регистер'), регистер
или одной строкой ComObj.RegisterComServer('MpqCtl.oc x');

[Fakov]

Вон даже как...
Спасибо, попробую обязательно, отпишусь

[Vapaamies]

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

или одной строкой ComObj.RegisterComServer('MpqCtl.oc x');

Угу. Надо было сначала в справке посмотреть. Ибо странно, если бы в модулях поддержки COM не реализовали такую полезную вещь... Я вот или не знал про существование этой процедуры, или забыл. Давно уже с COM не работал.