Програмування процедур (Інформація про пам’ять)
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. Відкриється вікно «Медіа-плеєр» невеликого розміру, оскільки для програвання аудіо-файлів не потрібно великого вікна, а відео відкривається в окремому вікні. Отже,
§ на головному вікні програми потрібно клацнути на кнопці «Обзор», щоб
вибрати файл для програвання;
§ у порожньому рядку відобразиться шлях розміщення вибраного файла;
§ якщо це музичний файл , то потрібно скористатися кнопками програвача
або «Грати» - для програвання музики, або «Пауза» - для тимчасової зупинки , «Назад» і «Вперед» - для продовження відтворення файла після натиснення кнопки «Пауза», і «Стоп» - для повної зупинки відтворення ;
§ якщо це відеофайл, то він відкриється у окремому вікні відтворення, у
лівому верхньому куті екрану. Керувати програванням файлу можна за допомогою вище описаних кнопок..
Поиск по сайту: