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;
|