...

解决方案 »

  1.   

    屏幕
    hdc:=GetDC(0)
    任务栏
    FindWindow('Shell_TrayWnd', nil)
      

  2.   

    GetDesktopWindow()
    桌面窗口句柄
      

  3.   

    获取任务栏的窗口句柄
    WndHandle := FindWindow('Shell_TrayWnd', nil);
    获取屏幕的窗口句柄
    GetDc(0)
      

  4.   

    var hwd:thandle;
    hwd := FindWindow('Shell_TrayWnd', nil);
    hwd:=getdesktopwindow;
      

  5.   

    var 
      H:THandle;
    begin
      H:=GetDesktopWindow{或者GetDC(0)};//桌面
      H:=FindWindos('Shell_TrayWnd',nil);//任务栏
    end;