скриншот опреденённой части приложения(Меню, или кнопка.. и т.д)?

[Человек_Борща]

Всем привет=)
Интересная идея появилась..
Хочу реализовать снятие скришотов определенных частей приложения.. к примеру Меню, или кнопки..
Как такое реализовать? как определять? как выделять?

[BOBAH13]

Опять
1. У вас только идея. Где наработки ?
2. Мы помогаем, мы не делаем (за спасибо в лучшем случае)

[XerSon]

var B:TBitMap;
begin
B:=TBitMap.Create;
B.Height:=Memo.Height;
B.Width:=Memo.Width;
BitBlt(B.Canvas.Handle,0,0,B.Width, B.Height,GetDC(Memo.Handle), 0,0,SrcCopy);
B.SaveToFile('memo.bmp');
B.Free;
end;

Пример для Мемо

[bitSoft]

Сообщение от XerSon

var B:TBitMap;
begin
B:=TBitMap.Create;
B.Height:=Memo.Height;
B.Width:=Memo.Width;
BitBlt(B.Canvas.Handle,0,0,B.Width, B.Height,GetDC(Memo.Handle), 0,0,SrcCopy);
B.SaveToFile('memo.bmp');
B.Free;
end;

Пример для Мемо

on imel vidu ne v memo at evo programe, a at drugoi programe,

[Человек_Борща]

Сообщение от BOBAH13

Опять
1. У вас только идея. Где наработки ?
2. Мы помогаем, мы не делаем (за спасибо в лучшем случае)

Я не говорил про код..
Я спрашиваю как это реализовать?
Как отделить тоже меню от всей остальной программы, и сделать скрин?

взять фокус программы.. далее пересчитать на нем все компоненты(в этом проблемы 2: 1. А надо ли вообще? 2. Если надо то как?).. получать фокус компонента.. далее скриншот (Опять же вопрос как.. (Думаю передать хендл фокусированного элемента..))

Я не знаю как пересчитать все компоненты ДРУГОЙ программы.. ведь не все они называются TEdit Tmemo..

[Человек_Борща]

народ , поможет кто?

[Человек_Борща]

проблему решил.

[Kotofff]

Ну так поделись.
Здесь обычно так делают.

[Человек_Борща]

вот таким вот образом получаю инфу "под курсором":

Procedure GetCurInf;
var
HWND:Thandle;   //Хендл класса и компонента под курсором мыши
P:Tpoint;        //указатель текушая позиция мыши
Inf: array [0..256] of Char;  //массив имен классов
begin
GetCursorPos(p);  //получаем позицию курсора и заносим в указатель
HWND:=WindowFromPoint(P); //ищем хендлы элементов под курсором
GetClassName(HWND, Inf, SizeOf(Inf)); //получаем имя класса под курсором заносим в массив
Form1.Label1.Caption:='Имя класса: '+strpas(Inf);    //выводим имя класса из массива и показываем
Form1.Label2.Caption:='Хендл: '+IntToStr(HWND);       //поазываем хендл класса
GetWindowText(HWND,inf,255);   //получаем текст на компоненте зависящем от класса
Form1.Label3.Caption:='Название: '+strpas(Inf);     //выводим текст компонента.
end;

[Marsel737]

Человек_Борща, это можно поставить на ОнКлик и узнать инфу о компоненте на форме, а можно ли этим кодом узнать инфу постороннего окна, если да, то как?