本文整理自网络,侵删。
procedure TFrmrydj.btnJYJJClick(Sender: TObject);type Tfzyb_yjjgl=procedure;stdcall; var LibHandle: THandle; fzyb_yjjgl:Tfzyb_yjjgl;begin try LibHandle := LoadLibrary('zyb_yjjgl.dll'); if LibHandle <> 0 then begin @fzyb_yjjgl := GetProcAddress(LibHandle, 'fzyb_yjjgl'); if Assigned(fzyb_yjjgl) then fzyb_yjjgl; end; finally freeLibrary(LibHandle); end;end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>