Перехват

← →
Ivolg (2004-11-05 16:48) [0]

Привет всем!! Плизз хелп!!! Моя прога свёрнута в трей, как можно по нажатию на Ctrl+S, чтобы окно проги появлялось?? Как такое можно усошествить на делфи?? СПАСИБО!!!!

← →
CHES © (2004-11-05 17:15) [1]

"усошествить" это можно при помощи глобального хука на клавиатуру

http://msk.nestor.minsk.by/kg/2003/26/kg32602.html

← →
Ivolg (2004-11-05 18:30) [2]

>CHES
А ещё чтё-нить есть!! А то когда я нажимаю кнопку, она отлавливается и пропадает весь Desktop!!!

← →
easy © (2004-11-05 18:31) [3]

ненадо это на Ctrl+S осуществлять.. пожалуйсто!..
а на Ctrl+Shift+F11 - примерно так -

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const HK_MYHOTKEY = 1001; 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} procedure TForm1.FormCreate(Sender: TObject); begin application.ShowMainForm:=false; RegisterHotKey(handle,HK_MYHOTKEY,MOD_CONTROL or MOD_SHIFT,VK_F11); end; procedure TForm1.FormDestroy(Sender: TObject); begin UnregisterHotKey(handle,HK_MYHOTKEY); end; procedure TForm1.WMHOTKEY(var msg: TWMHotkey); begin inherited; case msg.HotKey of HK_MYHOTKEY:form1.Show; end; end; end.

← →
Ivolg (2004-11-05 18:51) [4]

>easy

М можно как нить просто с помошью CTRL или с другой какой-нить кнопкой??

← →
easy © (2004-11-05 19:09) [5]

RegisterHotKey(handle,HK_MYHOTKEY,MOD_CONTROL,ord("S"));

← →
Ivolg (2004-11-06 17:01) [6]

Спасибо!!!!!

Перехват Найти похожие ветки