Цитата:
Сообщение от s0manmbula
Уже исправил - компонент ImageList...
|
Всё очень просто, в dll пихаешь эту фугкцию:
Код:
function GetImageList: Pointer;
var
ilImages: TImageList;
begin
ilImages := TImageList.Create(nil);
// ...
Result := @ilImages; //нужный TImageList
end;
а в приложение
Код:
procedure GetImages;
type
TGetImageListProc = function: Pointer;
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;
на компиляторе не проверял, будут ошибки - репорть