Сохранить изображение из буфера

[volod3000]

Можете попробовать решить эту проблему с помощью таймеров, коряво , но
работает.

[volod3000]

Вот решение проблемы, корректное :

    procedure FormCreate(Sender: TObject);
  private
    hwndNextViewer: THandle;
    procedure WMChangeCbChain(var Message: TWMChangeCBChain); message WM_CHANGECBCHAIN;
    procedure WMDrawClipboard(var Message: TMessage); message WM_DRAWCLIPBOARD;
....................................................
................................
..............................

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

 keybd_event(VK_SNAPSHOT, 0, 0, 0);
 keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  hwndNextViewer := SetClipboardViewer(Handle);
end;

procedure TForm1.WMChangeCbChain(var Message: TWMChangeCBChain);
begin
  with Message do
begin
  if Remove = hwndNextViewer then
     hwndNextViewer := Next
  else
   if hwndNextViewer <> 0 then
     SendMessage(hwndNextViewer, Msg, Remove, Next);
 end;
end;

procedure TForm1.WMDrawClipboard(var Message: TMessage);
begin
if IsClipboardFormatAvailable(CF_BITMAP) then 
begin 
   Image1.Picture.Assign(Clipboard);
   Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'temp.bmp');
end;

end;

Здесь все просто , буфер обмена имеет не одну запись , и нам
надо отловить изменения в записях буфера обмена и вытащить необходимую, в данном случае последнею .

[Shouldercannon]

Удалено пользователем

[Shouldercannon]

Данный способ не работает при заблокированной системе.