Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Програмування процедур (Інформація про пам’ять)



unit pam;interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, ExtCtrls, Gauges, jpeg;

Type TForm1 = class(TForm)

Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel;

Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel;

Label13: TLabel; Label14: TLabel; Gauge1: TGauge; Timer1: TTimer;

SpinEdit1: TSpinEdit; Label15: TLabel; Label16: TLabel; Button1: TButton;

Image1: TImage; procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

private { Private declarations } public { Public declarations } end;

var Form1: TForm1;implementation{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var mem: TMemoryStatus;begin mem.dwLength :=SizeOf(mem);

GlobalMemoryStatus(mem); with mem do begin

Label1.Caption := IntToStr(dwMemoryLoad) + ' %';

Label2.Caption := IntToStr((dwTotalPhys) div 1024) +'Кбайт';

Label3.Caption := IntToStr ((dwAvailPhys) div 1024) +'Кбайт';

Label4.Caption := IntToStr((dwTotalPageFile) div 1024) +'Кбайт';

Label5.Caption := IntToStr((dwAvailPageFile) div 1024) +'Кбайт';

Label6.Caption := IntToStr((dwTotalVirtual) div 1024) +'Кбайт';

Label7 . Caption := IntToStr ( (dwAvailVirtual) div 1024) +' Кбайт';

Gauge1.MaxValue := dwTotalPhys;

Gauge1.Progress := dwTotalPhys - dwAvailPhys;

end; end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Interval := SpinEdit1.Value*1000;end;end.

Програмування процедур (Автозапуск)

unit autorun1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,shellapi ,StdCtrls, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;

Label5: TLabel; Timer1: TTimer; Label6: TLabel; Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label3click(Sender: TObject);

procedure Label5click(Sender: TObject);

private { Private declarations } public { Public declarations } end;

var

Form1: TForm1;implementation

uses autorun2;{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var forma:hrgn;begin sleep(100);newform.hide;

forma:=createellipticrgn(0,0,width,height);

setwindowrgn(handle,forma,true);end;

procedure TForm1.Timer1Timer(Sender: TObject);

var i:integer;begin for i:=1 to 120 do

begin

alphablendvalue:=alphablendvalue+2;

left:=left+(random(3)-1);

top:=top+(random(3)-1);sleep(10);end;

alphablendvalue:=255;position:=podesktopcenter;timer1.Enabled:=false;end;

procedure TForm1.Label6Click(Sender: TObject);

begin halt;end;

procedure TForm1.Label3click(Sender: TObject);

var path:string; begin

showmessage('Програма для перегляду відео-файлів'+ #13#10+

'популярних форматів і прослуховування музики');

path:=getcurrentdir+'\media.exe';

shellexecute(0,nil,pchar(path),nil,nil,sw_show); end;

procedure TForm1.Label5click(Sender: TObject);

var path:string; begin

showmessage('Програма для перегляду інформації'+ #13#10+

'про фізичну,сторінкову'+ #13#10+'та віртуальну пам"ять');

path:=getcurrentdir+'\pam.exe'; shellexecute(0,nil,pchar(path),nil,nil,sw_show);

end;end.

 

 

Розділ ІIІ. Принцип дії програми

Медіа-плеєр

Медіа-плеєр дозволяє переглядати відеофайли різних форматів та прослуховувати аудіофайли.

Завантажити файл програми можна, клацнувши на exe-файлі Media. Відкриється вікно «Медіа-плеєр» невеликого розміру, оскільки для програвання аудіо-файлів не потрібно великого вікна, а відео відкривається в окремому вікні. Отже,

§ на головному вікні програми потрібно клацнути на кнопці «Обзор», щоб

вибрати файл для програвання;

§ у порожньому рядку відобразиться шлях розміщення вибраного файла;

§ якщо це музичний файл , то потрібно скористатися кнопками програвача

або «Грати» - для програвання музики, або «Пауза» - для тимчасової зупинки , «Назад» і «Вперед» - для продовження відтворення файла після натиснення кнопки «Пауза», і «Стоп» - для повної зупинки відтворення ;

§ якщо це відеофайл, то він відкриється у окремому вікні відтворення, у

лівому верхньому куті екрану. Керувати програванням файлу можна за допомогою вище описаних кнопок..

 

 

 




Поиск по сайту:

©2015-2020 studopedya.ru Все права принадлежат авторам размещенных материалов.