Текущий архив: 2002.06.24;
Скачать: CL | DM;
Вниз
Как получить скриншот Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
