Witam!
Wiem jak zrobic screena ale on zajmuje ok 3MB =P
Wiecie moze jak sie robi "mniejsze" screeny ??
0
0
Skompresuj do formatu JPEG.
0
mozesz albo zmniejszyc jego rozmiary albozapisac do pliku jpg
[...]
const
sciezka = 'C:Obrazki';
var
Form1: TForm1;
Can: TCanvas;
B : TBitmap;
JPG : TJPEGImage;
savestring : string;
i : integer = -1;
idle_Set : boolean = false;
implementation
{$R *.DFM}
procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
begin
inc(i);
if i = 10) and (i = 100) and (i