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;
Помогите с SystemParametersInfo()
Привет всем.
У меня вот тут проблема.
Пишу програмку для себя и никак не могу разобраться.Программа пока состоит из ListBox,MainMenu и Button.Так вот послевыбора из подпункта
MainMenu открыть я добовляю файл в ListBox так:
"var
FileName: String;
begin
if OpenDialog1.Execute then Filename:=OpenDialog1.FileName;
listbox1.items.add(Filename);
end;"
а по нажатию Button нужно,чтобы менялась картинка рабочего стола на выбранный из ListBox файл.Функция отвечающая за смену картинки рабочего стола:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,'файл из listbox',WM_SETTINGCHANGE);
Помогите кто может!!!
У меня вот тут проблема.
Пишу програмку для себя и никак не могу разобраться.Программа пока состоит из ListBox,MainMenu и Button.Так вот послевыбора из подпункта
MainMenu открыть я добовляю файл в ListBox так:
"var
FileName: String;
begin
if OpenDialog1.Execute then Filename:=OpenDialog1.FileName;
listbox1.items.add(Filename);
end;"
а по нажатию Button нужно,чтобы менялась картинка рабочего стола на выбранный из ListBox файл.Функция отвечающая за смену картинки рабочего стола:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,'файл из listbox',WM_SETTINGCHANGE);
Помогите кто может!!!