안녕 하세요?

BacTeria 박종민 입니다.

다음과 같이 하시면 바탕화면이 갱신될 겁니다.

참고 하세요.

이만... 청주에서 종미니...

------------------------------------------------------------

procedure UpdateScreen;      // 바탕화면을 갱신한다.
var
  LHandle: HWND;
begin
  LHandle := FindWindow('Progman', nil);
  LHandle := FindWindowEx(LHandle, 0, 'SHELLDLL_DefView', nil);
  LHandle := FindWindowEx(LHandle, 0, 'SysListView32', nil);

  InvalidateRect(LHandle, nil, True);
end;