系统运行时,捕获键盘消息,一旦按下F8键,系统调用一个事件,怎么做?
请大家帮帮忙,谢了!!!
请大家帮帮忙,谢了!!!
解决方案 »
- listbox怎么更改某一项item的显示顺序?见图
- delphi 连接sql server数据库是怎么样才能去掉登录框
- 有关B/S和C/S的比较
- 在向SQL Server数据库中的表写数据时,出现的错误,请大家帮忙解决,谢谢!!!
- 大家来看一下,我的郁闷的问题!!!
- 介绍基本从入门到精通delphi的书
- Ado补丁的注册码是多少阿?help!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- ???
- 如果将一文本文件中的非ASCII字符去除掉。谢谢!
- 哪位见过“invalid blob handle in record buffer”这个错误???
- 100分求把屏幕截取保存为图象文件的方法
- 只有60分了! ADO怎么连接sybase数据库
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;STDCALL;
var
Form1: TForm1;
WinHook: HHOOK;
implementation{$R *.dfm}function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;begin
if (nCode>-1) then
begin
if wparam=VK_SHIFT then
showmessage('your press the shift');
result:=0;
end
else
Result := CallNextHookEx(WinHook, nCode, wParam, lParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WinHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, 0, GetCurrentThreadID);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnhookWindowsHookEx(WinHook);
end;end.
换了就可以了;
我是要实现整个系统调用,怎么实现内存共享?
好像要写动态DLL