Buscar por:

Gravar print screen erro no sistema

Código

//procedure para salvar tela de erro

procedure TForm1.FotoErro(Sender: TObject; E: Exception);

var

  bmp : TBitmap;

  jpeg : TJPEGImage;

  dia,mes,ano,hora,min,seg, mseg : word;

begin

  bmp := TBitmap.Create;

  Clipboard.Clear;

  keybd_event(vk_snapshot,0, 0, 0);

  Application.ProcessMessages;

  bmp.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0);

  jpeg := TJPEGImage.Create;

  jpeg.Assign(bmp);

  DecodeDate(now,ano,mes,dia);

  DecodeTime(now,hora,min,seg,mseg);

  jpeg.SaveToFile(ExtractFilePath(Application.ExeName) + inttostr(dia) + '.' + inttostr(mes) + '.' + inttostr(ano) + '.' + inttostr(hora) + '.' + inttostr(min) + '.' + inttostr(seg) + E.Message + '.jpg');

  jpeg.Free;

  bmp.Free;

  MessageDlg(E.Message + #13#13 +'Contate o Suporte Técnico!',mtError, [mbOK], 0);

end;

>> modo de usar

//declare nos Uses: ClipBrd, Jpeg;

//Colocar no OnCreate do Form principal:

Application.OnException := FotoErro;