можно ли сделать его программно ?
дайте хоть малеький пример. желательно без application.onexception (слышал, что ловит не все эксцепшены).
пробовал поэкспериментировать с компонентом ApplicationEvents, и нифига...
procedure TForm1.appeventsException(Sender: TObject; E: Exception);
begin
MessageDlg(e.Message, mtError, [mbOk], 0);
GetScreen(Sender);
end;
procedure TForm1.GetScreen(Sender: TObject);
var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.Grayscale;
jpgImg.CompressionQuality:=75;
jpgImg.SaveToFile('Screenshot.jpg');
jpgImg.Free;
bmp.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
i:=0;
i:= strtoint(Edit1.Text) mod strtoint(Edit2.Text) ;
end;