Использование картинок (.bmp) из ресурсов

[Rekcilf]

У меня возникла такая проблема: я хочу написать программку, которая заменяет изображение на рабочем столе на другое, использую функцию
SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, <путь к картинке>, SPIF_UPDATEINIFILE);
Так вот проблема в том, что нужно указать путь к картинке, а я хочу использовать изображение, определенное в ресурсах (чтобы вся программа была в одном .exe файле), не подскажите как это сделать?
И еще можно ли использовать в ресурсах картинки в jpg, а то размер bmp в 3мб как-то не очень приятен

[Goodwin98]

может лучше файл из ресурсов сохранить во временной папке, а потом установить фон из нее?

[uberchel]

Сообщение от Rekcilf

У меня возникла такая проблема: я хочу написать программку, которая заменяет изображение на рабочем столе на другое, использую функцию
SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, <путь к картинке>, SPIF_UPDATEINIFILE);
Так вот проблема в том, что нужно указать путь к картинке, а я хочу использовать изображение, определенное в ресурсах (чтобы вся программа была в одном .exe файле), не подскажите как это сделать?
И еще можно ли использовать в ресурсах картинки в jpg, а то размер bmp в 3мб как-то не очень приятен

тебе надо сначало создать *.RC в любом блокноте и написать там

1 Image  "путь к картинке под цифрой 1"
2 Image  "путь к картинке под цифрой 2"
3 Image  "путь к картинке под цифрой 3"
......
100 Image  "путь к картинке под цифрой 100"

image - тип
1 -       индекс картинки

и после этого сохратить с расширением *.rc. Потом этот *.rc файл надо скомпилить следующими прогами типа ResourceHacker, Restorator или в делфи через консоль BRCC32.exe (пример BDCC32.exe my.rc) !
после этого появится файл с таким же именем но с расширением *.res
вот иго то мы и прикрутим к проекту следующей строчкой
{$R ResName.RES} где ResName - имя получившегося файла *.res.

пример:

Unit Unit1;

{$R ResName.RES}

interface

А вот уже функция извлечения ресурсов(в данном теме файлов JPEG)!

function ExtractRes(ResType, ResName, ResNewName: string): Boolean;
var 
 Res: TResourceStream; 
 begin 
 Result := False;
 Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType));
try 
 Res.SavetoFile(ResNewName); 
 Result := True; 
finally 
 Res.Free;
end; 
end;

пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
 NFile: string;
begin 
 NFile:= ExtraxtFilePath(paramStr(0))+ '\wallparer.jpg';
 if ExtractRes('Image', '1', NFile) then  //сохранит картинку под индексом 1
 if FileExists(NFile) then // проверит если картинка сохранилась то далше
 SystemParametersInfo(SPI_SETDESKWAL LPAPER, 0, Fname, SPIF_UPDATEINIFILE);
end;

А лучше напрямую из реестра менять!

Сообщение от Goodwin98

может лучше файл из ресурсов сохранить во временной папке, а потом установить фон из нее?

понятно что надо будет сохранять, но не во-временный а просто сохранить в директорию с прогой или в какую нить еще, если не хочешь чтоб после перезагрузки компа фоновой картинки не было ))).

Весы с лева =)

[Rekcilf]

Спасибо за помощь !