type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
1. Есть очень много вирусов они могут очень быть опасными для человека или того же животного. Известные вирусы: Коронавирус, орви, пневмония или есть много видов грип они все очень опасные и чтобы защитить свой организм нужно жить правильно короче здарова нужно жить.
2. Вреданостные программы создают для того чтобы взломать компьютер, телефон или ноутбук. Создают это плохие хакеры. Они это делают для того чтобы украсть твои данные.
3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Image1.Stretch:=true;
Image1.Left:=form1.Width div 2-image1.Width div 2;
Image1.top:=form1.Height div 2-image1.Height div 2;
end
end;
end.