问专家-WinExec无法运行

WinExec无法运行

编号：	QA004894
建立日期：	2004年9月4日	最后修改日期：	2004年9月4日
所属类别：	Delphi - Windows API

    操作系统: windows
    编程工具: delphi6.0
    问题: procedure TForm1.lvIconsDblClick(Sender: TObject);
    var
     run: string;

    begin

     if not (lvIcons.Selected = nil) then begin
     run := lvIcons.Selected.subItems.Text;
     if length(run)>0 then
     winexec(pchar(run),1);//以证run值正确,可是这一句无法运行run.何解?

     end;
    end;


    水平: 中级(丁丁猫)

可以检查一下WinExec的返回值。如果返回值大于32，则表示该函数成功，如果仍然没有看到窗口，可能是窗口的位置有问题，你可以试一下WinExec的其他参数，如SW_SHOW、SW_SHOWMAXIMIZED。如果返回值小于32，则可能是以下原因：

0	系统内存不够
ERROR_BAD_FORMAT	Exe文件非法
ERROR_FILE_NOT_FOUND	文件没有找到
ERROR_PATH_NOT_FOUND	路径没有找到

此问题由李海回答。

附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, Windows API, win32, api, windows api, gdi32, kernel。

	把这个问题推荐给朋友

Web Designed by ZebraStudio