Всем привет! Помогите написать программу на Дельфи: Цель: Вообщем хочу чтобы программа меняла обоину на рабочем столе и делала копию ресунка в какоенибудь место. Если ктонить удалит ресунок и поменяет обоину то прога должна вернуть всё наместо.. Надеюсь вы мне поможете, Дельфи изучаю всего 3 дня и боюсь моих знаний не хватит Жду помощи
Меняем обои: Code: str:='D:\wallpapers\pic051103.jpg'; SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @str, SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE); Путь до файла с обоями храниться в реестре HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper
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. прогу надо чуть доработать.... =)