可以使用以下代码
var
Hinst:THandle;
Fpointer:TFarProc;
Pproc: TProc;
begin
Hinst:=0;
try
Hinst := LoadLibrary(Pchar('IMPEG32.DLL'));
if Hinst >0 then
begin
Fpointer := GetProcAddress(Hinst,Pchar(OpenDriver));
if Fpointer <> nil then
begin
Pproc:= TProc(Fpointer) ;
Pproc(Application.Handle) ;
end
finally
FreeLibrary(Hinst);
end;
end;
var
Hinst:THandle;
Fpointer:TFarProc;
Pproc: TProc;
begin
Hinst:=0;
try
Hinst := LoadLibrary(Pchar('IMPEG32.DLL'));
if Hinst >0 then
begin
Fpointer := GetProcAddress(Hinst,Pchar(OpenDriver));
if Fpointer <> nil then
begin
Pproc:= TProc(Fpointer) ;
Pproc(Application.Handle) ;
end
finally
FreeLibrary(Hinst);
end;
end;
解决方案 »
- 透明设置
- 怎样将jpg文件转化成bmp文件?
- 我使用了ActionToolBar,其中有一个下按钮,现在问题就是鼠标移到上面时,图标不见了,怎么回事?
- 如何将当前日期时间转化成指定的格式?
- 在线急盼,DOA开发Oracle数据库应用中,如何在Delphi操作返回值是游标的存储过程
- 如何知道sql的image字段(保存jpg文件)里面没有内容?
- 求WINDOWS2000服务操作(启动,停止,获取服务状态)的源码或者例子,多谢!
- 我在fastreport中怎么显示不了数据?(只有这么多分,解决以后一定多加分)
- 怎么强制窗口重画...我试图在运行期间修改窗体风格
- 这50分谁来拿?
- 怎样判断clientdataset的delta值为空?
- 请帮个忙!!
FUNCTION OpenDriver:INTEGER;EXTERNAL 'IMPEG32.DLL' NAME FMPOpenDriver;STDCALL;