Глобальные горячие клавиши когда программа в трее

@Bios · Регистрация: 08.07.2011

Author24 — интернет-сервис помощи студентам

все привет.
До сих пор пишу прогу для смены обоев
и на завершающей стадии решил сделать глобальную горячую клавишу для смены обоев
Но при смене(по этой самой клавише ошибка).
программа полностью скрыта в трей.
и еще одна странность этот же код по таймеру программа выполняет на ура(даже когда свернута)
и горячая клавиша при развёрнутой форме тоже работает нормально
помогите разобраться.
ниже скрин
вот сам код:

Delphi

procedure TForm1.WMHotKey(var Mess: TWMHotKey);
 begin
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(GetWallpaperDirectory)));
S:= listbox1.ItemIndex;
listbox1.ItemIndex := s+1;
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', (listbox1.Items[s+1]));
Reg.WriteString('desktop', 'TileWallpaper', '0');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
jpg:=tjpegimage.Create;
jpg.LoadFromFile(listbox1.Items[listbox1.ItemIndex]);
image1.Picture.Assign(jpg);
if Assigned(jpg) then jpg.Free;
 end;

@Bios · 11.02.2012, 19:24 **[ТС]**

открылись новые факты
если запустить программу она сразу сворачивается, тогда ошибка,
а если запустить программу, развернуть ее, потом опять свернуть(в трей) то обои переключаются по горячей клавише нормально
выбивает ошибку на вот этой строке

Delphi

1	Reg.WriteString('desktop', 'Wallpaper', (listbox1.Items[s+1]));

@antikiler_ · 12.02.2012, 02:45

попробуй так

Delphi

1
2
3

if lisbox1.itemindex   <  listbox1.items.count -1  then
     Reg.WriteString('desktop', 'Wallpaper', (listbox1.Items[lisbox1.itemindex ]));
else // тут сам решай, или с начала или выход

@Bios · 13.02.2012, 13:07 **[ТС]**

решил проблему добавлением таймера на форму и через секунду сворачиваю форму тогда ни каких ошибок

@Bios 5 / 5 / 0 Регистрация: 08.07.2011 Сообщений: 120
	13.02.2012, 13:07 [ТС]	4
	решил проблему добавлением таймера на форму и через секунду сворачиваю форму тогда ни каких ошибок 0

Опции темы