Danke, funktioniert super. Hab selbst noch n bischen rumgespielt und folgendes haut auch hin:
Delphi-Quellcode:
bmp := TBitmap.Create;
bmp.Width := dateien[0];
bmp.Height := dateien[1];
bmp1 := TBitmap.Create;
bmp1.Width := dateien[4];
bmp1.Height := dateien[5];
DCDesk := GetWindowDC(GetDesktopWindow);
BitBlt(bmp.Canvas.Handle, 0, 0, dateien[0], dateien[1],
DCDesk, dateien[2], dateien[3], SRCCOPY);
bmp1.Canvas.StretchDraw(Rect(0,0,dateien[4], dateien[5]), bmp);
bmp1.SaveToFile('ScreenShot.bmp');
ReleaseDC(GetDesktopWindow, DCDesk);
bmp.Free;
bmp1.Free;
Hier muss man halt beachten die Größenangaben des Textfiles proportional zu berechnen, sonst verzerrt das Ganze.
