ich holte mir damals immer über
HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper
den namen.
für mein eigenes windows 10 passt das immer noch.
nun bekam ich ne nachricht das dort was mit "Transcoded" nur noch dargestellt wird, also habe ich mich ein wenig schlau gemacht was damit gemeint sei.
mein versuch diesen
HKEY_CURRENT_USER\Control Panel\Desktop\TranscodedImageCache
eintrag auszuwerten, da klappt was mit meiner umsetzung noch nicht so ganz bzw bezweifle ich meinen eigenen code.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
CDataValue: string = 'TranscodedImageCache';
CKeyName: string = 'Control Panel\Desktop\';
var
regist: TRegistry;
KeyExists: boolean;
vSize, p: integer;
tmpStr, tmp: string;
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
try
KeyExists := regist.OpenKey(CKeyName, false);
if (KeyExists) then
begin
vSize := regist.GetDataSize(CDataValue);
if (vSize > 0) then
begin
SetLength(tmpStr, vSize);
regist.ReadBinaryData(CDataValue, tmpstr[1], vSize);
tmpStr := Copy(tmpStr, 13, vSize);
Edit1.Text := tmpStr;
end;
end;
except
regist.CloseKey;
end
finally
regist.Free;
end;
end;
Da der Beitrag von turboPASCAL doch schon ein paar tage alt ist, wollte ich sichergehen, ist ja auch getan, Danke!
Danke auch an die weiteren Hinweise, siehste, ich hatte das bei
msdn nicht gefunden oder nicht angestrengt genug gesucht
