[TJoY]

Имеем батник send.bat следующего содержания:

Код:

@echo off
IF /%1==/ GOTO ERR
f:
cd public
send /a=a
send "hello %1!" to user1
send "hello %1!" to user2
send "hello %1!" to user3
exit
:ERR
echo No parameter!
exit

где %1 это числовой параметр который указывается при запуске батника из командной строки (пример "C:\>send.bat 01"), результат выполнения батника это отправка сообщения hello с номером %1.

Пробую через WinExec

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bb:=ComboBox2.Text;
  if bb='' then
    begin
    MessageBox(Application.Handle,'укажите номер', 'error', MB_OK +MB_ICONEXCLAMATION);
    end else
     WinExec(PChar('c:\send.bat '+bb),SW_SHOW);
    MessageBox(Application.Handle,'good', 'info', MB_OK +MB_ICONINFORMATION);
end;

Все проходит как нада, но хотелось бы ожидать выполнение батника ну и контролировать сам процесс. Решил попробовать через CreateProcess:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 1;
end;
.........
CreateProcess(nil,'c:\send.bat +bb',nil,nil,false, Create_default_error_mode,nil,nil,si,p);
      Waitforsingleobject(p.hProcess,infinite);
.........

Но тут не так все хоршо как хотелось, параметр "bb" он же "%1" в батнике передается не числом а текстом т.е. не "hello 01!" а "hello bb!" , подскажите, что я не так делаю? Или может есть другие варианты запуска батника?

[Rokuell]

Наверно ты кавычку не там поставил
Было:

Код:

CreateProcess(nil,'c:\send.bat +bb',nil,nil,false, Create_default_error_mode,nil,nil,si,p);

Надо:

Код:

CreateProcess(nil,'c:\send.bat' +bb,nil,nil,false, Create_default_error_mode,nil,nil,si,p);

[TJoY]

Сообщение от Rokuell

Наверно ты кавычку не там поставил

а перед тем как написать ты пробовал скомпилить эту строку?
У меня error: Incompatible types: 'String' and 'PAnsiChar'

[PhoeniX]

Код:

CreateProcess(nil,'c:\send.bat' +PAnsiChar(bb),nil,nil,false, Create_default_error_mode,nil,nil,si,p);

[TJoY]

Сообщение от popyurv

Код:

CreateProcess(nil,'c:\send.bat' +PAnsiChar(bb),nil,nil,false, Create_default_error_mode,nil,nil,si,p);

Та же ошибка Incompatible types: 'String' and 'PAnsiChar'

[PhoeniX]

Знач наоборот...)))

[TJoY]

Сообщение от popyurv

Знач наоборот...)))

Это как???

[PhoeniX]

а, не я намудил просто...

Код:

CreateProcess(nil,PAnsiChar('c:\send.bat' +bb),nil,nil,false, Create_default_error_mode,nil,nil,si,p);

[uberchel]

Вот как это едят!

Код:

ShellExecute(Хендл,'сообщение',pchar('прога.exe'),pchar('параметр'),pchar('раб. папка'), SW_ShowNormal);

//как надо!
procedure TForm1.Button1Click(Sender: TObject);
var bb: string;
begin
if bb = ComboBox1.Text then
MessageBox(Handle,'укажите номер', 'error', 48)
else begin
ShellExecute(Handle,'open',pchar('C:\send.bat'),pchar(bb),nil,SW_HIDE);
MessageBox(Handle,'good', 'info', 64);
end;

Помог? если да то нажмите на весы с права =)

[TJoY]

Сообщение от uberchel

Вот как это едят!

И как тогда контролировать выполнение проги?
Если кому интересно все работает замечательно и параметр передает как надо

Код:

CreateProcess(nil,PChar('c:\send.bat '+bb),nil,nil,false, Create_default_error_mode,nil,nil,si,p);

Спасибо за подсказку popyurv