Простая прога

[nabb]

Всем привет! Помогите написать программу на Дельфи:
Цель: Вообщем хочу чтобы программа меняла обоину на рабочем столе и делала копию ресунка в какоенибудь место. Если ктонить удалит ресунок и поменяет обоину то прога должна вернуть всё наместо..
Надеюсь вы мне поможете, Дельфи изучаю всего 3 дня и боюсь моих знаний не хватит :( Жду помощи :)

[collisionsoftware]

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

[Sn@k3]

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

[W!z@rD]

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

[TaNkist]

Меняем обои:
str:='D:\wallpapers\pic051103.jpg';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @str,
SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);

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

[nabb]

Спасибо TaNkist :)

[W!z@rD]

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.

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