to perdimonokl:
Скажи, ты под какой операционкой работаешь? У меня WinXP SP2, и твой код
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if ListBox1.ItemIndex = -1 then S := '' else S := ListBox1.Items[ListBox1.ItemIndex];
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(S) ,WM_SETTINGCHANGE);
end;
|
нифига не работает.
И потом, изменения в реестре лучше сделать, т.к. когда ты откравыешь настройки рабочего стола (вкладку "Рабочий стол"), то все данные о каритнке и ее положении на рабочем столе берутся именно из реестра. В твоем случае может получиться несовпадение, на рабочем столе одна картинка, а в свойствах другая.