| Class TMainForm (unit WpMain2) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ChangeWallpaper(Wallpaper: String);
procedure FindBitmaps(Folder: String);| Properties |
| Events |
| Variables |
BitmapFolder : String;
BitmapList : TStringList;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);---------------------- TMainForm ---------------------
procedure FormDestroy(Sender: TObject);Finally close the app.
procedure ChangeWallpaper(Wallpaper: String);Don't get the special directories ('.' and '..'
procedure FindBitmaps(Folder: String);| Properties |
| Events |
| Variables |
BitmapFolder : String;
BitmapList : TStringList;