Delphi dicas

Gravar print screen erro no sistema

//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;

por : Joel Da Rosa