procedure TForm1.Button1Click(Sender: TObject);
begin
  caption := 'start';
  SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,Integer(PChar('Environment')));
  caption := 'ok';
end;