HanDs
管理员

[Delphi文章] 多个DLL调用及释放 



var
    DLLFile : array of THandle; // pointers to DLLHandle

// 初始化
    SetLength(FDLLFile, 0);

//调用DLL
    LibHandle := safeLoadLibrary(dllname);
    If LibHandle <> 0 Then
    Begin
           SetLength(FDLLFile, Length(FDLLFile) + 1);
           FDLLFile[Length(FDLLFile)-1] := LibHandle;
    End;

//释放DLL
    for i := 0 to Length(FDLLFile) - 1 do
    FreeLibrary(FDLLFile[i]);
    SetLength(FDLLFile, 0);


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
多个
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复