Программно нажимаем Print Screen

  • Автор темы ADREN@l!ne
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

ADREN@l!ne

#1
Нашел но на делфе!!!!
Автор: Simon Carter

Совместимость: Delphi 3.x (или выше)

Приведённая здесь функция делает копию изображения экрана и сохраняет её в буфере обмена (Clipboard). Так же необходимо включить в Ваш проект файл ClipBrd.pas.

procedure SendScreenImageToClipboard;
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Clipboard.Assign(bmp);
finally
bmp.Free;
end;
end;


Следующая функция скопирует изображение экрана в в bitmap. Переменная bitmap *должна* быть инициализирована до вызова этой функции.

procedure GetScreenImage(bmp: TBitmap);
begin
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
end;
Хотелось бы увидеть тожесамое на С++ Билдер!!!
Зранее всем спасибо!
 
S

sdriver

#2
Так в чем проблема := меняешь на =
точку на ->
: на *
procedure на void
begin end на {} -- смотриш и уже компилиться:)
 
C

CyberCom

#3
//весь экран
keybd_event(VK_SNAPSHOT, 0, 0 ,0);
keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP,0);

//только для формы
keybd_event(VK_SNAPSHOT, 1, 0 ,0);
keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP,0);
----------сам игрался вот так.....(смотри архив)----------
 

Вложения

Статус
Закрыто для дальнейших ответов.