执行DOS命令的DELPHI控件:
property StdOutRead :THandle read fOutputRead;
property StdInWrite :THandle read fInputWrite;
property StdErrRead :THandle read fErrorRead;
procedure PrepareStartupInformation(var info:TStartupInfo);
public
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
procedure Run(fileName,cmdLine,directory:string);
procedure AddInputText (const st :string);
procedure Terminate;
property ReturnValue:DWORD read fReturnValue;
property OutputText:TStrings read fOutputText;
property ErrorText:TStrings read fErrorText;
property Running : boolean read fRunning;
published
property OnOutputText :TOnText read fOnOutputText write fOnOutputText;
property OnErrorText :TOnText read fOnErrorText write fOnErrorText;
property OnTerminate :TNotifyEvent read fOnTerminate write fOnTerminate;
end;