Цитата:
Сообщение от 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;
|
Спасибо большое за помощь!!! Все работает!!! Надо учится работать с указателями...