5,386
社区成员
发帖
与我相关
我的任务
分享
procedure CloseX(DestFile: pwchar);
var
h: DWORD;
func: procedure(p1: Longint; p2: pwChar; p3: Longint); stdcall;
begin
h := LoadLibrary('test.dll');
@Func := GetProcAddress(h, lpcstr(5));
Func(0, DestFile, -1);
end;