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

Вниз

CreateProcess или что делаю не так?   Найти похожие ветки 

 
BillyJeans ©   (2003-07-01 09:23) [0]

Подскажите, почему не работает следующий код?

procedure TMainForm.StartClick;
var
FileName: String;
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
FileName := "Start.bat"#0;
ZeroMemory(@si, SizeOf(STARTUPINFO));
si.cb := SizeOf(STARTUPINFO);
si.wShowWindow := SW_HIDE;
si.dwFlags := STARTF_USESHOWWINDOW;
CreateProcess(nil, PChar(FileName), nil, nil, False,
IDLE_PRIORITY_CLASS or DETACHED_PROCESS,
( pi.hThread) Подскажите, почему не работает следующий код?

procedure TMainForm.StartClick;
var
FileName: String;
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
FileName := "Start.bat"#0;
ZeroMemory(@si, SizeOf(STARTUPINFO));
si.cb := SizeOf(STARTUPINFO);
si.wShowWindow := SW_HIDE;
si.dwFlags := STARTF_USESHOWWINDOW;
CreateProcess(nil, PChar(FileName), nil, nil, False,
IDLE_PRIORITY_CLASS or DETACHED_PROCESS,
nil, nil, si, pi);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
end;


 
Lord Warlock ©   (2003-07-01 09:33) [1]

может вот по этому:

FileName := "Start.bat"#0;

тк CreateProcess - API функция, ей надо передавать полный путь к файлу.
А еще посмотри, что возвращает CreateProcess, True или False


 
BillyJeans ©   (2003-07-01 09:47) [2]

я уже пробовал
FileName := "c:\Start.bat"#0;
и всеравно :(


 
Lord Warlock ©   (2003-07-01 10:03) [3]

Еще вызывают подозрение флаги, лично я выставляю 0.


 
BillyJeans ©   (2003-07-01 13:24) [4]

из флагов оставил только DETACHED_PROCESS, вроде даже заработало!
Но под w98 в памяти после выполнения батника остается процесс :(
Под w2000 батник отработав выгружается из памяти нормально.


 
Morfein ©   (2003-07-01 16:22) [5]

А причём здесь вообще CreateProcess()?

uses
ShellAPI;

begin
ShellExecute(0, nil, "start.bat", nil, nil, SW_SHOWNORMAL);
end;



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-1409
npAKTuk
2003-08-15 20:29
2003.09.01
Полный разворот директории?


4-1732
DelphiN!
2003-06-30 07:58
2003.09.01
Как сохранить позицию Scrollbar-а?


6-1538
Hff
2003-06-25 14:51
2003.09.01
Как разобрать входящую почту ?


14-1564
McSimm
2003-08-10 16:03
2003.09.01
Об изменениях в форумах


1-1390
imp403
2003-08-16 12:57
2003.09.01
64x Icon