ASCII код для PrintScreen -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.15.214.238]

Дорогие друзья! Поздравляем вас с Новым 2025 годом!

Всем удачи, успеха и благополучия!

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Скриншот (Принцип получения...)

ASCII код для PrintScreen

x2er0

Сообщ. #1 , 09.12.04, 22:58

Profi

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 20

Вариант 1.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

procedure AppIdle(Sender: TObject; var Done: Boolean);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);

begin

if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then

Form1.Caption := 'PrintScreen íàæàòà !';

Done := True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnIdle := AppIdle;

end;

end.

Вариант 2.

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

const id_SnapShot = 101;

procedure TForm1.WMHotKey (var Msg : TWMHotKey);

begin

if Msg.HotKey = id_SnapShot then

ShowMessage('GotIt');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

RegisterHotKey(Form1.Handle,

id_SnapShot,

VK_SNAPSHOT);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

UnRegisterHotKey (Form1.Handle, id_SnapShot);

end;

Эта тема была разделена из темы "ASCII код для PrintScreen"

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0154 ] [ 16 queries used ] [ Generated: 15.01.25, 07:44 GMT ]