Problem sa Screen Capture
Pozdrav,
Napravio sam mali program koji radi screen capture.
Pritiskom na button on u lokalnom folderu naprvi fajl slika.jpg.Sve je to ok ali imam mali problem.
Kako da napravim da ponovnim pritiskom na button napravi slika2.jpg pa slika3.jpg i tako dalje a ne da
radi overwrite????
CODE:
//************ CaptureScreen ***********
procedure TForm1.CaptureScreen(name: string);
var
bmp:TBitmap ;
Dc:HDC;
jpg:TJPEGImage;
begin
jpg:=TJPEGImage.Create;
bmp:=TBitmap.Create ;
bmp.Height :=Screen.Height ;
bmp.Width:=Screen.Width ;
dc:=GetWindowDC(GetDesktopWindow );
BitBlt(bmp.Canvas.Handle ,0,0,Screen.Width,Screen.Height,Dc,0,0,SRCCOPY );
releaseDC(GetDesktopWindow,dc);
with jpg do begin
Assign(bmp);
SaveToFile(name);
end;
bmp.Free;
jpg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CaptureScreen('slika.jpg')
end;
 |  |
 |
Re: Problem sa Screen Capture