Рисовать на «Рабочем столе» в Delphi

procedure TForm1.Button1Click(Sender: TObject); 
var
  dc : hdc; 
begin
  dc := GetDc(0); 
  MoveToEx(Dc, 0, 0, nil); 
  LineTo(Dc, 300, 300); 
  ReleaseDc(0, Dc); 
end; 
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (20 оценок, среднее: 4,95 из 5)
Загрузка...
Добавить комментарий