Exemplo de programação de interceptação de imagem Delphi (5)

3) Rastreie o formulário ou a imagem de controle

Pegue um formulário ou imagem de controle, isto é, para usar um novo Form2, consulte "Exemplo de programação de interceptação de imagem Delphi (7)"

Adicione Capture2 nos usos da implementação da unidade principal.

[Capture Windows ou controles] Evento de ação para um formulário ou captura de controle

Procedimento tmainform.cptWindowSexecute (remetente: tabjas);

var P: TPOINT;

Começar

Inc (Captenum, 1);

Application.Minimize;

Atraso (500);

Nome do arquivo: = 'Capture'+inttoStr (Captenum);

Nome do arquivo: = defaultDirectory+nome do arquivo;

com tForm2.Create (Application) do

tentar

Se ShowModal = Mrok então

Começar

Createmdichild (nome do arquivo, verdadeiro);

StatusBar.simpletext: = nome do arquivo;

Atraso (500);

Abitmap: = tbitmap.create;

GetCursorPos (P);

Alças: = windowfrompoint (p);

Abitmap: = capturewindowImage (alças);

Child.image1.picture.bitmap: = abitmap;

Child.ClientWidth: = Child.image1.picture.width;

Child.ClientHeight: = Child.image1.picture.Height;

Child.horzscrollbar.range: = Child.image1.picture.width;

Child.vertscrollBar.Range: = Child.image1.picture.Height;

Child.Image1.hint: = 'Hight:'+inttostr (Child.image1.picture.Height)+'Pixels'

+'Largura:'+inttostr (Child.image1.picture.width)+'pixels';

Abitmap.free;

fim;

Finalmente

Livre;

Application.restore;

fim;

fim;

4) Rastrear fotos de ícone

Pegue uma foto do ícone, isto é, para usar um novo Form3, consulte "Exemplo de programação de interceptação de imagem Delphi (8)"

Adicione Capture3 nos usos da implementação da unidade principal.

Adicione a captura do processo privado na unidade principal:

procedimento tmainform.captureicon;

Começar

com tform3.create (aplicação) do

tentar

Se ShowModal = Mrok então

Com o Frect, comece

se (direita> esquerda) e (parte inferior> superior), então comece

Atraso (300);

Abitmap: = tbitmap.create;

Abitmap.assign (CaptureScreenRect (FRECT));

Child.image1.picture.bitmap: = abitmap;

Child.horzscrollbar.range: = Child.image1.picture.width;

Child.vertscrollBar.Range: = Child.image1.picture.Height;

Abitmap.free;

final mais começa

Messagedlg ('Erro de seleção de fronteira, tente novamente!', Mtinformation, [MBOK], 0);

Child.Close;

Form3.Free;

saída;

fim;

fim;

Finalmente

Livre;

fim;

fim;

[Capture Icon] Evento de ação para imagens de captura de ícones

procedimento tmainform.cpticonexecute (remetente: tabject);

Começar

Application.Minimize;

Atraso (400);

Inc (Captenum, 1);

Nome do arquivo: = 'Capture'+inttoStr (Captenum);

Nome do arquivo: = defaultDirectory+nome do arquivo;

Createmdichild (nome do arquivo, verdadeiro);

StatusBar.simpletext: = nome do arquivo;

Captureicon;

Child.ClientWidth: = Child.image1.picture.width;

Child.ClientHeight: = Child.image1.picture.Height;

Child.horzscrollbar.range: = Child.image1.picture.width;

Child.vertscrollBar.Range: = Child.image1.picture.Height;

Child.Image1.hint: = 'Hight:'+inttostr (Child.image1.picture.Height)+'Pixels'

+'Largura:'+inttostr (Child.image1.picture.width)+'pixels';

Application.restore;

fim;