Главная страница
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
1-51160
_qq
2003-10-07 12:42
2003.10.16
Помогите с ООП


1-51306
OlegS
2003-10-05 16:36
2003.10.16
Системы поиска


1-51207
leonidus
2003-10-03 09:51
2003.10.16
Компоненты в стиле XP


14-51464
Dimaz-z
2003-09-29 15:49
2003.10.16
Юзвери...


3-51139
Zn
2003-09-24 17:55
2003.10.16
Как подключиться к удалённому InterBase-серверу