uses
SysUtils,
ComObj,
Classes;
{$R *.res}

function SetOCX2REGList( OcxListFile : String ) : Integer; export stdcall;
begin
   if FileExists( OcxListFile ) then
   begin
       RegisterComServer( OcxListFile );
       result := 0;
   end
   else
       result := 1;

end;

exports
   SetOCX2REGList;
begin

end.

다음과 같이 DLL파일을 만들어서 컴파일했습니다. 물론 에러 없이, 잘 컴파일되서
Dll파일이 생성됐습니다.

다음은..이 dll파일을 콜하는 부분입니다.

var
Form1 : TForm1;
function GetOCX2REGList( OcxListFile : String ): Integer; stdcall;
                                             external 'c:ocx2reg.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   GetOCX2REGList( 'c:test.ocx' );
end;

엑세스바이올레이션에러가 나는데, 도무지 이유를 모르겠습니다.

답변좀 부탁드리겠습니다.