Загрузка обоев рабочего стола в Image

@Rudy_Wade · Регистрация: 02.06.2013

Author24 — интернет-сервис помощи студентам

Я знаю, что обои, стоящие на рабочем столе находятся в файле C:\Users\<пользователь>\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallp aper
так вот, мне нужно, чтобы у этого файла было расширение *.jpg
Я что-то не пойму, что мне делать?

Добавлено через 2 минуты
Просто нужно сделать скриншот рабочего стола без значков.Простите.

@NIKOLAYY · 17.09.2014, 20:51

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

сделать скриншот рабочего стола без значков.

Комментарий модератора

Запрещены ссылки на сторонние форумы

@droider · 18.09.2014, 01:34

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

Я что-то не пойму, что мне делать?

Вы сами себе ответили уже. К TranscodedWallpaper программно добавьте расширение .jpg и грузите в TImage.
Так

Delphi

uses Jpeg;
...
var
  Form1: TForm1;
 OldName, NewName:String; //глобальные переменные
implementation
 
{$R *.dfm}
//загрузка изображения рабочего стола
procedure TForm1.Button1Click(Sender: TObject);
begin
OldName :=GetEnvironmentVariable('APPDATA')+'\Microsoft\Windows\Themes\TranscodedWallpaper';
NewName :=GetEnvironmentVariable('APPDATA')+'\Microsoft\Windows\Themes\TranscodedWallpaper.jpg';
if RenameFile(OldName, NewName) then Image1.Picture.LoadFromFile(NewName);
end;
// при закрытии программы переименовываем файл обратно
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not RenameFile(NewName, OldName) then MessageBox(0, PChar('Не удалось восстановить исходное имя файла! Отмена.'), 
PChar('Error'), MB_ICONSTOP+MB_OK);
end;
 
end.

@Rudy_Wade 1 / 1 / 3 Регистрация: 02.06.2013 Сообщений: 139
		1
	Загрузка обоев рабочего стола в Image 17.09.2014, 18:50. Показов 1721. Ответов 2 Метки нет (Все метки) Я знаю, что обои, стоящие на рабочем столе находятся в файле C:\Users\<пользователь>\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallp aper так вот, мне нужно, чтобы у этого файла было расширение .jpg Я что-то не пойму, что мне делать? Добавлено через 2 минуты* Просто нужно сделать скриншот рабочего стола без значков.Простите. 0

	18.09.2014, 01:34

Загрузка обоев рабочего стола в Image

Решение