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

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

Вопрос про хук. [D7, XP]

vegarulez ©   (2008-09-23 09:31:00) 

добрый день мастерам!
Вопрос такой - раньше пользовался хуком - открыл код скопировал - вставил в другое приложение - а он ругается... Там видимо было приложение VCL а здесь CLX - помогите разобраться. Как тут сделать код рабочим.

unit Unit1;

interface

uses
 Windows,SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
 QDialogs, QStdCtrls, messages;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation
const
MyHotKey = VK_SUBTRACT; //  VK_DELETE;}
{$R *.xfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, MyHotKey, 0, MyHotKey);  // хук
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Form1.Handle, MyHotKey);  // хук
end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
Label1.Caption:='123123';
end;


при компиляции ругается и выдаёт такую ошибку -
[Error] Unit1.pas(32): Incompatible types: 'HWND' and 'QOpenScrollViewH'

---

Правильный$Вася   (2008-09-25 10:41:00) [1]

странный ты
говоришь, что хочешь забивать гвозди, но упрямо хватаешь отвертку и шурупы, потому как молотком пользоваться не умеешь, а гвозди в глаза не видел

---

vegarulez   (2008-09-25 06:08:00) [2]

только QForms, ругаются...

---

vegarulez   (2008-09-25 06:06:00) [3]

> uses  Windows

---

Palladin   (2008-09-24 17:54:00) [4]

а с каких щей они будут под clx работать? если ты пользуешься функцией WinAPI... если тебе не понятно, то WinAPI потому называется WinAPI потому что она Win, что есть сокращение от слова Windows

---

Palladin   (2008-09-24 17:54:00) [5]

а, ну да, повторюсь, а хуки здесь вообще нипричем

---

vegarulez   (2008-09-24 17:37:00) [6]

мастеры... помогите плиз...

---

vegarulez   (2008-09-24 09:57:00) [7]

мастера... нид хелп...
ничего путёвого не нашёл - все примеры, что нашёл работают под VCL а под CLX не хотят...
hwnd - я так понял это окно программы, как получить тогда верно его идентификатор?

---

vegarulez   (2008-09-23 11:33:00) [8]

Рамиль ©   (23.09.08 11:13) [1]
Ну приложение в винде работает просто cоздано изначально было как CLX application

Правильный$Вася   (23.09.08 11:18) [2]
По F1 ничего вообще не выводит сечас в инете посомтрю. если есть ссыль буду признателен.

---

Правильный$Вася   (2008-09-23 11:18:00) [9]

и что тебе непонятно?
функция ожидает другой тип параметра
hwnd - это для виндоуз
открывай справку по функции и читай

---

Рамиль   (2008-09-23 11:13:00) [10]

А зачем тебе виндовый хук в CLX?

---

Наверх