Moin,
jetzt hab ichs!!
Juhu.
Ich habe noch mal in meinen Archiven nachgeguckt und eben nur noch den ReleaseDc(ScreenDC); zu ReleaseDc(0, ScreenDC); geändert.
Mit folgendem Code funktioniert es wirklich super unter lazarus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ScreenDC:HDC;
begin
ScreenDC:= GetDC(0);
image1.picture.bitmap.LoadFromDevice(ScreenDC);
ReleaseDc(0, ScreenDC);
Image1.Picture.SaveToFile('C:\temp\screen.bmp');
end;
Vielen Dank. Hast mir sehr geholfen!
Pascal95
(erledigt)