|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Добавить параметры в CreateProcess
Который день бьюсь, почитал много, но понять не могу как использовать CreateProcess с несколькими параметрами.
Код:
procedure TForm1.Button1Click(Sender: TObject); var DSTN: LongBool; StartUpInfo: TStartUpInfo; ProcessInfo: TProcessInformation; Error: integer; InFName, OFName, params: string; ComApp: PAnsiChar; begin if OpDlg1.Execute then IFName := ExtractFileName(OpDlg1.FileName); OFName := ' MyDoc.txt'; params := IFName + OFName; FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0); with StartUpInfo do begin cb := SizeOf(TStartUpInfo); dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; wShowWindow := SW_SHOWNORMAL; end; DSTN := CreateProcess('Conv.exe ', params, nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo); if DSTN then with ProcessInfo do begin WaitForInputIdle(hProcess, INFINITE); CloseHandle(hThread); CloseHandle(hProcess); end else Error := GetLastError; end; |
#2
|
|||
|
|||
А пробел между значениями в params кто будет стаить???
Код:
params := IFName + ' ' + OFName; |
#3
|
|||
|
|||
Сделал так, как вы сказали. Поставил пробел, всё равно ничего не происходит.
|
#4
|
|||
|
|||
А, ну да, в том варианте, который, как ты говоришь, работает, еще пробел перед параметрами, т.е.:
Код:
params := ' ' + IFName + ' ' + OFName; |