Resources - recursos em dll como usar

Top  Previous  Next

// DLL de Recursos

 

 

// Fonte da DLL

library DllRec;

 

{$R ArqRes.RES}

 

begin

end.

 

 

// Fonte do programa

 

procedure TForm1.FormCreate(Sender: TObject);

var

  LibHandle : THandle;

begin

  LibHandle := LoadLibrary('DLLRec.Dll');

  // se LibHandle for diferente de 0, carregou Ok

  if LibHandle <> 0 then

  try

    Image1.Picture.Bitmap.Handle := LoadBitmap(LibHandle,'BITMAP1');

    Application.Icon.Handle := LoadIcon(LibHandle,'ICON1');

  finally

    FreeLibrary(LibHandle);

  end

  else

    raise Exception.Create('Erro ao carregar biblioteca');

end;