Как Перезагрузить Explorer?

[Sascha]

Как перезагрузить Explorer?

uses
  ..., ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
   wnd := FindWindow( 'Progman', nil );
   PostMessage( wnd, WM_QUIT, 0, 0 );
   ShellExecute( 0, 'open', 'Explorer', nil, nil, SW_SHOWNORMAL );
end;