Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Май

Сделать printscreen экрана и сохранить

Posted by Chas under Delphi

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;