pb11.5调用系统打印机 Function ulong ShellExecute(ulong hwnd,ref string lpOperation,ref string lpFile,ref st

来源:互联网 发布:js获取classname值 编辑:程序博客网 时间:2024/06/05 17:52
pb11.5调用系统打印机
Function ulong ShellExecute(ulong hwnd,ref string lpOperation,ref string lpFile,ref string lpParameters,ref string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA;ansi"

//pb9调用方法
Function Long ShellExecute (UInt  ihwnd,String  lpszOp,String lpszFile,String  lpszParams, String  lpszDir,Int  wShowCmd ) Library "Shell32.dll" Alias For "ShellExecuteA"  

string ls_null,ls_pic,ls_cmd
setnull(ls_null)
ls_cmd="print"
ls_pic="D:\qianerpgsp\bmp\07.bmp"
messagebox('',ShellExecute(0,ls_cmd,ls_pic,ls_null,ls_null,0))