как обновить робочий стол через Button1

[beegl]

подскажите пожалуйста

[TaTT DoGG]

зачем? он сам обновляется...

[Dux]

Попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
 end;

[beegl]

Dux, выводит ошибку ... ругаеца на SHChangeNotify, может надо что подкулючить? ... TaTT DoGG, мне просто надо именно через событие обновить.. .

[AngelOfDeath]

2TaTT DoGG не можете помочь не флудите

а вот обновление

uses
ShlObj;

.........................................................
procedure TForm2.Button1Click(Sender: TObject);
begin
 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

[Stilet]

Добавлю что ДЕлфи Ворлд ФОрева:

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

или

winexec(Pchar('rundll32 user,repaintscreen'), sw_Show);

[beegl]

Stilet, спасибо, работает.

[TaTT DoGG]

Сообщение от AngelOfDeath

2TaTT DoGG не можете помочь не флудите

зачем сразу так ругаться?
я просто сначала спросил для чего это нужно.
вот мой вариант кода:

uses Windows, Messages

procedure Refresh;
var h : THandle;
begin
h := FindWindow('ProgMan', nil);
h := GetWindow(h, GW_CHILD);
PostMessage(h, WM_KEYDOWN, VK_F5, 0);
end;