Im Anhang ist ein Formular mit
Unit, beides in dein Projekt-Ordner kopieren und "uCapture" in den "Uses" aufnehmen.
Dann sowas in der Art...
Delphi-Quellcode:
procedure Foobar;
var
Capture: TfrmCapture;
begin
Capture := TfrmCapture.Create(nil);
try
Capture.ShowModal;
Image1.Picture.Bitmap.Assign(Capture.Image);
finally
Capture.Free;
end;
Da ist leider ein Flickern drinn was ich nicht abschalten kann da ich irgendwo was falsch mache
Nett, gibt's Pläne das zu veröffentlichen?
Was ist da Nett?
Solche Dinger mit alten
API's weiter zu pflegen
(Copy\Paste woher die sourcen auch stammen) bzw. gibt es diese wie Sand am Meer versuchen neu zu kreieren ist vertane zeit und Müh.
Beschäftige dich mal mit neueren
API's bzw. Aktuellen. Siehe DWM!
Meine persönliche Meinung.