Как перезагрузить 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; |
