13 lines
302 B
ObjectPascal
13 lines
302 B
ObjectPascal
|
var
|
||
|
|
lLibraryHandle: THandle;
|
||
|
|
lDoSomething: procedure; stdcall;
|
||
|
|
begin
|
||
|
|
lLibraryHandle := LoadLibrary('MYLIB.DLL');
|
||
|
|
if lLibraryHandle >= 32 then { success }
|
||
|
|
begin
|
||
|
|
lDoSomething := GetProcAddress(lLibraryHandle, 'DoSomething');
|
||
|
|
lDoSomething();
|
||
|
|
FreeLibrary(lLibraryHandle);
|
||
|
|
end;
|
||
|
|
end;
|