Delphi XE7 как обновить скрытые папки в рабочем столе

[delphiname]

здрастуйте есть кто живой? может кто поможет? как обновить скрытые папки в рабочем столе windows 10? в поиске че то рабочих кодов не ношел =( есть только этот вот только работает при двойном нажатии кнопки =(

procedure RefreshDesktop;
var h : THandle;
begin
h := FindWindow('ProgMan', nil);
PostMessage(h, WM_KEYDOWN, VK_F5, 0);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Reg: TRegistry; h:THandle;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Wi ndows\CurrentVersion\Explorer\Advan ced', True);
Reg.WriteInteger('Hidden', 2);
Reg.CloseKey;
FreeAndNil(Reg);
RefreshDesktop;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
Reg: TRegistry; h:THandle;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Wi ndows\CurrentVersion\Explorer\Advan ced', True);
Reg.WriteInteger('Hidden', 1);
Reg.CloseKey;
FreeAndNil(Reg);
RefreshDesktop;
end;

Desktop.zip