pegar tecla

Segue o código para ...

- Copiar Tela Toda: keybd_event(vk_snapshot,0, 0, 0);
- Copiar Janela Ativa: keybd_event(vk_snapshot,1, 0, 0);


Procedure que Carrega a foto para o banco de dados Interbase:

procedure TFrmCredenc.CarregaFotoParaBanco(FileName: String);
Var
stImagem: TFileStream;
begin
stImagem := TFileStream.Create( FileName, fmOpenRead or
fmShareDenyWrite );
Try
// ibdsCredenciadosFOTO é um campo BLOB SUB_TYPE 0
DMMain.ibdsCredenciadosFOTO.LoadFromStream( stImagem );
Finally
stImagem.Free;
End;
end;


Procedure que Obtem a foto do banco de dados Interbase:

procedure TFrmCredenc.ObtemImagemDoBanco(var imgDestino: TImage);
Var
jpgImg: TJPEGImage;
stMem: TMemoryStream;
begin
If DMMain.ibdsCredenciadosFOTO.IsNull Then Exit;
jpgImg := TJPEGImage.Create;
stMem := TMemoryStream.Create;
Try
DMMain.ibdsCredenciadosFOTO.SaveToStream( stMem );
stMem.Position := 0;
jpgImg.LoadFromStream( stMem );
imgDestino.Picture.Assign( jpgImg );
Finally
stMem.Free;
jpgImg.Free;
End;
end;

_______________________
Espero que tenha ajudado.

Fábio W. de Chantal.

Uma coisa que pode ser muito útil em suporte a distância, ou até mesmo pra outros objetivos, é a realização de um ´print-scrren´ coisa que muitas vezes um usuário não dá conta de realizar e fica complicado, de certa maneira, explicar por telefone. Por este motivo criamos uma rotininha que simula a tecla PrintScreen. A baixo a rotina de como realizar tal processo:

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_PRINT, 0, 0, 0);
keybd_event(VK_PRINT, 0, KEYEVENT_KEYUP, 0);
end;

Obs: Tentei a dica sitada logo acima e não deu certo!!! Procurei ajuda no Help do delphi e encontrei essa logo abaixo e funcionaou (estou usando PENTIUM III 128 Ram, Win98 e Delphi 4)

Simular Print Screen 2
keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela