Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2013, 00:51   #1
Deammilord
Новичок
Джуниор
 
Регистрация: 18.11.2013
Сообщений: 1
По умолчанию Нужна помощь!!!Программа для смены обоев на рабочем столе

Написал программу для смены обоев на рабочем столе. Но все время выдает ошибку в том месте где написано Change(прямо перед end), помогите пожалуйста найти и устранить ошибку. Вот собственно говоря код:

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,ComObj,Controls, Forms,
  Dialogs, jpeg, StdCtrls, Spin, ExtCtrls, Buttons, FileCtrl,ShlObj;

type
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    Image1: TImage;
    BitBtn2: TBitBtn;
    SpinEdit1: TSpinEdit;
    Image2: TImage;
    Image3: TImage;
    procedure FileListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; i:integer;

implementation

{$R *.dfm}
Procedure Change;
const
 Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}';
var
 ActiveDeskTop:IActiveDesktop; i:integer;
begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop;
 ActiveDesktop.SetWallpaper(StringToOleStr(form1.Label1.Caption), 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.enabled:=true;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
timer1.enabled:=false;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Label1.Caption:=FileListBox1.Filename;
Image1.Picture.LoadFromFile(Label1.Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
timer1.Interval:=spinedit1.Value;
end;

procedure TForm1.SpinEdit1Click(Sender: TObject);
begin
BitBtn1.Enabled:=true;
timer1.Enabled:=false; BitBtn1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 i:=i+1;
 if i=form1.FileListBox1.Items.Capacity
 then i:=0;
 'label1.caption:=form1.FileListBox1.Items[i]'
'Change'
end;

end.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 18.11.2013 в 08:34.
Deammilord вне форума Ответить с цитированием
Старый 18.11.2013, 08:20   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

А кавычки одинарные зачем? Код из книжки? Отсканированной и распознанной? Уберите кавычки.
И перед change точку поставьте

Код:
Label1.caption:=form1.filelistbox1.items[i].change;
Код:
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
Label1.Caption:=FileListBox1.Filena me; // <- а тут не ругалось? Filename слитно должно быть

Последний раз редактировалось Stilet; 18.11.2013 в 11:55.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 18.11.2013, 08:35   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от "ZX Spectrum-128" Посмотреть сообщение
// <- а тут не ругалось? Filename слитно должно быть
это результат форматирования текста движком форума - автор топика не использовал тег форматирования кода. Сравните с тем, как код выглядит сейчас...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.11.2013, 10:12   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Ясно, спасибо.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Simple wallpaper changer - простенькая утилитка смены обоев рабочего стола Человек_Борща Софт 1 06.10.2012 16:29
Функция для смены обоев рабочего стола Sylar9 Win Api 2 27.06.2012 09:23
ЧАТ на Рабочем столе! Kachimov Свободное общение 7 11.08.2010 01:21
SpeedButton на рабочем столе ERASERROR Общие вопросы Delphi 10 22.01.2008 16:58
Программа рисовалка на рабочем столе в delphi Alar Общие вопросы Delphi 0 29.10.2006 20:03