library sourse;
{$R myrc.RES}
begin
end.
做一个rc文件
MOVIE AVI Call.avi
用brcc32.exe编译后，
做一个DLL
代码见上
调用见下：
hinst:THANDLE;
hinst:=LoadLibrary('sourse.dll');
if hinst=0 then
begin
Freelibrary(hinst);
MessageBox(handle,'载入DLL错误，请检查对应目录!','错误!',MB_ICONERROR+MB_OK);
Application.Terminate;
end;
再就可以通过这个hinst调用了
