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

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

 

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

 

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

 

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

 

Меняем обои:

Code:

str:='D:\wallpapers\pic051103.jpg';
  SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @str,
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);

Путь до файла с обоями храниться в реестре 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,SPIF_UPDATEINIFILE);
end;

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

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