Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 308 • TDictionary Custom Sort 3 454 • Fast Watermark Sources 3 198 • 3D Designer 4 961 • Sik Screen Capture 3 453 • Patch Maker 3 658 • Айболит (remote control) 3 856 • ListBox Drag & Drop 3 123 • Доска для игры Реверси 82 752 • Графические эффекты 4 058 • Рисование по маске 3 354 • Перетаскивание изображений 2 727 • Canvas Drawing 2 878 • Рисование Луны 2 680 • Поворот изображения 2 292 • Рисование стержней 2 220 • Paint on Shape 1 621 • Генератор кроссвордов 2 304 • Головоломка Paletto 1 820 • Теорема Монжа об окружностях 2 320 • Пазл Numbrix 1 715 • Заборы и коммивояжеры 2 090 • Игра HIP 1 311 • Игра Go (Го) 1 260 • Симулятор лифта 1 507 • Программа укладки плитки 1 255 • Генератор лабиринта 1 579 • Проверка числового ввода 1 398 • HEX View 1 530 • Физический маятник 1 384

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Как программно заменить обои на рабочем столе 5

program change;
uses 
  windows; 
var 
  s: string; 
begin 
  s := paramStr(1); 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @S[1], 
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE); 
end.

// Запускаешь:
// change.exe "имя файла с картинкой"