Как получить и изменить изображение профиля пользователя в Delphi для Windows 7/2008 и 2008 R2

Delphi , Синтаксис , Справочник по API-функциям

Вопрос, поставленный в данной задаче, касается работы с изображениями профиля пользователей в операционных системах Windows 7 и серверных версиях 2008 и 2008 R2 на языке программирования Delphi. Необходимо реализовать функции для получения и изменения изображений профиля пользователей.

Получение изображения профиля пользователя

Изображение профиля пользователя в Windows 7 и более поздних версиях хранится в папке C:\Users\<username>\Local\Temp в виде файла с расширением .bmp. Важно отметить, что символы обратного слеша (\) в пути к пользователю заменяются на символ плюс (+). Например, путь для пользователя DOMAIN\user будет преобразован в DOMAIN+user.

Для получения пути к изображению профиля можно использовать недокументированную функцию SHGetUserPicturePath, которая есть в библиотеке shell32.dll. Прототип функции выглядит следующим образом:

HRESULT WINAPI SHGetUserPicturePath(
    LPCWSTR pwszPicOrUserName,
    DWORD sguppFlags,
    LPWSTR pwszPicPath,
    UINT picPathLen
);

Функция принимает имя пользователя, флаги, буфер для хранения пути к изображению и размер этого буфера. Флаги можно установить в 0 или использовать другие доступные флаги.

Изменение изображения профиля пользователя

Для изменения изображения профиля пользователя также существует недокументированная функция SHSetUserPicturePath, которая принимает имя учетной записи пользователя и путь к новому изображению. Прототип функции:

HRESULT WINAPI SHSetUserPicturePath(
    LPWSTR pwszAcctName,
    DWORD reserved,
    LPCWSTR pwszPictureFile
);

Перед вызовом этой функции необходимо инициализировать COM.

Пример кода на Object Pascal (Delphi)

program GetSetUserPicture;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  System.SysUtils,
  Winapi.Windows,
  Winapi.ShellApi;

function GetUserPicturePath(const UserName: string): string;
var
  PathBuffer: array[0..260] of Char;
  Result: HRESULT;
begin
  SetLength(PathBuffer, 260);
  Result := SHGetUserPicturePath(PWideChar(UserName), 0, @PathBuffer[0], SizeOf(PathBuffer));
  if Result = S_OK then
    Result := PathBuffer;
  Result := '';
end;

function SetUserNewPicture(const UserName, ImageFileName: string): Boolean;
var
  Result: HRESULT;
begin
  Result := SHSetUserPicturePath(PWideChar(UserName), 0, PWideChar(ImageFileName));
  if Result <> S_OK then
    Exit(False);
  Exit(True);
end;

begin
  // Пример использования функций
  const
    UserName = 'your_username';
    ImagePath = 'C:\path\to\image.jpg';

  if GetUserPicturePath(UserName) <> '' then
    ShowMessage('Путь к изображению профиля: ' + GetUserPicturePath(UserName));

  if SetUserNewPicture(UserName, ImagePath) then
    ShowMessage('Изображение профиля успешно изменено');
  else
    ShowMessage('Ошибка при изменении изображения профиля');

  Readln;
end.

Важные замечания

Использование недокументированных функций может быть нестабильным, так как они могут изменяться или удаляться в будущих обновлениях Windows. Рекомендуется использовать эти функции с осторожностью.

Заключение

В данной статье были рассмотрены методы получения и изменения изображений профиля пользователей в операционных системах Windows 7/2008 и 2008 R2 с использованием языка программирования Delphi. Предоставлены примеры кода, которые могут быть использованы в качестве основы для реализации соответствующих функций.

Создано по материалам из источника по ссылке.

Вопрос касается работы с изображениями профиля пользователей в Delphi для Windows 7/2008 и 2008 R2, включая методы получения и изменения этих изображений.

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

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

:: Главная :: Справочник по API-функциям ::