delphi下VXD的实现

最新推荐文章于 2025-08-08 08:33:45 发布

gyk120

最新推荐文章于 2025-08-08 08:33:45 发布

阅读量550

点赞数

文章标签： delphi integer callback function reference shell

本文介绍了一个在VXD环境中使用的ShellMessage函数的具体实现细节，包括如何通过该函数显示带有版权信息的消息框，并展示了在设备初始化和退出时调用此函数的例子。此外，还涉及了w32deviceiocontrol函数的实现逻辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure shellmessage(handle, flags : integer; const message, caption : pchar;　　 callback, referencedata : pointer); stdcall; assembler; asm 　 movebx, handle// virtual machine handle 　 moveax, flags// message box flags 　 movecx, message// address of message text 　 movedi, caption// address of caption text 　 movesi, callback// address of callback 　 movedx, referencedata// reference data for callback

　int20h// vxdcall 　 dd 170004h// shell_message end;

function sysdynamicdeviceinit : integer; begin 　 shellmessage(0, $10, copyright, ’sysdyninit: hello from delphi vxd !!!’, nil, nil); 　 result := vxd_success; end;

function sysdynamicdeviceexit : integer; begin 　 shellmessage(0, $10, copyright, ’sysdyndevexit: bye from delphi vxd !!!’, nil, nil); 　 result := vxd_success; end;

function w32deviceiocontrol(dwservice : integer; dwddb : integer; hdevice : integer; lpdiocparms : pointer) : integer; begin 　 shellmessage(0, $10, copyright, ’w32devioctl’, nil, nil);

　if (dwservice = dioc_open) then 　 begin 　 result := no_error; 　 end 　 else if (dwservice = dioc_closehandle) then 　 begin 　 result := vxd_success; 　 end 　 else if (dwservice > max_pasvxd_w32_api) then 　 begin 　 result := error_not_supported; 　 end else 　 begin 　 result := vxd_success;　　 end; end;