title image


Smiley Screenshot - Standard-Routine...
procedure TForm1.Button1Click(Sender: TObject);var Bitmap: TBitmap; DeskWh: HWND; DeskDC: HDC; DeskRc: TRect;begin DeskWh := GetDesktopWindow; DeskDC := GetDC(DeskWh); GetWindowRect(DeskWh, DeskRc); Bitmap := TBitmap.Create; try Bitmap.Width := DeskRc.Right - DeskRc.Left; Bitmap.Height := DeskRc.Bottom - DeskRc.Top; BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, DeskDC, 0, 0, SRCCOPY); // nun haben wir's... Bitmap.SaveToFile('c:\temp\screen.bmp'); // Spaß muß sein... StretchBlt(Canvas.Handle, 0, 0, Width, Height, DeskDC, 0, 0, Bitmap.Width, Bitmap.Height, SRCCOPY); finally ReleaseDC(DeskWh, DeskDC); bitmap.Free; end;end;Gruß Nicosch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: