[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;

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