DelphiHelp.org

~5000 статей о Delphi
Покупаем абсолютно любые сайты

 



тут. Актуальная акция: лицензирование услуг, компания юридические услуги доступнее на треть. Статьи!
Интернет-магазин Hobby Hall: интернет магазин сумок. Качественная галантерея из Италии.



 



Как заставить Рабочий Стол обновится



    Как заставить Рабочий Стол обновится Как заставить Рабочий Стол обновится 


procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FindWindow('Progman', 'Program Manager'),
  WM_COMMAND, $A065, 0);
end;



 
    
Время генерации страницы 0.018420 сек.