Спасибо вам ребята огромное, что откликнулись.
Теперь всё работает.
Я проверил и первый, и второй варианты и немного доделал певый:
"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;"
Спасибо за ответы огромное. Если что, то только к вам.
|