Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: Bildschirmfoto knipst nicht alles
30. Mai 2018, 23:19
@Emil, nun hab ich mal Dein Text für Delphi angepasst, funktioniert für ganzes Display mit egal was für Content. Danke
Jetzt taste ich mich an Deine zweite Variante ran.
Delphi-Quellcode:
Function CaptureScreen(var hbmp: HBITMAP): Boolean;
var
hDCScreen, hDCMem : HDC;
cx, cy: Integer;
hBmpOld: HBITMAP;
dwRop: DWORD;
begin
hDCScreen := CreateDC('DISPLAY', 0, 0, 0);
cx := GetDeviceCaps(hDCScreen, HORZRES);
cy := GetDeviceCaps(hDCScreen, VERTRES);
hDCMem := CreateCompatibleDC(hDCScreen);
hbmp := CreateCompatibleBitmap(hDCScreen, cx, cy);
hBmpOld := SelectObject(hDCMem, hbmp);
dwRop := SRCCOPY or CAPTUREBLT;
Result := BitBlt(hDCMem, 0, 0, cx, cy, hDCScreen, 0, 0, dwRop);
SelectObject(hDCMem, hBmpOld);
DeleteDC(hDCMem);
DeleteDC(hDCScreen);
end;
|
|
Zitat
|