:: STRCPY - Super Coder's Page

'DOS Command Capture'에 해당되는 글 1건

2007/09/19 How to capture the output from a DOS (command/console) Window

2007/09/19 08:09

How to capture the output from a DOS (command/console) Window

2007/09/19 08:09 in Borland Delphi

The example runs chkdsk.exe c:\' and displays the output to Memo1.
Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this code in the OnCLick event procedure for Button1:

procedure TForm1.Button1Click(Sender: TObject) ;

procedure RunDosInMemo(DosApp:String;AMemo:TMemo) ;
const
   ReadBuffer = 2400;
var
   Security :TSecurityAttributes;
   ReadPipe,WritePipe : THandle;
   start :TStartUpInfo;
   ProcessInfo :TProcessInformation;
   Buffer : Pchar;
   BytesRead : DWord;
   Apprunning : DWord;
begin
   With Security do begin
nlength := SizeOf(TSecurityAttributes) ;
binherithandle := true;
lpsecuritydescriptor := nil;
   end;
   ifCreatepipe (ReadPipe, WritePipe, @Security, 0) then begin
Buffer := AllocMem(ReadBuffer + 1) ;
FillChar(Start,Sizeof(Start),#0) ;
start.cb := SizeOf(start) ;
start.hStdOutput := WritePipe;
start.hStdInput := ReadPipe;
start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;

ifCreateProcess(nil,
   PChar(DosApp),
   @Security,
   @Security,
   true,
   NORMAL_PRIORITY_CLASS,
   nil,
   nil,
   start,
   ProcessInfo)
then
begin
   repeat
Apprunning :=WaitForSingleObject
   (ProcessInfo.hProcess,100) ;
Application.ProcessMessages;
   until (Apprunning <> WAIT_TIMEOUT) ;
Repeat
BytesRead := 0;
ReadFile(ReadPipe,Buffer[0], ReadBuffer,BytesRead,nil) ;
Buffer[BytesRead]:= #0;
OemToAnsi(Buffer,Buffer) ;
AMemo.Text := AMemo.text + String(Buffer) ;
until (BytesRead < ReadBuffer) ;
   end;
   FreeMem(Buffer) ;
   CloseHandle(ProcessInfo.hProcess) ;
   CloseHandle(ProcessInfo.hThread) ;
   CloseHandle(ReadPipe) ;
   CloseHandle(WritePipe) ;
   end;
end;

begin {button 1 code}
RunDosInMemo('chkdsk.exe c:\',Memo1) ;
end;

Posted by Super Coder