5,928
社区成员




<div>
<OBJECT
id=TestAX
codebase="MyActiveX.ocx"
classid="clsid:32C6DD96-596F-452D-97F9-9A0256260B9F"
width=560
height=359
align=center
hspace=0
vspace=0
>
</OBJECT>
</div>
var
P: Pointer;
fDrvLibHnd: LongInt;
fn: string;
Method: TIC_InitComm;
begin
fn := PChar(IncludeTrailingPathDelimiter(GetEnvironmentVariable('temp')) + 'ICDrv\dculc.dll');
if FileExists(fn) then
begin
fDrvLibHnd := Windows.LoadLibrary(PChar(fn)); //在这里报错 库D:\TEMP\Low\ICDrv\dculc.dll加载失败:ErrorCode = 1114.
if (fDrvLibHnd <= 0) then
raise Exception.CreateFmt('库%s加载失败:ErrorCode = %d', [fn, GetLastError])
else
begin
@Method := Windows.GetProcAddress(fDrvLibHnd, 'IC_InitComm');
Method(-1);
end;
end;
end;