procedure TForm1.Button1Click(Sender: TObject); var AModule: THandle; begin AModule := LoadLibrary('Images.dll'); image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine'); FreeLibrary(AModule); end;
TForm1.Button1Click(Sender: TObject); var
AModule: THandle; begin
AModule := LoadLibrary('Images.dll'); image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine'); FreeLibrary(AModule); end
;