Друзья, как мне скопировать копию рабочего стола в буфер?

← →
raymond © (2004-02-24 16:24) [0]

Друзья, как мне скопировать копию рабочего стола в буфер до появления своей формы? Я делаю, что-то вроде открытки девушке на 8 марта. Будет играть приятная музыка (например, Gregorian "Moments Of Peace"), а на "рабочем столе" будет текст поздравления плюс какие-нибудь симпатичные эффекты. Кстати, пожелания насчет эффектов принимаются.
Братья по разуму! Давайте подарим нашим дамам помимо цветов и открыток еще и продукты нашей, не побоюсь этого слова, интелектуальной деятельности

← →
Skier © (2004-02-24 16:32) [1]

> Друзья, как мне скопировать копию рабочего стола в буфер?
>

press PrintScreen when ready...

← →
raymond © (2004-02-24 16:35) [2]

Skier © (24.02.04 16:32) [1]
Друг, ты меня не понял!

← →
Skier © (2004-02-24 16:37) [3]

BitBlt(...)

← →
Игорь Шевченко © (2004-02-24 16:54) [4]

Примерно так:
const DisplayDCName : WideString = "DISPLAY"; var { Эти переменные требуются для BitBlt } hdcWin : HDC; // DC окна hdcScreen : HDC; // DC полного экрана hdcScreenCompat : HDC ; // memory DC полного экрана hbmpCompat : HBITMAP; // Содержимое экрана bmp : BITMAP; // Структура для битмапа, куда помещается содержимое // экрана fBlt : Boolean; // TRUE if BitBlt occurred procedure CaptureScreen (WindowHandle : HWND); begin // Create a normal DC and a memory DC for the entire // screen. The normal DC provides a snapshot of the // screen contents. The memory DC keeps a copy of this // snapshot in the associated bitmap. hdcScreen := CreateDCW(PWideChar(DisplayDCName), nil, nil, nil); hdcScreenCompat := CreateCompatibleDC(hdcScreen); // Retrieve the metrics for the bitmap associated with the // regular device context. bmp.bmBitsPixel := Byte(GetDeviceCaps(hdcScreen, BITSPIXEL)); bmp.bmPlanes := Byte(GetDeviceCaps(hdcScreen, PLANES)); bmp.bmWidth := GetDeviceCaps(hdcScreen, HORZRES); bmp.bmHeight := GetDeviceCaps(hdcScreen, VERTRES); // The width must be byte-aligned. bmp.bmWidthBytes := ((bmp.bmWidth + 15) and (not 15)) div 8; // Create a bitmap for the compatible DC. hbmpCompat := CreateBitmap(bmp.bmWidth, bmp.bmHeight, bmp.bmPlanes, bmp.bmBitsPixel, nil); // Select the bitmap for the compatible DC. SelectObject(hdcScreenCompat, hbmpCompat); // Initialize the flags. fBlt := false; // Copy the contents of the current screen // into the compatible DC. BitBlt(hdcScreenCompat, 0, 0, bmp.bmWidth, bmp.bmHeight, hdcScreen, 0, 0, SRCCOPY); // Copy the compatible DC to the client area. hdcWin := GetDC(WindowHandle); BitBlt(hdcWin, 0, 0, bmp.bmWidth, bmp.bmHeight, hdcScreenCompat, 0, 0, SRCCOPY); ReleaseDC(WindowHandle, hdcWin); fBlt := true; end;

Извиняюсь, кусок выдран из APIшной демки.

← →
raymond © (2004-02-25 08:38) [5]

>Skier и Игорь Шевченко
Огромное человеческое СПАСИБО!
Как скопировать рабочий стол до появления формы? Выполнить битблиттинг до комманды CreateForm?

← →
Zacho © (2004-02-25 08:41) [6]

> Выполнить битблиттинг до комманды CreateForm?

Ты сам себе ответил :) Кто тебе мешает написать какой-либо код до CreateForm ?

← →
raymond © (2004-02-25 08:48) [7]

Zacho © (25.02.04 08:41) [6]

Ок! Не знаешь, сколько fps можно достичь перерисовывая экран 1024х768 средствами GUI? Под DirectX не программил, не хочется заморачиваться, т.к. времени осталось мало, а успеть нужно!

← →
Zacho © (2004-02-25 08:50) [8]

Не знаю.

← →
raymond © (2004-02-25 09:16) [9]

Из эффектов предлагаю скроллинг праздничного поздравления на рабочем столе, на фоне приятной музики.

Какие еще будут предложения?

← →
Skier © (2004-02-25 09:56) [10]

>raymond © (25.02.04 09:16) [9]
Лучше купи девушке хорошие духи и не парься...

← →
raymond © (2004-02-25 09:59) [11]

> Skier © (25.02.04 09:56) [10]

Подарки, цветы, поцелуйчики и так будут. Но хочется еще и так самовыразиться! Тем более, от меня уже ждут подобного шага, я не могу не оправдать надежды своих друзей и знакомых.

← →
Skier © (2004-02-25 10:01) [12]

>raymond © (25.02.04 09:59) [11]

> Но хочется еще и так самовыразиться!

Стихи напиши...

← →
raymond © (2004-02-25 15:56) [13]

> Skier © (25.02.04 10:01) [12]

Стихи в виде поздравления будут...
Ты бы мне бы советик бы дал бы какой эффектик прибамбасить бы!

← →
Иван Николаевич Понырев (2004-02-25 16:20) [14]

плохие лучше не писать совсем

Мессагу выводи - типа поздравление от Билли Гейтса и
открывай лоток CD с загодя заложеной денежкой :)

> Ок! Не знаешь, сколько fps можно достичь перерисовывая экран
> 1024х768 средствами GUI?

Мало 5-15 от проца зависит. Загрузка проца будет 100%.

> DVM © (25.02.04 17:50) [16]

Понятно... Буду перерисовывать часть экрана...
Как определить производительность процессора? Перед выполнением "основного цикла" прогнать какой-нить свой тестик? А потом использовать большие значения таймера для быстрых процов. Я правильно мыслю?

> Игорь Шевченко © (24.02.04 16:54) [4]

Данный кусок кода:
// Copy the compatible DC to the client area.
hdcWin := GetDC(WindowHandle);
BitBlt(hdcWin, 0, 0, bmp.bmWidth, bmp.bmHeight,
hdcScreenCompat, 0, 0, SRCCOPY);
ReleaseDC(WindowHandle, hdcWin);

нужно и в методе OnPaint окна указывать? Или я что-то не догоняю?

← →
raymond_ (2004-02-27 16:22) [19]

Уже скоро Восьмое марта! :)

> Игорь Шевченко © (24.02.04 16:54) [4]

Проводил тут эксперименты над HDC и BITMAP... У меня такой вопрос, как мне вывести картинку из TBitmap"a в BITMAP? Задача усложняется тем, что нужно использовать один цвет в качестве прозрачного.
Я понимаю, что можно все сделать, а есть ли универсальный, простой метод?

Друзья, как мне скопировать копию рабочего стола в буфер? Найти похожие ветки