var mydc:HDC;
   Acanvas:TCanvas;
begin
   mydc:=getdc(0);
   Acanvas:=TCanvas.Create;
   Acanvas.Handle:=mydc;
   Acanvas.FillRect(Rect(10,10,100,100));
   Acanvas.Free;
   ReleaseDC(0,mydc);
end;

解决方案 »

  1.   

    var
       dc:hdc;
    begin
       dc:=getdc(0);
       textout(dc,10,10,'hello',5);
       releasedc(0,dc);
    end;
      

  2.   

    netlib(河外孤星) :他说还有,影片呀!做成web page 然后  调用 桌面显示web内容放影片呀??!!我没想出来,最重要的是还要不影响图标。很好的创意。没见过这样的播放器啦啦啦啦啦啦啦啦啦阿拉 ……
      

  3.   

    var
      hdldtp:thandle;
      hdcdtp:hdc;
    begin
      hdldtp:=GetDesktopWindow();
      hdcdtp:=GetWindowDC(hdldtp);
      TextOut(hdcdtp,500,300,'Welcome to delphi bbs!',22);
      ReleaseDC(hdldtp,hdcdtp);
    end;
      

  4.   

    你可能希望这样var
       Acanvas:TCanvas;
    begin
       Acanvas:=TCanvas.Create;
       with acanvas do
       begin
           Handle:=getdc(0);
           brush.style:=bsclear;
           font.size:=14;
           textout(10,10,'hello');
           ReleaseDC(0,acanvas.handle);
           free;
       end;
    end;