第一次用 API。求教！ ( 积分: 100 )

michael_zhu77 · 2005-09-12

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls;   type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    { Private declarations }    id : integer;    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;  public    { Public declarations }  end; var  Form1: TForm1; implementation  const RSP_SIMPLE_SERVICE = 1;  function RegisterServiceProcess(dwProcessID,dwType : DWord) : DWord; stdcall; external 'KERNEL32.DLL'; {$R *.dfm} { TForm1 } procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin  if msg.HotKey = id then    ShowMessage('Ctrl+Alt+R键被按下!');  form1.Visible :=true; end; procedure TForm1.FormCreate(Sender: TObject); Const {ALT、CTRL和R键的虚拟键值}  MOD_ALT = 1;  MOD_CONTROL = 2;  VK_R = 82; begin  {首先判断程序是否已经运行}  if GlobalFindAtom('MyHotkey') = 0 then    begin      {注册全局热键Ctrl + Alt + R}      id := GlobalAddAtom('MyHotkey');      RegisterHotKey(handle,id,MOD_CONTROL+MOD_Alt,VK_R);    end  else    halt; end; procedure TForm1.Button1Click(Sender: TObject); begin  RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);  form1.Hide; end; procedure TForm1.Button2Click(Sender: TObject); begin  close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  {退出时释放全局热键}  UnRegisterHotKey(handle,id);  GlobalDeleteAtom(id); end; end. 该代码是网上调试通过的，为啥在我的机器上走不通。 出现的错误提示：无法定位程序输入点RegisterServiceProcess于动态链接库KERNEL32.DLL上。 是不是有关系统问题？

michael_zhu77 · 2005-09-12

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls;   type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    { Private declarations }    id : integer;    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;  public    { Public declarations }  end; var  Form1: TForm1; implementation  const RSP_SIMPLE_SERVICE = 1;  function RegisterServiceProcess(dwProcessID,dwType : DWord) : DWord; stdcall; external 'KERNEL32.DLL'; {$R *.dfm} { TForm1 } procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin  if msg.HotKey = id then    ShowMessage('Ctrl+Alt+R键被按下!');  form1.Visible :=true; end; procedure TForm1.FormCreate(Sender: TObject); Const {ALT、CTRL和R键的虚拟键值}  MOD_ALT = 1;  MOD_CONTROL = 2;  VK_R = 82; begin  {首先判断程序是否已经运行}  if GlobalFindAtom('MyHotkey') = 0 then    begin      {注册全局热键Ctrl + Alt + R}      id := GlobalAddAtom('MyHotkey');      RegisterHotKey(handle,id,MOD_CONTROL+MOD_Alt,VK_R);    end  else    halt; end; procedure TForm1.Button1Click(Sender: TObject); begin  RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);  form1.Hide; end; procedure TForm1.Button2Click(Sender: TObject); begin  close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  {退出时释放全局热键}  UnRegisterHotKey(handle,id);  GlobalDeleteAtom(id); end; end. 该代码是网上调试通过的，为啥在我的机器上走不通。 出现的错误提示：无法定位程序输入点RegisterServiceProcess于动态链接库KERNEL32.DLL上。 是不是有关系统问题？

chenybin · 2005-09-12

http://www.delphibbs.com/delphibbs/dispq.asp?lid=102116 标题是： how to use RegisterServiceProcess ,get me a sample, (50分) 分类：GIS const  RSP_SIMPLE_SERVICE     = $00000001;  RSP_UNREGISTER_SERVICE = $00000000; // Parameter dwProcessId can be 0, same effect as GetCurrentProcessId // Return Values: True(1) means success function RegisterServiceProcess(dwProcessId, dwServiceType: DWord): Bool; stdcall; // Place in "implementation" session function RegisterServiceProcess; external 'Kernel32.dll' Name 'RegisterServiceProcess'; // Example: //   RegisterServiceProcess(0, RSP_SIMPLE_SERVICE); //   RegisterServiceProcess(0, RSP_UNREGISTER_SERVICE

michael_zhu77 · 2005-09-12

没懂。 能不能讲的清楚些，谢谢！

chenybin · 2005-09-12

看看行不行 unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls;   const  RSP_SIMPLE_SERVICE     = $00000001;  RSP_UNREGISTER_SERVICE = $00000000; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    { Private declarations }    id : integer;    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;  public    { Public declarations }  end; var  Form1: TForm1;    function RegisterServiceProcess(dwProcessId, dwServiceType: DWord): Bool; stdcall; implementation      function RegisterServiceProcess; external Kernel32 name 'RegisterServiceProcess'; {$R *.dfm} { TForm1 } procedure TForm1.WMHotKey(var Msg: TWMHotKey); begin  if msg.HotKey = id then    ShowMessage('Ctrl+Alt+R键被按下!');  form1.Visible :=true; end; procedure TForm1.FormCreate(Sender: TObject); Const {ALT、CTRL和R键的虚拟键值}  MOD_ALT = 1;  MOD_CONTROL = 2;  VK_R = 82; begin  {首先判断程序是否已经运行}  if GlobalFindAtom('MyHotkey') = 0 then    begin      {注册全局热键Ctrl + Alt + R}      id := GlobalAddAtom('MyHotkey');      RegisterHotKey(handle,id,MOD_CONTROL+MOD_Alt,VK_R);    end  else    halt; end; procedure TForm1.Button1Click(Sender: TObject); begin  RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);  form1.Hide; end; procedure TForm1.Button2Click(Sender: TObject); begin  close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  {退出时释放全局热键}  UnRegisterHotKey(handle,id);  GlobalDeleteAtom(id); end; end.

michael_zhu77 · 2005-09-12

不行，还是提示同样的错误。

app2001 · 2005-09-12

再USES　SysOption;看有没有用？？？

chenybin · 2005-09-12

好像没有这个单元，在什么目录的，我用D6

michael_zhu77 · 2005-09-12

用的D6

shine007 · 2005-09-12

这是win9X上的函数，win2K以上就不能用了。。 [red]http://www.delphibbs.com/delphibbs/dispq.asp?lid=617077[/red]

michael_zhu77 · 2005-09-12

楼上的，2K以上的该用什么文件？

app2001 · 2005-09-12

看这些吧 http://www.aidelphi.com/ShowTopic.asp?TopicID=9227&PageIDX=1&SpaceID=30 <精华> 在Windows2000中动态禁用/启用Ctrl-Alt-Delete http://cnzz.cn/soft/html/18466.html 在2000XP2003下屏蔽Ctrl + Alt + Del组合键 http://dev.csdn.net/develop/article/15/15645.shtm 如何: 在Windows2000中动态禁用/启用Ctrl-Alt-Delete

第一次用 API。求教！ ( 积分: 100 )

michael_zhu77

Unregistered / Unconfirmed

michael_zhu77

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

michael_zhu77

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

michael_zhu77

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

michael_zhu77

Unregistered / Unconfirmed

shine007

Unregistered / Unconfirmed

michael_zhu77

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Similar threads