Проблемка при создании ICQ Bot'а

[Lauri]

Всем привет. Подскажите плз как сделать так, что б бот понимал мои команды. Вернее команды забиваются в коде, т.е

if msg='run notepad.exe' then
   begin
ShellExecute(Handle, 'open', 'notepad.exe', nil, nil, SW_SHOWNORMAL);
    end;

тут открытие notepad

А как сделать так, что б при команде run * (Где * - путь к программе) оно её открывало.
Я знаю что я туго обьясняю.

[Dj_smart]

if pos('run',msg)=1 then begin
  ShellExecute(Handle, 'open', PAnsiChar(Copy(msg,Pos(' ',msg)+1,Length(msg)), nil, nil, SW_SHOWNORMAL);
end;

Только оптимизируй а то до быдлокода недалеко

[Lauri]

Dj_smart можна полный код такой процедуры? А то у меня руки кривые((

[Пепел Феникса]

он исправил тот же кусочек что Вы указали, я б сделал так:

if Copy(msg,1,3)='run' then ShellExecute(Handle,nil,PChar(Copy(msg,4,Length(msg))), nil, nil, SW_SHOWNORMAL);

я так полагаю это Вам надо в событие получения сообщения поставить(причем msg это само сообщение)