Обновлено: 01 декабря, 2018

Рисовать на «Рабочем столе» в 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439

(20 оценок, среднее: 4,95 из 5)

Загрузка...