delphi - 获取用户图片

Question

操作系统:Win7x64 (2008,2008r2)。朗:德尔福Xe2。

1. 如何接收图像“用户帐户图片”的完整路径(和文件名)？
2. 如何设置新图片？

delphi 上的示例。

需要:...函数 GetCurrentUserPicture:string;

...函数 GetUserPicture(用户名:字符串):字符串;

...函数 SetUserNewPicture(用户名, ImageFileName:String):bool;

Answer 1

shell32.dll 中有一个未记录的函数。在 Windows XP 上，其序数为 233，在 Windows Vista 和 7 上，其序数为 261。

其函数原型(prototype)( from Airesoft )为:

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

您可以使用该函数检索用户图片的存储路径。只需将用户名作为 pwszPicOrUserName 传递，将要存储图片路径的缓冲区作为 pwszPicPath 传递，以字符为单位的缓冲区大小作为 picPathLen 传递。您可以将 sguppFlags 设置为 0 或 other flags 中的任何一个有可能。

还有一个未记录的函数，您可以使用它来设置用户的用户图片。在 Windows XP 上其序数为 234，在 Windows Vista 和 Windows 7 上为 262。

其函数原型(prototype)( from Airesoft )为:

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

将要更改图片的用户名传递为 pwszAcctName，并将要设置的图片的路径传递为 pwszPictureFile。将保留设置为0。您必须在调用此函数之前初始化COM。

根据 Microsoft 的说法，您不应依赖未记录的功能，因为它们可以通过 Windows 上安装的任何补丁来删除或更改。