Как программно заменить обои на рабочем столе 4

Delphi , Рабочий стол , Рабочий стол

procedure TForm1.FormCreate(Sender: TObject);
var
  St : string;
begin
  St := 'C:\MyWallPaper.Bmp';
  SystemParametersInfo(SPI_SETDESKWALLPAPER,UINT(St),nil,SPIF_SENDCHANGE);
end;

Here is a translation of the text into Russian:

Программирование изменения wallpapers в приложении Windows Forms на Delphi.

Код, который я предоставил, использует функцию SystemParametersInfo из Windows API для установки обоев рабочего стола.

Обзор кода:

1. Он определяет процедуру FormCreate, которая вызывается при создании формы.
2. Внутри этой процедуры он задает путь к новому wallpaper-изображению как строковое переменное St.
3. Затем он вызывает функцию SystemParametersInfo с параметрами:
   • SPI_SETDESKWALLPAPER: код действия, который указывает на обои рабочего стола.
   • UINT(St): длина пути к новому wallpaper-изображению (которая равна длине строки).
   • nil: указатель на новое wallpaper-изображение (в этом случае - null, потому что мы не передаем фактическое изображение).
   • SPIF_SENDCHANGE: флаг, который указывает, должна ли изменение быть отправлено всем приложениям или только текущему.

Однако, есть некоторые проблемы с этим кодом:

1. Путь к файлу wallpaper-изображения жестко закодирован и может не работать, если файл будет перемещен или переименован.
2. Код не проверяет, существует ли файл перед попыткой установить его как обои рабочего стола.

Альтернативное решение, которое решает эти проблемы:

procedure TForm1.ChangeWallpaper;
var
  St: string;
begin
   // Получаем путь к новому wallpaper-изображению из конфигурационного файла или ввода пользователя
  St := 'C:\Путь\К\Новому Wallpaper.bmp';

  if FileExists(St) then
  begin
    SystemParametersInfo(SPI_SETDESKWALLPAPER, UINT(StrLen(St)), PChar(St), SPIF_SENDCHANGE);
  end
  else
    ShowMessage('Файл не существует!');
end;

В этом коде:

1. Мы определяем отдельную процедуру ChangeWallpaper, которая позволяет изменять обои рабочего стола из любого места в нашем приложении.
2. Мы используем функцию FileExists для проверки, существует ли файл новой wallpaper перед попыткой установить его как обои рабочего стола.
3. Если файл не существует, мы отображаем сообщение об ошибке.

Вы можете вызывать эту процедуру в любое время, например, при нажатии кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeWallpaper;
end;

Не забудьте заменить C:\Путь\К\Новому Wallpaper.bmp на фактический путь к вашему файлу wallpaper.

Программное заменение обои на рабочем столе в Delphi может быть выполнено с помощью функции SystemParametersInfo и указанием параметра SPI_SETDESKWALLPAPER.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Рабочий стол ::