Горячие клавешницы =)

[GAGARIN-NEW]

Здравствуйте все !
У меня есть пару вапросов :
1 : как во время выполнения программы зарегить/un'регить hotkey с последующем его использованием ?
2 : как сохранить выбранный хоткей после завершения программы ? чтоб при загрузке программы он автоматически назначался/загружался в елемент HotKey1/2/3... ?
///Желательно использовать реест для хранения хоткеев///
Если подобное подробно обсуждалось даёте ссылку плиз
(ЗЫ Поиск не рулит!)

Всем спасиба

[Stilet]

зарегить/un'регить hotkey

Глобальный Хоткей или чисто для твоей проги?

Желательно использовать реест для хранения хоткеев

Ну дык с помошью класса Tregistry.

[GAGARIN-NEW]

я вот токашо порылся по форуму и посмарел что тип Hkey или как там ... (ну кароче тот каторый у хоткей 1 , 2 , 3) можно переделать в интегер так ? 'чтототам'toint(HotKey1.HotKey) а потом его обратно из интегера в хоткей и регистрить...=) можно так ?
Хоткеи мне нужны глобальные.!.
я могу сделать хоткей при запуске программы нашо гдето примерчик
но что меня смущает : там есть много 'на мой взгляд' лишнего ,и оно напихано в private declarations и ещё кудато... а мне нужно чтобы во время выполнения проги нужно было назначать их динамически а не только при создании формы....
ВОТ.

[Stilet]

можно так ?

Нужно.

Хоткеи мне нужны глобальные.!.

Тогда нуна RegisterHotKey рулить. Поищи на форуме помоему уже было это.

но что меня смущает

Ниче не поняв....

[GAGARIN-NEW]

вот моя прога примерчик каторую я когдато делал (скопировал укавото

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Mess:TWMHotKey);message WM_HOTKEY;  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMHotKey(var Mess: TWMHotKey);
begin

Application.MessageBox('xxx', 'yyy',mb_ok or mb_IconError); //это для проверки я сделал =) 
form1.Visible:=true;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1 ,MOD_CONTROL, vk_F12);
end;

Вот что меня сумщает тк непонимаю всего !
Мне нужно определённой функции ставить хоткей а не под хоткей функцию....

[Квэнди]

procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;
.....
.....
procedure Tform1.FormCreate(Sender: TObject);
begin
RegisterHotkey(Handle, 1, MOD_win, VK_space); //соответственно горячая клавиша будет win+пробел
end;

procedure tform1.WMHotkey( var msg: TWMHotkey );
var str,userName:string;
UserNameLen: dword;
begin
  if msg.hotkey = 1 then
  begin
   ............
  end;
end;

procedure Tform1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotkey( Handle, 1 );
end;

[GAGARIN-NEW]

procedure Tform1.FormCreate(Sender: TObject);

- мне во время выполнения проги надо назначать снимать хоткеи !
Вот конретно что мне надо : оставить хотке1 например CTRL + SPASE и чтобы по этому сочетанию открывался сидюк ! процедура открытия закрытия сидюка есть ! мне теперь надо сделать так чтобы я этой поцедуре назначил горячую клавишу... надеюсь вы поняли...

[Квэнди]

Ну так назначай в другом событии/процедуре

[Stilet]

надеюсь вы поняли

Поиском по форуму на слово HotKey ты найдеш кучу примеров. Давай не ленись.

[GAGARIN-NEW]

это да а как сделать чтоб теперь именно по этому хоткею чтото выполнялось , а по другому хоткею выполнялось чтото другое...???

Поиском по форуму на слово HotKey ты найдеш кучу примеров. Давай не ленись.

Только что искал ! там тожесамое ! везде Oncreate и везде только 1 хоткей ((