我也想知道,mail: [email protected]

解决方案 »

  1.   

    不知道WISE是指什么,希望有用。执行一程序并等待其结束function WinExecAndWait32(FileName:String; Visibility :integer):integer;
    var
    zAppName:array[0..512] of char;
    zCurDir:array[0..255] of char;
    WorkDir:String;
    StartupInfo:TStartupInfo;
    ProcessInfo:TProcessInformation;
    begin
    StrPCopy(zAppName,FileName);
    GetDir(0,WorkDir);
    StrPCopy(zCurDir,WorkDir);
    FillChar(StartupInfo,Sizeof(StartupInfo),#0);StartupInfo.cb := Sizeof(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := Visibility;if not CreateProcess(nil,
    zAppName,{ pointer to command line string }
    nil,{ pointer to process security attributes }
    nil,{ pointer to thread security attributes }
    false,{ handle inheritance flag }
    CREATE_NEW_CONSOLE or { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,{ pointer to new environment block }
    nil,{ pointer to current directory name }
    StartupInfo,{ pointer to STARTUPINFO }
    ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
    else beginWaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,Result);end;end;
      

  2.   

    这个wise是类似于installShield的一个安装程序,谢谢
      

  3.   

    在WISE中编辑脚本,很简单的!
      

  4.   

    惭愧。
    请问在哪里可以输入脚本,运行外部程序的函数是?。
    是不是wise for windows installer 3.5不支持脚本