Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];

Вниз

Как получить скриншот   Найти похожие ветки 

← →
Belov   (2002-06-10 15:27) [0]

Привет всем !
Не подскажите как получить скриншот активного окна
Если можно с примером

---

← →
Игорь Шевченко   (2002-06-10 15:34) [1]

Alt+PrintScreen

---

← →
SB.John   (2002-06-10 15:56) [2]

А если хочешь программно, то

ShowMessage("Нажмите пожалуйста PrintScreent"); :)

---

← →
[BAD]Angel   (2002-06-10 16:16) [3]

unit Unit1;

interface

uses
Windows, Classes, Forms, Controls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
vkey1, vkey2: Byte;
code1, code2: Byte;
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
vkey1:=VK_MENU;
vkey2:=VK_SNAPSHOT;
code1:=Lo(MapVirtualKey(VKey1, 0));
code2:=Lo(MapVirtualKey(VKey2, 0));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VKey1, code1, 0, 0);
keybd_event(VKey2, code2, 0, 0);
sleep(50);
keybd_event(VKey2, code2, KEYEVENTF_KEYUP, 0);
keybd_event(VKey1, code1, KEYEVENTF_KEYUP, 0);
end;

end.

---

← →
Belov   (2002-06-10 16:51) [4]

2 [BAD]Angel
А дальше то как ?
Как например вывести даную картинку в Image1

2 SB John
смешно, просто описаться можно

---

← →
VID   (2002-06-10 18:09) [5]

TO BELOV: Как, как... Когда ты нажимаешь ALT+PRINT_SCREEN, куда помещается захваченное изображение? Вот и тяни его из CLipboard как BITMAP

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c