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'</
Delphi通过LoadLibrary调用其他动态库
最新推荐文章于 2024-06-14 17:07:35 发布