получение консольного вывода

← →
zumo © (2003-10-04 18:25) [0]

как получить консольный вывод встроеных команд интерпретатора типа dir cd type итд, стандартные методы не помогают , или киньте линк на пример проги типа консоли (cmd.exe)...
И кстати ктонибудь понял как через ticq отправлять \принимать файлы ?

← →
Palladin © (2003-10-04 18:38) [1]

какие стандартные методы конкретно?

← →
zumo © (2003-10-04 19:11) [2]

procedure ExecConsoleApp(CommandLine: AnsiString; Output: TStringList; Errors:
TStringList);
var
sa: TSECURITYATTRIBUTES;
si: TSTARTUPINFO;
pi: TPROCESSINFORMATION;
hPipeOutputRead: THANDLE;
............................
end;

WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(hPipeOutputRead);
CloseHandle(hPipeErrorsRead);
end;

или

function GetDosOutput(const CommandLine: string): string;
var
SA: TSecurityAttributes;
SI: TStartupInfo;
PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array[0..255] of Char;
BytesRead: Cardinal;
.......................................
// Закрываем все оставшиеся дескрипторы
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
finally
result := Line;
CloseHandle(StdOutPipeRead);
end;
end;

получение консольного вывода Найти похожие ветки