Как узнать путь к обоям рабочего стола??

[===Sheff===]

Как узнать путь к обоям рабочего стола?? помогите плиз!!!

[W0LF]

XP:
C:\Documents and Settings\Пользователь\Local Settings\Application Data\Microsoft\Wallpaper1.bmp

[Levsha100]

Адрес: 404 Not Found
Вы это, осторожней- я уже подумал, что что-то не то.

[Vikenty]

function GetWallpaperDirectory(): string;
var
h: HKEY;
s: string[255];
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
Result:=reg.ReadString('Wallpaper');
reg.Free;
end;

Функция возвратит путь к текущим обоям

[Kotofff]

Любая Win OS :

function currentWallPaperPath:string; //путь к текущим обоям у текущего пользователя
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('\Control Panel\Desktop\',false);
  result:=reg.ReadString('Wallpaper');
  reg.Free;
end;

Vikenty, я не специально ! Прошу прощения ...

[ex.cluz]

Можно работать через реестр:

Procedure Change;
const
 Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}'; //для получения доступа к рабочему столу
var
 ActiveDeskTop:IActiveDesktop; // вроде понятно, зачем
begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop; //создаем объект и получаем разрешение доступа к рабочему столу
 ActiveDesktop.SetWallpaper(StringToOleStr(form1.Label1.Caption), 0); // определились с выбором картинки
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL); // применяем картинку на рабочем столе
end;

[===Sheff===]

спасибо всем большое. очень помогли.

[Vikenty]

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

Любая Win OS :

function currentWallPaperPath:string; //путь к текущим обоям у текущего пользователя
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('\Control Panel\Desktop\',false);
  result:=reg.ReadString('Wallpaper');
  reg.Free;
end;

Vikenty, я не специально ! Прошу прощения ...

А чем этот код отличается от моего?)))))

[_-Re@l-_]

TRegistry;

В каком модуле объявлен?

[Stilet]

В каком модуле объявлен?

В модуле Registry