[s0manmbula]

Сообщение от AleD

тогда так:

Код:

function GetImageList: Pointer;
var
  ilImages: TImageList;
begin
  ilImages := TImageList.Create(nil);
  // ...
  Result := @ilImages; //нужный TImageList
end;

а в приложение

Код:

Код:
procedure GetImages;
type
  PImageList = ^TImageList;
  TGetImageListProc = function: PImageList;
const
  libname = 'mylib.dll';
  procName = 'GetImageList';
var
  lib: Cardinal;
  proc: TGetImageListProc;
  newImages: TImageList;
begin
  lib := LoadLibrary(pchar(libname));
  if(lib<>-1)then
  begin
    proc := GetProcAddress(lib,procName);
    if(proc<>nil)then
      newImages := proc^;
  end;
end;

Спасибо большое за помощь!!! Все работает!!! Надо учится работать с указателями...