Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Вниз
Запуск приложения Найти похожие ветки
← →
Noy (2003-06-17 13:26) [0]Люди помогите. Пытаюсть выполнить строку cmd.exe net view > qwe.txt"
Пишу код
procedure TForm1.Button1Click(Sender: TObject);
var
n :Pchar;
StartupInfo :TStartupInfo;
ProcessInfo :TProcessInformation;
begin
n:="cmd.exe net view > qwe.txt";
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb:=Sizeof(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=SW_SHOWNORMAL;
Createprocess(nil,n,nil,nil,false,Create_default_error_mode,nil,nil,StartupInfo,ProcessInfo);
end;
Вызывается только крнсоль и все. Что делать ?
← →
ggsoft (2003-06-17 13:31) [1]Для начала просто запусти "cmd.exe /?" из командной строки
А вообще-то надо: "cmd.exe /K net view > qwe.txt"
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c