F�rum ALT + PrintScreen no Delphi #378742

02/06/2010

Tenho que tirar um ALT + PrintScreen ao apertar um bot�o, e ap�s isso salvar a imagem ou em jpg ou bmp em um diret�rio na m�quina do user.Segue meu c�digo, porem quando clico no bot�o ele salva no diret�rio o print anterior. n�o estou conseguindo limpar o Clipboard.
C�digo ao clicar no bot�o.

	Clipboard.Clear;	ImagePrint.Picture := nil;	keybd_event(VK_SNAPSHOT, 1, 0, 0);   		if Clipboard.HasFormat(CF_BITMAP) then begin    			ImagePrint.Picture.Bitmap.Assign(Clipboard);   			 ImagePrint.Picture.SaveToFile('C:\Evidencias\'+txtDW.Text+'.bmp');		end;

Caio Rodrigues

Curtir t�pico

+ 0

Responder

Posts

09/06/2010

Carlos Mazzi

seria bom vc passar o codigo completo que esta no seu bota... pra testar pelo tipo de dado associado ao seu ClipBoard... tem como?

Responder

Gostei + 0

10/06/2010

Caio Rodrigues

Esse � todo o c�digo do meu bot�o. Eu tenho um bot�o apenas para tirar a Evid�ncia da Tela. Quando coloco o Clipboard.Clear a imagem n�o � salva, quando tiro � salvo o print da tela anterior.

procedure TmainForm.btnEvidenciaClick(Sender: TObject);
begin
    //Clipboard.Clear; 
    ImagePrint.Picture := nil;
    keybd_event(VK_SNAPSHOT, 1, 0, 0);
        if Clipboard.HasFormat(CF_BITMAP) then begin
            ImagePrint.Picture.Bitmap.Assign(Clipboard);
            ImagePrint.Picture.SaveToFile('C:\Evidencias\'+txtDW.Text+'.bmp');
        end;
end;

Responder

Gostei + 0