文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

声明： TypeSHELLEXECUTEINFO cbSizeAsLong fMaskAsLong hwndAsLong lpVerbAsString lpFileAsString lpParametersAsString lpDirectoryAsString nShowAsLong hInstAppAsLong lpIDListAsLong lpClassAsString hkeyClassAsLong dwHotKeyAsLong hIconAsLong hProcessAsLong EndType PublicConstSEE_MASK_INVOKEIDLIST=&HC PublicConstSEE_MASK_NOCLOSEPROCESS=&H40 PublicConstSEE_MASK_FLAG_NO_UI=&H400 DeclareFunctionShellExecuteEXLib"shell32.dll"Alias"ShellExecuteEx"(SEIAsSHELLEXECUTEINFO)AsLong 代码： '使用：ShowProps("c:\command.com",Me.hWnd) PublicSubShowProps(FileNameAsString,OwnerhWndAsLong) DimSEIAsSHELLEXECUTEINFO DimrAsLong WithSEI .cbSize=Len(SEI) .fMask=SEE_MASK_NOCLOSEPROCESSOrSEE_MASK_INVOKEIDLISTOrSEE_MASK_FLAG_NO_UI .hwnd=OwnerhWnd .lpVerb="properties" .lpFile=FileName .lpParameters=vbNullChar .lpDirectory=vbNullChar .nShow=0 .hInstApp=0 .lpIDList=0 EndWith r=ShellExecuteEX(SEI) EndSub->

上一篇:利用INI文件给程序创建动态菜单

下一篇:移动文件到回收站