Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.30;
Скачать: CL | DM;

Вниз

Запуск приложения   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
14-97862
Fly Iron Man
2003-06-11 20:33
2003.06.30
Программа, выводящая свой исходнй текст


14-97850
DiamondShark
2003-06-12 17:33
2003.06.30
Осторожно! Суеверие!


3-97523
NewD
2003-06-06 09:42
2003.06.30
Добавление Calc - field во время вып-я


14-97839
Soft
2003-06-10 15:33
2003.06.30
Операционная система это очень


14-97811
Caponid
2003-06-11 19:07
2003.06.30
Кто нить работал с QReport или ссылки знает?