Узнать обои

[Alex Cones]

Поиск юзал, нашел много тем, как сменить обои, но не нашел ни одной, как узнать, что за картинка стоит на фоне. Необходимо получить путь к ней.

[W0LF]

Плохо искали, седня с вами точно, что-то происходит))
С:\Documents and Settings\ ПОЛЬЗОВАТЕЛЬ \Local Settings\Application Data\Microsoft\Wallpaper1.bmp

А ответ в теме №1 в похожих... пост нумбер 7

[raxp]

или в реестре...

procedure SetWallpaper(sWallpaperBMPPath: String);
var reg : TRegistry;
begin
 reg := TRegistry.Create;
 with reg do
  begin
   RootKey := HKEY_CURRENT_USER;
   if KeyExists('\Control Panel\Desktop') then
    if OpenKey('\Control Panel\Desktop', False) then
     begin
      if ValueExists('WallPaper') then
       WriteString('WallPaper', sWallpaperBMPPath);
     end;
  end;
 reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;


function GetWallpaper: String;
var reg : TRegistry;
begin
 Result := '';
 reg := TRegistry.Create;
 with reg do
  begin
   RootKey := HKEY_CURRENT_USER;
   if KeyExists('\Control Panel\Desktop') then
    if OpenKey('\Control Panel\Desktop', False) then
     begin
      if ValueExists('WallPaper') then
       Result := ReadString('Wallpaper');
     end;
  end;
 reg.Free
end;

[Alex Cones]

Плохо искали, седня с вами точно, что-то происходит))

Злобные зомби съели мой мозг. Отравились и умерли повторно.

Спасибо!