遇到奇怪问题,delphui程序在2000下编译可以运行的,在98下就会蓝屏,???

解决方案 »

  1.   

    编译了,还是没有用
    if exeFileType='EXE' then
       begin
          cmdLine:=exeFile+' '+exePara;
          cmdPath:='';
          sFile:=cmdLine;
          showwindow(application.handle,sw_hide);
          if CreateProcess(nil,
                  PChar(sFile),
                  nil,
                  nil,
                  false,
                  normal_priority_class,
                  nil,
                  PChar(ExtractFileDir(cWJLJ)),//application.ExeName)),
                  Startupinfo,
                  ProcessInfo) then
          begin
                  MainForm.Visible:=False;
                  WaitforSingleObject(Processinfo.hProcess, infinite);
                  CloseHandle(ProcessInfo.hProcess);              showwindow(application.handle,sw_show);
                  screen.cursor:=crDefault;
          end;   end;