delphi下VXD的实现

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;