Menangkap Output Dari Proses Aplikasi Console

Program sederhana ini fungsinya seperti RUN pada windows.

Desain Form seperti gambar berikut :



Tambahkan fungsi GetDosOutput :

function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string;<br /> var<br /> SA: TSecurityAttributes;<br /> SI: TStartupInfo;<br /> PI: TProcessInformation;<br /> StdOutPipeRead, StdOutPipeWrite: THandle;<br /> WasOK: Boolean;<br /> Buffer: array[0..255] of AnsiChar;<br /> BytesRead: Cardinal;<br /> WorkDir: string;<br /> Handle: Boolean;<br /> begin<br /> Result := '';<br /> with SA do<br /> begin<br /> nLength := SizeOf(SA);<br /> bInheritHandle := True;<br /> lpSecurityDescriptor := nil;<br /> end;<br /> CreatePipe (StdOutPipeRead, StdOutPipeWrite, @SA, 0);<br /> try<br /> with SI do<br /> begin<br /> FillChar(SI, SizeOf(SI), 0);<br /> cb := SizeOf(SI);<br /> dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;<br /> wShowWindow := SW_HIDE;<br /> hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin<br /> hStdOutput := StdOutPipeWrite;<br /> hStdError := StdOutPipeWrite;<br /> end;<br /> WorkDir := Work;<br /> Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);<br /> CloseHandle(StdOutPipeWrite);<br /> if Handle then<br /> try<br /> repeat<br /> WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);<br /> if BytesRead > 0 then<br /> begin<br /> Buffer[BytesRead] := #0;<br /> Result := Result + Buffer;<br /> end;<br /> until not WasOK or (BytesRead = 0);<br /> WaitForSingleObject(PI.hProcess, INFINITE);<br /> finally CloseHandle(PI.hThread);<br /> CloseHandle(PI.hProcess);<br /> end;<br /> finally<br /> CloseHandle(StdOutPipeRead);<br /> end;<br /> end;
Souce code pada tombol OK :
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> Memo1.Text := GetDosOutput(Edit1.Text);<br /> end;
Source Code Lengkap :
unit Unit1;<br /> <br /> interface<br /> <br /> uses<br />   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />   Dialogs, StdCtrls;<br /> <br /> type<br />   TForm1 = class(TForm)<br />     Edit1: TEdit;<br />     Memo1: TMemo;<br />     Button1: TButton;<br />     Label1: TLabel;<br />     Label2: TLabel;<br />     procedure Button1Click(Sender: TObject);<br />   private<br />     { Private declarations }<br />   public<br />     { Public declarations }<br />   end;<br /> <br /> var<br />   Form1: TForm1;<br /> <br /> implementation<br /> <br /> {$R *.dfm}<br /> <br /> function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string;<br /> var<br /> SA: TSecurityAttributes;<br /> SI: TStartupInfo;<br /> PI: TProcessInformation;<br /> StdOutPipeRead, StdOutPipeWrite: THandle;<br /> WasOK: Boolean;<br /> Buffer: array[0..255] of AnsiChar;<br /> BytesRead: Cardinal;<br /> WorkDir: string;<br /> Handle: Boolean;<br /> <br /> begin<br /> Result := '';<br /> with SA do<br /> begin<br /> nLength := SizeOf(SA);<br /> bInheritHandle := True;<br /> lpSecurityDescriptor := nil;<br /> end;<br /> CreatePipe (StdOutPipeRead, StdOutPipeWrite, @SA, 0);<br /> <br /> try<br /> with SI do<br /> begin<br /> FillChar(SI, SizeOf(SI), 0);<br /> cb := SizeOf(SI);<br /> dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;<br /> wShowWindow := SW_HIDE;<br /> hStdInput := GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin<br /> hStdOutput := StdOutPipeWrite;<br /> hStdError := StdOutPipeWrite;<br /> end;<br /> <br /> WorkDir := Work;<br /> Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);<br /> CloseHandle(StdOutPipeWrite);<br /> <br /> if Handle then<br /> try<br /> repeat<br /> WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);<br /> if BytesRead > 0 then<br /> begin<br /> Buffer[BytesRead] := #0;<br /> Result := Result + Buffer;<br /> end;<br /> <br /> until not WasOK or (BytesRead = 0);<br /> WaitForSingleObject(PI.hProcess, INFINITE);<br /> finally<br /> CloseHandle(PI.hThread);<br /> CloseHandle(PI.hProcess);<br /> end;<br /> <br /> finally<br /> CloseHandle(StdOutPipeRead);<br /> end;<br /> end;<br /> <br /> procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> Memo1.Text := GetDosOutput(Edit1.Text);<br /> end;<br /> <br /> end.
Hasil Screenshot Program :



Contoh pada gambar di atas menjalankan calculator

Program + Source Code dapat di download di SINI