[perdimonokl]

Привет всем.
У меня вот тут проблема.
Пишу програмку для себя и никак не могу разобраться.Программа пока состоит из 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);
Помогите кто может!!!

[Aristarh Dark]

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

Код:

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

[Decoding]

Сообщение от Aristarh Dark

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

Код:

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

to Aristarh Dark: Предложенный тобой код у меня не сработал.

А вот так получилось:

Код:

uses
  ..., Registry, ShlObj, ComObj;

// Процедура для смены обоев
procedure ChangeWallpaper( WallPath: string );
var
  Reg: TRegistry;
  ActiveDesktop: IActiveDesktop;
begin
   with TRegistry.Create do
   begin
      RootKey := HKEY_CURRENT_USER;
      OpenKey( 'Control Panel\Desktop', false );
      WriteString( 'Wallpaper', WallPath );
      // Если обои надо растянуть на весь рабочий стол, пиши так
      WriteString( 'Desktop\TileWallpaper', '0' );
      WriteString( 'Desktop\WallpaperStyle', '2' );
      // Если обои надо сделать по центру
      // WriteString( 'Desktop\TileWallpaper', '0' );
      // WriteString( 'Desktop\WallpaperStyle', '0' );
      // Если рабочий стол нужно "замостить"
      // WriteString( 'Desktop\TileWallpaper', '1' );
      // WriteString( 'Desktop\WallpaperStyle', '0' );
      CloseKey;
      Free;
   end;
   SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE );
   ActiveDesktop := CreateComObject( CLSID_ActiveDesktop ) as IActiveDesktop;
   ActiveDesktop.ApplyChanges( AD_APPLY_ALL or AD_APPLY_FORCE );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ChangeWallpaper( ListBox1.Items.Strings[ListBox1.ItemIndex] );
end;

В ListBox соответственно должен быть полный путь к картинке.

[perdimonokl]

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

[Aristarh Dark]

Сообщение от Decoding

to Aristarh Dark: Предложенный тобой код у меня не сработал.

Так я и не обещал его работоспособности, т.к. картинки на рабочем столе не менял никогда ибо это детские шалости Я просто предположил, что perdimonokl начинающий и не знает как обратится к текущему элементу ListBox'а

[Decoding]

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;

нифига не работает.

И потом, изменения в реестре лучше сделать, т.к. когда ты откравыешь настройки рабочего стола (вкладку "Рабочий стол"), то все данные о каритнке и ее положении на рабочем столе берутся именно из реестра. В твоем случае может получиться несовпадение, на рабочем столе одна картинка, а в свойствах другая.

[Aristarh Dark]

А код действительно не работающий т.к. я его и не проверял. Повторяю, я посчитал что вопрошающий не знает как обратится к текущему элементу ListBox'а
ЗЫЖ вот этот код работает на ура:

Код:

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,PChar('C:\1.bmp'),SPIF_UPDATEINIFILE)

причем картинка добавляется в свойства и противоречия типа:

...может получиться несовпадение, на рабочем столе одна картинка, а в свойствах другая...

не наблюдается
ЗЗЫЖ WinXPSP2