example of using LoadLibrary in delphi

[Jonathan Wilson]

Is there an example somewhere of the right way to use LoadLibrary,
GetProcAddress etc in delphi (including calling the function you have
gotten the address of)

[Rob Kennedy]

Look at the TlHelp32 unit that comes with Delphi.

--
Rob

[Mustits]

Jonathan Wilson <jon...@tpgi.com.au> wrote in message news:<40c5cdfd$1...@dnews.tpgi.com.au>...

> Is there an example somewhere of the right way to use LoadLibrary,
> GetProcAddress etc in delphi (including calling the function you have
> gotten the address of)

uses Windows;

type
TMessageBoxAFunc = function (hWnd: HWND; lpText, lpCaption:
PAnsiChar; uType: UINT): Integer; stdcall;

procedure TMainForm.TestBtnClick(Sender: TObject);
var
Handle: THandle;
Func: TMessageBoxAFunc;
begin
Handle := LoadLibrary('user32.dll');
try
Func := GetProcAddress(Handle, 'MessageBoxA');
Func(0, 'test', 'test', MB_OK);
finally
FreeLibrary(Handle);
end;
end;