API - fazendo um refresh no desktop

//Try this, it works for me, but I've got a feeling it requires a particular

//version of ComCtl32

procedure RefreshDesktop;

var

    Shell:OleVariant;

begin

        //Search for "Scriptable Shell Objects" or "Shell.Application" in

MSDN

        Shell:=CreateOleObject('Shell.Application');

        Shell.RefreshDesktop;

        Shell:=VarNull;             //Free the Shell variable

end;

//Failing that, get the handle of the Desktop Listview and send it WM_KEYDOWN

//and WM_KEYUP for F5