hab noch nie mit Clipboard gearbeitet und bin dementsprechend jetzt stolz das der erste versuch gleich so erfolgreich ist. So sollte es gehen
Delphi-Quellcode:
var LHandle: Cardinal;
LBitmap: TBitmap;
begin
if OpenClipboard(
handle)
then
begin
LHandle := GetClipboardData(CF_BITMAP);
if LHandle <> 0
then
begin
LBitmap := TBitmap.Create;
LBitmap.Handle := LHandle;
//Jetzt kann mit LBitmap das Bitmap aus der Zwischenablage genutzt werden
//place the source here
LBitmap.Handle := 0;
LBitmap.Free;
end;
CloseClipboard;
end;
end;