剛接觸delphi 有些問題想跟大家請教 如何為自己的視窗設熱鍵 也就是說我想為視窗設各熱鍵 當執行其他程式時可以按熱鍵呼出我的視窗 不知該如何設計 請指點一下囉!!!!

參考看看 http://delphi.ktop.com.tw/topic.php?topic_id=29551

我想再請教一下 我用dll的方式設了一個熱鍵 可以在遊戲中呼出選單 可是我想修改此遊戲中的記憶體中數值 不知該如何寫 假設我想把遊戲中的00581C53的數值改寫 我在dll中直接調用WriteProcessMemory 可是總是寫不進去 所以想再請教一下囉~~ 發表人 - ha510041 於 2003/05/23 19:12:16 發表人 - ha510041 於 2003/05/24 03:42:03

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;    type   TForm1 = class(TForm)     procedure ON_WM_HOTKEY(var m:TMessage);message WM_HOTKEY;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.ON_WM_HOTKEY(var m: TMessage); begin if(m.WParam=123)then  //如果id是123 showmessage('ok'); end;    procedure TForm1.FormCreate(Sender: TObject); begin RegisterHotKey(Handle,123,MOD_CONTROL,integer('A')); //123是自己定义的id ，热键是 ctrl+A    end; end.    供参考！    风花雪月 e梦情缘
發表人 - wnhoo 於 2003/05/24 08:22:09

------
风花雪月 e梦情缘

引言: 剛接觸delphi 有些問題想跟大家請教 如何為自己的視窗設熱鍵 也就是說我想為視窗設各熱鍵 當執行其他程式時可以按熱鍵呼出我的視窗 不知該如何設計 請指點一下囉!!!!

大概像這樣吧..我以前寫的程式有這一段功能...你參考一下 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27755

 
procedure TForm1.FormCreate(Sender: TObject);
if GlobalFindAtom('MyHotkey1') = 0 then
  begin {Ctrl   Alt   f1}
    id:=GlobalAddAtom('MyHotkey1');
    RegisterHotKey(handle,id,MOD_CONTROL MOD_Alt,VK_F1);
  end;
end;    procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if msg.HotKey = id then
 ShowMessage('Ctrl Alt f1');
 form1.Visible :=true;
end;    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(handle,GlobalFindAtom('MyHotkey1'));
  GlobalDeleteAtom(GlobalFindAtom('MyHotkey1'));
end;    

永遠追不上技術更新的速度~~