如何控制DOS程序的输入？(300分)

Yhhe · 2003-03-10

在自己的程序中如何控制DOS程序的输入?  如在自己的程序中启动 "Foxpro For DOS"并由程序自己输入命令如"Quit"? 请大家帮帮忙吧，只要问题解决300分奉送

来如风 · 2003-03-10

也许写个bat吧

tseug · 2003-03-10

参考 http://www.delphibbs.com/delphibbs/dispq.asp?lid=618422

abcd_xp · 2003-03-10

cmd.exe<a.txt

Yhhe · 2003-03-10

tseug,你的是传一个文件过去，能传字符吗？

tseug · 2003-03-10

可以, 那个例子是临时写的, 我正在写一个在GUI下运行DOS程序并可以输入输出 的例子, 估计明天能贴上来...

Yhhe · 2003-03-10

tseug,拜托写好给我发一份，yhhe_zhr@163.net 我研究了几天都没搞定。搞定分全给你

LiChaoHui · 2003-03-10

www.torry.net 上面能找到捕捉Console程序输出的例子 输出能捕捉，输入也一样的

kycheung · 2003-03-10

沒想過耶

Yhhe · 2003-03-10

没有人发言了吗？请大家知无不言!

tseug · 2003-03-11

写了个小例子, 不是很完善, 没有注释, 大家先凑合着看, 有时间再改进...  1 需要增加错误处理,  2 有关管道的读写方式上还可以优化..  3 进程结束的判断方式不是很可靠 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; const   WM_INPUT  = WM_USER + 1;   WM_OUTPUT = WM_USER + 2;   type   TExecThread = class(TThread)   private     FWnd     : HWND;     FCmdLine : String;     FInRead  : THandle;     FInWrite : THandle;     FOutRead : THandle;     FOutWrite: THandle;   protected     procedure Execute; override;   public     constructor Create(aWnd: HWND; const aCmdLine: String);     destructor Destroy; override;   end; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Memo2: TMemo;     procedure Button1Click(Sender: TObject);     procedure Memo2KeyPress(Sender: TObject; var Key: Char);   private     { Private declarations }     FExec : TExecThread;     procedure WMOUTPUT(var Msg: TMessage); message WM_OUTPUT;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} constructor TExecThread.Create(aWnd: HWND; const aCmdLine: String); begin   inherited Create(False);   FreeOnTerminate := True;   CreatePipe(FInRead, FInWrite, nil, 0);   CreatePipe(FOutRead, FOutWrite, nil, 0);   FCmdLine := aCmdLine;   FWnd := aWnd; end; destructor TExecThread.Destroy; begin   CloseHandle(FInWrite);   CloseHandle(FInRead);   CloseHandle(FOutWrite);   CloseHandle(FOutRead);   inherited Destroy; end; procedure TExecThread.Execute; var   SI : TStartupInfo;   PI : TProcessInformation;   EC : Cardinal;   Msg: TMsg;   C  : Char;   N  : Cardinal;   T  : Cardinal;   I  : Cardinal;   Buf: array[0..1023] of Byte; begin   FillChar(SI, SizeOf(TStartupInfo), 0);   SI.cb          := SizeOf(TStartupInfo);   SI.dwFlags     := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;   SI.hStdInput   := FInRead;   SI.hStdOutput  := FOutWrite;   SI.hStdError   := FOutWrite;   SI.wShowWindow := SW_Hide;   if CreateProcess(nil, PChar(FCmdLine), nil, nil, False, 0, nil, nil, SI, PI) then     begin     repeat       Sleep(10);       PeekNamedPipe(FOutRead, @Buf, SizeOf(Buf), @N, @T, nil);       for I := 1 to T do         begin         ReadFile(FOutRead, C, SizeOf(C), N, nil);         if N <> 0 then PostMessage(FWnd, WM_OUTPUT, Ord(C), 0);         end;       if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then         begin         TranslateMessage(Msg);         DispatchMessage(Msg);         if WM_INPUT = Msg.message then           begin           C := Chr(Msg.wParam);           WriteFile(FInWrite, C, SizeOf(C), N, nil);           end;         end;       GetExitCodeProcess(PI.hProcess, EC);     until EC <> STILL_ACTIVE;     CloseHandle(PI.hProcess);     end; end; procedure TForm1.WMOUTPUT(var Msg: TMessage); begin   Memo1.Text := Memo1.Text + Chr(Msg.WParam); end; procedure TForm1.Button1Click(Sender: TObject); begin   FExec := TExecThread.Create(Handle, 'C:/COMMAND.COM'); end; procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char); begin   PostThreadMessage(FExec.ThreadID, WM_INPUT, Ord(Key), 0); end; end.

Yhhe · 2003-03-11

怎么什么都不执行啊？

Yhhe · 2003-03-11

期待高人指点

罗西岛主 · 2003-03-11

PeekNamedPipe(FOutRead, @Buf, SizeOf(Buf), @N, @T, nil)  这句 N & T 为 0 。

Yhhe · 2003-03-11

罗西岛主能说详细点吗？

tseug · 2003-03-11

不会吧, 我试验过, 应该没问题, 不过这个代码在NT/2000下要稍微修改一下 等我出差回来完善....

tseug · 2003-03-11

做了个小小的修改, 主要是解决了NT/2000下的问题, 有2000/NT的帮忙试一下... unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; const   WM_INPUT  = WM_USER + 1;   WM_OUTPUT = WM_USER + 2;   type   TExecThread = class(TThread)   private     FWnd     : HWND;     FCmdLine : String;     FInRead  : THandle;     FInWrite : THandle;     FOutRead : THandle;     FOutWrite: THandle;     function isNT: Boolean;   protected     procedure Execute; override;   public     constructor Create(aWnd: HWND; const aCmdLine: String);     destructor Destroy; override;   end; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Memo2: TMemo;     procedure Button1Click(Sender: TObject);     procedure Memo2KeyPress(Sender: TObject; var Key: Char);   private     { Private declarations }     FExec : TExecThread;     procedure WMOUTPUT(var Msg: TMessage); message WM_OUTPUT;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} constructor TExecThread.Create(aWnd: HWND; const aCmdLine: String); var   SA      : TSecurityAttributes;   SD      : TSecurityDescriptor; begin   inherited Create(False);   FreeOnTerminate := True;   FillChar(SA, SizeOf(TSecurityAttributes), 0);   SA.nLength := SizeOf(TSecurityAttributes);   SA.bInheritHandle := True;   if isNT then     begin     InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION);     SetSecurityDescriptorDacl(@SD, True, nil, False);     SA.lpSecurityDescriptor := @SD;     end;   CreatePipe(FInRead, FInWrite,  @SA, 0);   CreatePipe(FOutRead, FOutWrite, @SA, 0);   FCmdLine := aCmdLine;   FWnd := aWnd; end; destructor TExecThread.Destroy; begin   CloseHandle(FInWrite);   CloseHandle(FInRead);   CloseHandle(FOutWrite);   CloseHandle(FOutRead);   inherited Destroy; end; function TExecThread.isNT: Boolean; var   V : TOSVersionInfo; begin   V.dwOSVersionInfoSize := SizeOf(V);   GetVersionEx(V);   Result := (V.dwPlatformId = VER_PLATFORM_WIN32_NT); end; procedure TExecThread.Execute; var   SI : TStartupInfo;   PI : TProcessInformation;   EC : Cardinal;   Msg: TMsg;   C  : Char;   N  : Cardinal;   T  : Cardinal;   I  : Cardinal;   Buf: array[0..1023] of Byte; begin   GetStartupInfo(SI);   SI.dwFlags     := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;   SI.hStdInput   := FInRead;   SI.hStdOutput  := FOutWrite;   SI.hStdError   := FOutWrite;   SI.wShowWindow := SW_HIDE;   if CreateProcess(nil, PChar(FCmdLine), nil, nil, True, 0, nil, nil, SI, PI) then     begin     repeat       Sleep(10);       PeekNamedPipe(FOutRead, @Buf, SizeOf(Buf), @N, @T, nil);       for I := 1 to T do         begin         ReadFile(FOutRead, C, SizeOf(C), N, nil);         if N <> 0 then PostMessage(FWnd, WM_OUTPUT, Ord(C), 0);         end;       while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do         begin         TranslateMessage(Msg);         DispatchMessage(Msg);         if WM_INPUT = Msg.message then           begin           C := Chr(Msg.wParam);           WriteFile(FInWrite, C, SizeOf(C), N, nil);           end;         end;       GetExitCodeProcess(PI.hProcess, EC);     until EC <> STILL_ACTIVE;     CloseHandle(PI.hThread);     CloseHandle(PI.hProcess);     end; end; procedure TForm1.WMOUTPUT(var Msg: TMessage); begin   Memo1.Text := Memo1.Text + Chr(Msg.WParam); end; procedure TForm1.Button1Click(Sender: TObject); begin   FExec := TExecThread.Create(Handle, 'C:/COMMAND.COM'); end; procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char); begin   PostThreadMessage(FExec.ThreadID, WM_INPUT, Ord(Key), 0); end; end.

Yhhe · 2003-03-13

在2000下还是没什么反应

晕了晕了 · 2003-03-13

峻祁连 · 2003-03-13

winexec你试过没有？

如何控制DOS程序的输入？(300分)

Yhhe

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

abcd_xp

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

kycheung

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

罗西岛主

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

Yhhe

Unregistered / Unconfirmed

晕了晕了

Unregistered / Unconfirmed

峻祁连

Unregistered / Unconfirmed

Similar threads