The dtedll.dbl system code changes below are shown
in blue bold.
if (dll_handle) then
begin
retval = %dll_call(dll_handle,DLL_TYPE_WINAPI,"Splash_Create",
& left,top,center,retmsg,a_bitmap) ,a_bitmap)
xcall u_chr(dummy,a_wind,,,pause)
retval = %dll_call(dll_handle,DLL_TYPE_WINAPI,"Splash_Destroy")
xcall u_update
end
else
xcall u_message("DTE.DLL not found")
xreturn
This change is repeated again with the License Agremeent
section:
if (.not.err) then
begin
xcall u_close(lic_chan)
dll_handle = %dll_open(dll_path)
if (dll_handle) then
begin
result = %dll_call(dll_handle,DLL_TYPE_WINAPI,"Agree_Create",a_file,left,top,
& center,width,height)
retval = %dll_call(dll_handle,DLL_TYPE_WINAPI,"Agree_Destroy")
end
else
xcall u_message("DTE.DLL not found")
end
freturn(result)
print
|