下例子使用Windows API函数GetDc(0)返回的dc在Windows 的桌面上直接作图:
procedure TForm1.Button1Click(Sender: TObject);
var
dc : hdc;
begin
dc := GetDc(0);
MoveToEx(Dc, 0, 0, nil);
LineTo(Dc, 300, 300);
end;
转载于:https://www.cnblogs.com/myamanda/articles/1523944.html