улярні графічні формати. 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
В
Висновок
При розробці цієї роботи навчилися створювати додатки для зміни шпалер робочого столу. Ознайомилися з користуванням готових програм зміни шпалер. А також використовувалися різні ф...
