Как убить процесс сеанса дос.

← →
Chup © (2001-12-03 16:16) [0]

Я выполняю *.bat файл с помощью
procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
pi:PROCESS_INFORMATION;
cmdline:string;
begin ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
cmdline:="wer.bat";
if not CreateProcess( nil,
PChar(cmdline),
nil,
nil,
False,
0,
nil,
nil,
si,
pi )
then
begin
ShowMessage( "CreateProcess failed." );
Exit;
end;
WaitforSingleObject(Pi.hProcess,INFINITE);
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );

end;

Остается черное окно , как его убить?

← →
Holms © (2001-12-04 22:58) [1]

Вообще никаких окон
String fScript = ExtractFilePath(ParamStr(0)) + "temp.sam"; Memo1->Lines->SaveToFile(fScript); String filename = ExtractFilePath(ParamStr(0)) + "samx.exe"; String fArg = fScript; SECURITY_ATTRIBUTES sa; ZeroMemory(&sa, sizeof(sa)); sa.nLength = sizeof(sa); sa.bInheritHandle = true; HANDLE hRead, hWrite; if(!CreatePipe(&hRead, &hWrite, &sa, 0)){ ShowMessage("Cannot create pipe"); return; } STARTUPINFO si; PROCESS_INFORMATION pi; memset(&si, 0, sizeof(si)); si.hStdOutput = hWrite; si.dwFlags = STARTF_USESTDHANDLES | STARTF_USECOUNTCHARS | STARTF_USESHOWWINDOW; si.wShowWindow = SW_HIDE; si.dwXCountChars = si.dwYCountChars = 1; filename += " temp.sam " + Edit1->Text; CreateProcess( NULL, // шыш ы?ср фЁєур яЁюуЁрььр filename.c_str(), NULL, NULL, TRUE, 0, NULL, NULL, &si, &pi); CloseHandle(hWrite); CloseHandle(pi.hThread); CloseHandle(pi.hProcess); String rez; char temp[255]; DWORD dwBytesRead; while(1){ memset(temp, 0, 255); if(!ReadFile(hRead, temp, 255, &dwBytesRead, NULL) || !dwBytesRead) break; rez += temp; } // ShowMessage(rez); Memo2->Lines->Add(rez);

← →
Mick (2001-12-05 16:14) [2]

Если CmdLine будет такого вида:
"Command.com <имя_запускемого_дос_приложения>",
то окно закроется само

← →
NA (2001-12-06 00:04) [3]

"Command.com <имя_запускемого_дос_приложения> /C" - ты хотел сказать, наверное?

P. S. А ввобще можно пойти маразматическим путем - убить окно, найдя его по заголовку :D

← →
Кто-то (2001-12-06 03:49) [4]

Где-то читал, что если последней строчкой в bat-е поставить cls, то окно само закроется.

← →
Mick (2001-12-06 09:24) [5]

to NA
Я хотел сказать:
"Command.com /C <имя_запускаемого_дос_приложения>"

← →
AlexKniga © (2001-12-06 17:22) [6]

CmdLine:="Start wer.bat"

Кстати говоря, вся эта шняга зависит от того, как настроены конкретные command.pif и default.pif в конкретной системе.

Может статься, что останется висеть все то же черное окно с заголовком "(Сеанс завершён) - Сеанс MS-DOS", и никакой /C тут не поможет.

Кто-то: если поставить cls, то окно само очистится от изображения.
Mick: Точно. Мы оба хотели это сказать, но как-то забыли :)

← →
Кто-тто (2001-12-09 01:52) [8]

2 бывший NA
Не пробовал bat через CreateProcess, но при запуске bat обычными средствами Windows, именно закрывается окно ДОСа, если поставить cls.

Этого не достаточно, надо что бы не только последней, но еще и не законченой

Как убить процесс сеанса дос. Найти похожие ветки