habe jetzt auch mal
Delphi-Quellcode:
// Screenshot
procedure TForm7.Button3Click(Sender: TObject);
var tempBild: TBitmap;
begin
WindowState := wsminimized;
Image1.picture := nil;
tempBild := TBitmap.Create;
Sleep(1000);
ScreenShot(tempBild,Edit2.Text,Edit1.Text,Edit3.Text,Edit4.Text);
Image1.Picture.Assign(tempBild);
tempBild.SaveToFile('TestBitmap.bmp');
tempBild.Free;
WindowState := wsNormal;
Form7.BringToFront;
SetForegroundWindow(FindWindow(nil,'Screenshot'));
end;
versucht, also das
tempBild.SaveToFile('TestBitmap.bmp');
eingefügt, wieder nen schwarzes bild
dein Programm funktioniert, muß also wohl doch an Lazarus liegen
EDIT:
du hast in uses noch das drinn:
, Messages, Variants
hatte das mal mit eingefügt und neu getestet, aber immer noch das selbe