uses Sysutils;
procedure TfrmMain.CheckForAddFlow;
var
SearchRec: TSearchRec;
LibHandle: Cardinal;
ResStream: TResourceStream;
begin
if FindFirst("your-lib.dll", faAnyFile, SearchRec) <> 0 then
begin
{Загружаем библиотеку}
LibHandle := LoadLibrary("your_lib.dll");
if Handle <> 0 then
{Загружаем ресурс}
ResStream := TResourceStream.Create(LibHandle,
PChar("res_name"), RT_BITMAP);
try
ImageViewer.Picture.Graphic.LoadFromStream(ResStream);
finally
ResStream.Free();
end;
end;
end;
//ShowMessage(IntToStr(AllocMemCount) + ":" + IntToStr(AllocMemSize));
end;
|