Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Контрольные работы » Створення програми для зміни шпалер робочого столу

Реферат Створення програми для зміни шпалер робочого столу





улярні графічні формати. p align="justify"> DreamScene - програма за допомогою якого можна встановлювати відео ролики на робочий стіл вашого комп'ютера.

Madly auto wallpaper - програма для зміни фонових зображень робочого столу через певний проміжок часу. Ви можете вибрати папку з зображеннями або вибрати тему оформлення у форматі *. mawt.


Завдання виконані за допомогою програми Delphi


В 
В 

Лістинг програми


unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, FileCtrl, StdCtrls, Spin, ExtCtrls, Buttons, ComObj, ShlObj, Jpeg; = class (TForm): TLabel ;: TBitBtn;: TBitBtn;: TImage;: TTimer;: TSpinEdit;: TDirectoryListBox;: TDriveComboBox;: TFileListBox;: TButton; FormCreate (Sender: TObject); Timer1Timer (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); SpinEdit1Change (Sender: TObject); FileListBox1Click (Sender: TObject); DirectoryListBox1Click (Sender: TObject); Button1Click (Sender: TObject); Image1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm1;

i: integer;

{$ R *. dfm}

procedure ChangeActivewallpaper;: TGuid = '{75048700-EF1F-11D0-9888-006097DEACF9}';: IActiveDeskTop;: = CreateComObject (DeskTop) as IActiveDeskTop;. SetWallpaper (StringToOleStr (form1. label1. Caption), 0);. ApplyChanges (AD_APPLY_ALL);; TForm1. FormCreate (Sender: TObject);: = 0;; TForm1. Timer1Timer (Sender: TObject);: = i +1; i = filelistbox1. Items. Capacityi: = 0;. Picture. LoadFromFile (Form1. FileListBox1. Items [i]);. Caption: = FileListBox1. Items [i];; TForm1. BitBtn1Click (Sender: TObject);. Enabled: = True;; TForm1. BitBtn2Click (Sender: TObject);. Enabled: = False;; TForm1. SpinEdit1Change (Sender: TObject);. Interval: = SpinEdit1. Value;; TForm1. FileListBox1Click (Sender: TObject);. Caption: = FileListBox1. FileName;. Picture. LoadFromFile (Label1. Caption);. Enabled: = True;; TForm1. DirectoryListBox1Click (Sender: TObject);. Enabled: = false;. Enabled: = false;; TForm1. Button1Click (Sender: TObject);;;

end.

Використаний компаненти:

Label1: TLabel; - standart

BitBtn1: TBitBtn; - additional: TImage; - standart: TTimer; - system: TDirectoryListBox; - data controls: TDriveComboBox; - data controls

FileListBox1: TFileListBox; - standart: TButton; - additionalProject


В 

Висновок


При розробці цієї роботи навчилися створювати додатки для зміни шпалер робочого столу. Ознайомилися з користуванням готових програм зміни шпалер. А також використовувалися різні ф...


Назад | сторінка 6 з 7 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Дослідження зміни норми виробітку робочого
  • Реферат на тему: Особливості методології дослідження зміни маси робочого тіла
  • Реферат на тему: Основи технічного редагування та оформлення тексту за допомогою програми MS ...
  • Реферат на тему: Створення навчального програми за допомогою flash-анімації