Скачать: CL | DM;

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

← →
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;

---

← →
Е-Моё имя ©   (2003-10-05 02:08) [3]

> [2] zumo © (04.10.03 19:11)

а под точками?
в закрытии хэндлов трудно ошибку найти

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c