| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перехват [D6, D7, WinXP]

Ivolg ©   (2004-11-05 16:48:00) 

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

---

Anatoly Podgoretsky   (2004-11-06 17:08:00) [1]

easy ©   (05.11.04 19:09) [5]
Потом народ будет страдать, сказали же не надо.

---

Ivolg   (2004-11-06 17:01:00) [2]

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

---

easy   (2004-11-05 19:09:00) [3]

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

---

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

>easy

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

---

easy   (2004-11-05 18:31:00) [5]

ненадо это на 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:30:00) [6]

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

---

CHES   (2004-11-05 17:15:00) [7]

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

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

---

Наверх