денег плати
бесплатно редко кто помогает в нашем мире

могу помочь, тока за так хз )

ну и я могу помочь =)

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

Меняем обои:
Путь до файла с обоями храниться в реестре HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper

Спасибо TaNkist

program Project1;

uses Windows, SysUtils, Registry;

var msg:TMsg;

function Wall: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;

procedure check;
var
OurFile:string;
OK:array[0..$FF] of Char;
begin
OurFile:=ExtractFilePath(ParamStr(0))+'wall.bmp';//наш файл
StrPCopy(OK,OurFile);
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,@OK,SP IF_UPDATEINIFILE);
end;

begin
check;
while GetMessage(msg,0,0,0)do begin
DispatchMessage(msg);
TranslateMessage(msg);
end;
end.

прогу надо чуть доработать.... =)

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...