![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
В dll я нахожу хендл изображения на главной форме, после чего мне нужно сделать так чтобы изображение формы dll стало такое же как и то, чей хендл я нашел. Надеюсь, я объяснил все правильно.
|
|
#2
|
|||
|
|||
|
а что такое хендл?
|
|
#3
|
||||
|
||||
|
Я при помощи функций FindWindow и FindWindowEx нахожу HWND изображения.
|
|
#4
|
||||
|
||||
|
Цитата:
Чтобы получить Handle окна нужно ввести FindWindow и FindWindowEx. Последний раз редактировалось moo2k, 06.11.2007 в 13:36. |
|
#5
|
||||
|
||||
|
Цитата:
Код:
procedure CopyWindowToBitmap(Wnd : HWND; var Bmp : TBitmap);
var
DC : HDC;
wr : TRect;
begin
bmp := nil;
try
Bmp := TBitmap.Create;
except
Exit;
end;
if GetWindowRect(Wnd, wr) then
with Bmp do begin
Width := wr.Right - wr.Left;
Height := wr.Bottom - wr.Top;
PixelFormat := pf24bit;
DC := GetWindowDC(Wnd);
if DC <> 0 then begin
BitBlt(Bmp.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
ReleaseDC(Wnd, DC);
end;
end;
end; |
|
#6
|
||||
|
||||
|
Да, компонента TImage
|
|
#7
|
||||
|
||||
|
Ну вот тогда ищи окно TImage и с помощью той функции что я написал можно скопировать то, что на данный момент изображено на нем.
|