Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: 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 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
14-51489
Ghost555
2003-09-29 05:47
2003.10.16
Как защитить свою программу от DeDe?


1-51192
zumo
2003-10-04 19:24
2003.10.16
Горячая тема


14-51399
Nickola2
2003-09-26 14:38
2003.10.16
урааа, сегодня пятница


6-51373
BorH
2003-08-22 23:47
2003.10.16
TCP Сервер и обработка команд в цикле.


1-51205
User_OKA
2003-10-07 10:15
2003.10.16
IntToHex