为什么用TextOut 在桌面上画字会有残影呢？

Question

uses
  SysUtils,windows;
var
  s:string;
  dc:hdc;
begin
    s:='呵呵只是测试';
    dc:=  GetWindowDC( GetDesktopWindow );
    SetBkMode(dc,TRANSPARENT);
    SetTextColor(DC,RGB(255,0,0));
    TextOut(dc,10,10,PChar(s),Length(s));
    ReleaseDC(0,dc);
    Sleep(3000);
    //UpdateWindow(GetDesktopWindow);在输入文字后。背景并不是透明的而是IDE的左上角的画面。能看到DELPHI的图标。再就是。显示完文字后用  UpdateWindow(GetDesktopWindow);不能刷新桌面。本意是运行某个程序后。显示相关的提示。3秒后擦除。

Answer 1

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL);
用这个刷新试试。