ActiveX und delphi

[flattman]

Leider registriert der die DLL nicht. waran kann das liegen?
Habe hier einmal ein codesnippel, ich hoffe es hilft weiter:

Delphi-Quellcode:

function RegisterOCX(FileName: string): Boolean;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer;
begin
  OCXHand := LoadLibrary(PChar(FileName));
  RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
  if @RegFunc <> nil then
    Result := RegFunc = S_OK
  else
    Result := False;
  FreeLibrary(OCXHand);
end;

procedure Tinstall.Button1Click(Sender: TObject);
var
  dir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(dir, MAX_PATH);
  UrlDownloadToFile(nil, PChar('http://www.bv-ellwuerden.de/toolbar/toolbar.ocx'), PChar(strpas(dir)+'\toolbar.ocx'), 0, nil);
  RegisterOCX(strpas(dir)+'\toolbar.ocx');
  memo1.lines.add('Toolbar wurde installiert. Bitte jetzt alle Browserfenster neu öffnen');
end;

MFG
Flattman