Windows.GetDC вызывает ошибку

[SlowPow]

Приветствую.
Потребовалось мне внезапно делать снимки экрана, и обнаружилась странная проблема:
строка вида

Код: Выделить всё

a := Windows.GetDC(любой_HWD);

вызывает "RunError(201) with message Range check error". Ошибка не регулярна - можно спокойно скопировать кусок изображения несколько раз, после чего получить ошибку, но можно и при первом запуске обломаться.
Я даже обновил, а потом и переустановил Lazarus. Не помогает. Подскажите, куда копать ?

Добавлено спустя 23 часа 34 минуты 28 секунд:
Проблема решена:
64-разрядная функция GetDC возвращает QWord, так что при конвертации к менее емкому типу LongWord совершенно спокойно может возникнуть ошибка. А я втупил и писал

Код: Выделить всё

var a: Cardinal;
a := Windows.GetDC(0);

правильно делать так:

Код: Выделить всё

var a: HDC;
a := Windows.GetDC(0);

[Alex2013]

По моему это еще и от разрядности зависит ( в 32-х разрядной программе может проскочить "неправильный" вариант, а в 64-битной это уже не прокатит )

[Vadim]

вызывает "RunError(201) with message Range check error". Ошибка не регулярна - можно спокойно скопировать кусок изображения несколько раз, после чего получить ошибку, но можно и при первом запуске обломаться.

"Нерегулярность" ошибки кроется в том, что функция может возвратить число (а DC - это число), которое в пределах 32 бита, а может возвратить и число, которое вне этих пределов. Так что лучше заранее полюбопытствовать, какой именно тип данных возвращает функция, чтобы не ловить такие "плавающие" ошибки. В данном случае тип "HDC", который возвращает функция, что-то вроде виртуального типа и будет зависеть от разрядности ОС. Поэтому лучше использовать именно его, а не какой-нибудь "реальный" тип, вроде "Integer" или "QWord"...