Code: |
procedure TForm1.Button1Click(Sender: TObject); {©Drkb v.3} var AModule: THandle; begin AModule := LoadLibrary('Images.dll'); image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine'); FreeLibrary(AModule); end; |
Code: |
procedure TForm1.Button1Click(Sender: TObject); {©Drkb v.3} var AModule: THandle; begin AModule := LoadLibrary('Images.dll'); image1.Picture.BitMap.LoadFromResourceName(AModule, 'StartMine'); FreeLibrary(AModule); end; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!