请教：ShellExecute命令如何支持字符长度超过255长度时不报错的方法 - 编程论坛

#2

laibinhua2025-05-12 10:26

回复楼主 laibinhua

网上找了个方法也不行
lfilename=ALLTRIM(this.Parent.text4.Value)
IF 'http'$lfilename=.t.
  * 声明 Unicode 版本的 ShellExecuteW
  DECLARE INTEGER ShellExecuteW IN shell32.DLL ;
    INTEGER hwnd, ;
    STRING lpOperation, ;
    STRING lpFile, ;
    STRING lpParameters, ;
    STRING lpDirectory, ;
    INTEGER nShowCmd

  owjmc=lfilename
  thisform.text1.Value=LEN(owjmc)
  if empty(owjmc)
     return
  ENDIF
  * 调用 Unicode 版本
  ShellExecuteW(0, "open", owjmc, "", "", 1)
ENDIF

#3

csyx2025-05-12 11:29

我就不明白了，为何非要画蛇添足的用宏替换 &，直接用变量不是简单的多？
一楼代码只要去掉 & 应该就行： ShellExecute(0,"open", owjmc, 0,0,1)

#4

laibinhua2025-05-12 11:30

回复 3楼 csyx

谢谢！解决问题

[此贴子已经被作者于2025-5-12 11:40编辑过]