关于使用winexec(40分)

mjwmjw · 2001-03-26

在程序中我使用了winexec， 但我如何等该程序执行完，再执行其他语句？     因为我后面的语句要用到前面被winexec执行的程序的结果！ 即：我要等待！

hnzgf · 2001-03-26

下面这个函数可以达到你要的功能 function WinExecAndWait32_v1(FileName: string; Visibility: integer): Cardinal; 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 }     true,                   { handle inheritance flag }     CREATE_NEW_CONSOLE or   { creation flags }     NORMAL_PRIORITY_CLASS,     nil,                    { pointer to new environment block }     nil,                    { pointer to current directory name, PChar}     StartupInfo,            { pointer to STARTUPINFO }     ProcessInfo)            { pointer to PROCESS_INF }     then Result := INFINITE {-1} else   begin     WaitforSingleObject(ProcessInfo.hProcess, INFINITE);     GetExitCodeProcess(ProcessInfo.hProcess, Result);     CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }     CloseHandle(ProcessInfo.hThread);   end; end; Good luck!

mjwmjw · 2001-03-27

to hnzgf:   Thank for your help!   when i use this function as follows; WinExecAndWait32_v1(path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp',SW_SHOWNORMAL); 不能正确执行，说明如下：    orainst.exe本身是一个安装程序（我要对其进行一些封装），安装过程中它要将一些 文件（包括其自身）copy到c：  当我用用winexec时可以正确执行，而用此函数  当copy到 orainst。exe时，程序变成无响应状态 ，或所谓的等待状态，最后只有用ctrl＋alt＋del  结束这个进程。      不知是否与waitsingleobject（）；这个进程等待函数有关？ 我正在调试，希望你仍能不吝赐教！

hnzgf · 2001-03-27

orainst是不是oracle的安装程序？ 我现在觉得如果拷贝自身的话是不是造成死循环了？ 我再看看！

hnzgf · 2001-03-27

我在我的机器上试了msdn2000的安装程序，是可以的，你可以再试试其它的程序！ Good luck!

mjwmjw · 2001-03-27

to hnzgf:     不好意思，还得向你请教， 1。orainst。exe确实是 oracle的安装程序（我想做一个外壳将其封装一下）， 2。按照你的思路。我又试了一下，如果直接用winexec的话，orainst执行正常，但当用    WinExecAndWait32_v1（）时，还是当执行到copy orainst。exe时死机。  我不知你用msdn2000的安装程序进行测试时，安装程序是否也copy 安装程序其自身？   另外，不知调整一下进程生成函数  或者waitforsingleoject（）之间的参数是否有用？  if not CreateProcess(nil,     zAppName,               { pointer to command line string }     nil,                    { pointer to process security attributes }     nil,                    { pointer to thread security attributes }     true,                   { handle inheritance flag }     CREATE_NEW_CONSOLE or   { creation flags }//这个参数是否需要修改一下？     NORMAL_PRIORITY_CLASS,     nil,                    { pointer to new environment block }     nil,                    { pointer to current directory name, PChar}     StartupInfo,            { pointer to STARTUPINFO }     ProcessInfo)

hnzgf · 2001-03-27

我这没有Oracle :-( 不过我也是运行硬盘上msdn2000的安装程序－－setup.exe,也就是说msdn也是把安装程序 考到硬盘里了，就是你所说的拷贝自身。我不是太赞成你说的换那个参数，你可以看看 msdn得帮助，这两个参数我认为是合适的，只能从其它地方下手了。我会继续尝试的，另外 你可以用msdn试试。

mjwmjw · 2001-03-27

to:hnzgf; 我经过单步调试后，发现问题如下：  主程序：     main.pas    var .....      begin      ....         number:=WinExecAndWait32_v1(path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp',SW_SHOWNORMAL);    ...    end;   function WinExecAndWait32_v1  部分如下：   begin   .......   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 }     true,                   { handle inheritance flag }     CREATE_NEW_CONSOLE or   { creation flags }     NORMAL_PRIORITY_CLASS,     nil,                    { pointer to new environment block }     nil,                    { pointer to current directory name, PChar}     StartupInfo,            { pointer to STARTUPINFO }     ProcessInfo)            { pointer to PROCESS_INF }     then Result := INFINITE {-1} else   begin --------->    WaitforSingleObject(ProcessInfo.hProcess, INFINITE);     GetExitCodeProcess(ProcessInfo.hProcess, Result);     CloseHandle(ProcessInfo.hProcess);  { to prevent memory leaks }     CloseHandle(ProcessInfo.hThread);   end; end;     单步执行到箭头所指处，ORAINST.EXE安装程序执行到COPY ORAINST.EXE自己时不能 执行了，当我将我自己所调试的程序 中止调试状态后（即退出后）， ORAINST.EXE 又能接着执行了。  问题可能处在这儿－－ 是不是该进程与父进程存在这一些内在依赖关系？希望你能帮助分析一下。     .....刚才我又单步执行了一下原来的程序，发现用 winexec也存在这样的问题，好像 必须调用ORAINST.EXE的程序执行完之后，该程序才能正确执行。   我也再看看帮助先！

mjwmjw · 2001-03-29

to hnzgf: 这两天我受一个VC例子的启发（具体实现同你的方法差不多）尝试开一个线程来做， （以前不是用一个进程来做的嘛），具体方法如下：     sleep(10000),目的主要是为了调试，又是执行到箭头处，死机，连线程也不再执行， 如果再单步执行  WaitforSingleObject(MainProcessInfo, INFINITE)句，结果由于此句的 执行，产生对线程的等待，导致主程序也死了。      为什么？？？？唉！实在不行的话，我就只能用 Vc＋＋试试看了（不过不大熟） 主程序：（摘要） var   Form1: TForm1;   MainProcessInfo : Thandle ;   Mainthread:thandle; begin    Path:=ExtractFilePath(Application.Exename);     MyThread.Create(path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp',SW_SHOWNORMAL);     sleep(10000); ------>    WaitforSingleObject(MainProcessInfo, INFINITE);//后面的时间参数  决定进程无限期等待     CloseHandle(MainProcessInfo);  { to prevent memory leaks }     CloseHandle(Mainthread); end 线程如下： unit ViceHanshu; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, FileCtrl; type   MyThread = class(TThread)  private     { Private declarations }     FileName: string;     Visibility: integer;  protected     procedure Execute; override;    function WinExecAndWait32_v1(FileName: string; Visibility: integer): Cardinal;  public constructor Create(ViceFileName: string; ViceVisibility: integer);   end; implementation   uses main; { MyThread } function MyThread.WinExecAndWait32_v1(FileName: string; Visibility: integer): Cardinal; var   zAppName: array[0..512] of char;   zCurDir: array[0..255] of char;   WorkDir: string;   StartupInfo: TStartupInfo;//这是创建一个新进程的显示时必要的结构信息      ProcessInfo: TProcessInformation; begin   StrPCopy(zAppName, FileName); //文件名格式的转换§该函数将典型的pascal字符串变为以0结尾的字符串指针（windows通用）   FillChar(StartupInfo, Sizeof(StartupInfo), #0);//将这个结构全部用空格填充   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;//窗口布局管理，为此值，下面一属性才能起作用   StartupInfo.wShowWindow := Visibility;  //主要是确定窗口显示的风格，与winexec是一样的   if not CreateProcess(nil, //这里如果部位空，则只能为一个可执行程序     zAppName,               { pointer to command line string }     nil,                    //进程优先级别     nil,                    //线程优先级别     true,                   { handle inheritance flag }     CREATE_NEW_CONSOLE or   { creation flags }     NORMAL_PRIORITY_CLASS,     nil,                    { pointer to new environment block }     nil,                    { pointer to current directory name, PChar}     StartupInfo,            { pointer to STARTUPINFO }     ProcessInfo)            //声明一个结构来存储进程的消息。     then Result := INFINITE  else   begin     MainProcessInfo:= ProcessInfo.hProcess;   end; end; constructor mythread.Create(ViceFileName: string; ViceVisibility: integer); begin   filename:= ViceFileName;   visibility:= ViceVisibility;   //FreeOnTerminate := True;   inherited Create(False); //表示一创建就执行 end; procedure MyThread.Execute; begin   { Place thread code here }   WinExecAndWait32_v1(FileName, Visibility); end; end.

hnzgf · 2001-03-29

to mjwmjw: 我已经在我机器上试过了,运行orainst.exe不会出现问题,是不是你的机器有毛病了? 你试一试其它程序吧,最好的一个例子就是msdn,因为msdn也会把自己的安装程序拷入 硬盘的. 祝你好运!

mjwmjw · 2001-03-30

to hnzgf:    我不明白！我不服气！程序在这不能执行，在你那能执行！ 我给你程序的简化版，你试一试！（其主要技巧与你的方法一样）   procedure TForm1.FormShow(Sender: TObject); var    sCommandLine,path:string;    bCreateProcess: boolean;    lpStartupInfo: TStartupInfo;    lpProcessInformation: TProcessInformation; begin    path:=Extractfilepath(Application.ExeName);    //sCommandLine :=path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp';     sCommandLine :=path+'win32/install/orainst.exe ';    lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;    lpStartupInfo.wShowWindow := SW_shownormal;    bCreateProcess := CreateProcess(nil, PChar(sCommandLine),nil,nil,True,                 HIGH_PRIORITY_CLASS, nil, nil,lpStartupInfo, lpProcessInformation);                 sleep(10000);    if bCreateProcess then         WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);         showmessage('That is ok!'); end;    你运行一下试试，然后留意这一行：   //sCommandLine :=path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp';  后面的参数用处很大，利用以前安装的皮配置文件使安装程序安装到 c：一个固定 目录。     不过，你现在可以先不考虑这个问题，就先运行orainsrt。exe这个安装文件试一试。   如果你愿意，给我发一下你测试的源代码吗？ 我始终觉得出现这重情况是不正常的，肯定是我在哪一个地方，有一点小问题。  如果有必要，我可以发给你这两个配置文件。到时给我来信即可。   急切等候你的回信！

mjwmjw · 2001-03-30

to hnzgf:    我不明白！我不服气！程序在这不能执行，在你那能执行！ 我给你程序的简化版，你试一试！（其主要技巧与你的方法一样）   procedure TForm1.FormShow(Sender: TObject); var    sCommandLine,path:string;    bCreateProcess: boolean;    lpStartupInfo: TStartupInfo;    lpProcessInformation: TProcessInformation; begin    path:=Extractfilepath(Application.ExeName);    //sCommandLine :=path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp';     sCommandLine :=path+'win32/install/orainst.exe ';    lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;    lpStartupInfo.wShowWindow := SW_shownormal;    bCreateProcess := CreateProcess(nil, PChar(sCommandLine),nil,nil,True,                 HIGH_PRIORITY_CLASS, nil, nil,lpStartupInfo, lpProcessInformation);                 sleep(10000);    if bCreateProcess then         WaitForSingleObject(lpProcessInformation.hProcess, INFINITE);         showmessage('That is ok!'); end;    你运行一下试试，然后留意这一行：   //sCommandLine :=path+'win32/install/orainst.exe /silent /prd win95.prd /rspsrc client_ok.rsp';  后面的参数用处很大，利用以前安装的皮配置文件使安装程序安装到 c：一个固定 目录。     不过，你现在可以先不考虑这个问题，就先运行orainsrt。exe这个安装文件试一试。   如果你愿意，给我发一下你测试的源代码吗？ 我始终觉得出现这重情况是不正常的，肯定是我在哪一个地方，有一点小问题。  如果有必要，我可以发给你这两个配置文件。到时给我来信即可。   急切等候你的回信！

hnzgf · 2001-03-30

to mjwmjw: 因为我对oracle不是太了解,我是找了一张oracle8.05的盘,然后运行setup.exe,安装正常, 然后我又用程序运行 /orant/bin/orainst.exe,然后发现已经没有产品安装了,我选了 安装路径,只找到了一个SQL Tcp/IP net之类的产品,好像是协议吧,但是并没有报什么错误. 不知你的问题到底是什么?

mjwmjw · 2001-04-02

to hnzgf:    谢谢你这几天的不吝帮助，这个问题还没有解决，不过，就暂时讨论这儿吧。 问题的情况我再说一下，如果你再有什么建议，可以给我发信：mjw@mail.cumtb.edu.cn   如你所诉，直接运行setup。exe肯定不行，因为这时该安装的已经安装了，我得意思是 直接运行orainst。exe ，说清后面带的参数比较复杂。其实你可以直接运行  orainst。exe ，这时你可以看到我说的效果。    这期间我又调整了  createprocess（）的参数，不过结果不太理想。  再次。谢谢你的帮助！

关于使用winexec(40分)

mjwmjw

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

hnzgf

Unregistered / Unconfirmed

mjwmjw

Unregistered / Unconfirmed

Similar threads