uses Registry;
var Registry : TRegistry;
Delphi-Quellcode:
Registry := TRegistry.Create;
with Registry do begin
RootKey := HKEY_CURRENT_USER;
OpenKey('Control Panel\Desktop\',false);
WriteString('Wallpaper','');
Free;
end;
Halb getestet, müsste aber gehen.