Cita:
Empezado por aeff
...no puedo alcanzar el link que me recomiendas: GetDosOutput, por algunas razones...
|
Código Delphi
[-]
unit consoleoutput;
interface
uses
Controls, Windows, SysUtils, Forms;
function GetDosOutput(CommandLine:string): string;
function ExecuteDOSCommand(CommandLine:string): string;
implementation
function ExecuteDOSCommand(CommandLine:string): string;
var
cmdbuffer: Array [0..MAX_PATH] of Char;
begin
GetEnvironmentVariable( 'COMSPEC', cmdBUffer, Sizeof(cmdBuffer));
CommandLine := cmdbuffer + ' /C ' + CommandLine;
Result := GetDosOutput(CommandLine);
end;
function GetDosOutput(CommandLine:string): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of Char;
BytesRead: Cardinal;
WorkDir, Line: String;
begin
Application.ProcessMessages;
with SA do
begin
nLength := SizeOf(SA);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0 );
try
with SI do
begin
FillChar(SI, SizeOf(SI), 0);
cb := SizeOf(SI);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := SW_HIDE;
hStdInput := GetStdHandle(STD_INPUT_HANDLE); hStdOutput := StdOutPipeWrite;
hStdError := StdOutPipeWrite;
end;
WorkDir := ExtractFilePath(CommandLine);
WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI);
CloseHandle(StdOutPipeWrite);
if not WasOK then
raise Exception.Create('Could not execute command line!')
else
try
Line := '';
repeat
WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
if BytesRead > 0 then
begin
Buffer[BytesRead] := #0;
Line := Line + Buffer;
end;
until not WasOK or (BytesRead = 0);
WaitForSingleObject(PI.hProcess, INFINITE);
finally
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
result:=Line;
CloseHandle(StdOutPipeRead);
end;
end;
end.
Cita:
Empezado por aeff
... pero ahora el problema es ¿como puedo leer los datos de la consola? y en un momento dado como puedo dar entrada de los datos a través de algún codigo sin tener que hacerlo via teclado...
|
Puedes mandar las teclas a cualquier ventana, por ejemplo puedes utilizar el evento OnKeyPress para aprovechar y mandar un mensaje a la ventana de la consola abierta:
Código Delphi
[-]
PostMessage(Handle_Consloa, WM_CHAR, Key, 0);
Saludos.