[Aristarh Dark]

Ну и в чем проблема, получить текущую строку из листбокса? Если твой код верен то:

Код:

SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(ListBox1.Items[ListBox1.ItemIndex]),WM_SETTINGCHANGE);