Как правильно поставить условие?

[hacker_007]

Сделал для бота функцию для управления компом через консоль, задумка была такая: отсылаешь ему команду, например !cmd start write.exe, и на компе открывается write.exe, но вот встал вопрос, как правильно написать условие, если оставить как есть:

if Msg = '!cmd' then
begin
Msg := StringReplace(Msg, '!cmd', '',[rfReplaceAll, rfIgnoreCase]);
ShellExecute(0,'open','cmd.exe','/k' + Msg + ','C:\Windows\system32\',SW_SHOW);
end
else

то от него толку нуль... Отправил !cmd start writen.exe он запустил write.exe отправил !cmd start ipconfig он вывел конфиг...

if Msg = '!cmd' then Если сообщение равно !cmd, то...
Если сделать так: if Msg = '!cmd start write.exe' then
То будет откликаться только на эту команду, а на другие, например: !cmd ipconfig он уже работать не будет...
Тык вот, как же правильно составить условие?

[Stilet]

var s:TStringList;
begin
 s:=TStringList.Create;s.DelimitedText:=Команда;
 if s[0]= '!cmd' then begin
   if s[1]='start' then ShellExecute(0,'open',pchar(s[2]),'C:\Windows\system32\',SW_SHOW);
   if s[1]='stop'  then Завершаем процесс с именем s[3]
 end else ...
...
s.free;
end;

Ферштейн, студенте?

[hacker_007]

ферштейне.... но не пашет...

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var 
s:TStringList;
msge: string;
begin
Msge := StringReplace(Msg, '!cmd', '',[rfReplaceAll, rfIgnoreCase]);
s := TStringList.Create;s.DelimitedText:=Msge;
if s[0]= '!cmd' then begin
if s[1]='start' then ShellExecute(0,'open','cmd.exe','/k' + pchar(s[2]) + ','C:\Windows\system32\',SW_SHOW);
if s[1]='stop'  then
end
else
s.free;
end;

Может я туплю?

ShellExecute(0,'open','cmd.exe','/k' + pchar(s[2]) + ','C:\Windows\system32\',SW_SHOW);

эта часть его не устраивает...

[Error] Unit1.pas(88): Undeclared identifier: 'ShellExecute'
[Error] Unit1.pas(88): Missing operator or semicolon
[Error] Unit1.pas(88): '.' expected but identifier 'system32' found
[Error] Unit1.pas(89): Missing operator or semicolon
[Error] Unit1.pas(135): Statement expected but 'PROCEDURE' found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

[Stilet]

Undeclared identifier: 'ShellExecute'

Значит в uses не хватает модуля shellapi

else
s.free;

Одумайся, кстати... Или закончи код иначе гарантированы утечки памяти.

[Человек_Борща]

ферштейне.... но не пашет...

А оно и не будет пахать, если вот так бездумно копипаст делать..

[NetSpace]

ShellExecute не понимает?

может, модуль какой подключить надо в uses?

[hacker_007]

Так, с этим разобрался... ошибка в той же строке

[Error] Unit1.pas(88): Incompatible types: 'Integer' and 'PAnsiChar'

[NetSpace]

 ','C:\

а может тут запятой нет после кавычки?
вот в этой строчке:

ShellExecute(0,'open','cmd.exe','/k' + pchar(s[2]) + ','C:\Windows\system32\',SW...

[hacker_007]

там все норм... вот раб. состояние:

ShellExecute(0,'open','cmd.exe','/k start write.exe ','C:\Windows\system32\',SW_SHOW);

А в моём случае:

ShellExecute(0,'open','cmd.exe','/k' + pchar(s[2]) + ','C:\Windows\system32\',SW_SHOW);

[Error] Unit1.pas(88): Incompatible types: 'String' and 'PAnsiChar'
[Error] Unit1.pas(88): '.' expected but identifier 'system32' found
[Error] Unit1.pas(89): Missing operator or semicolon

[Вадим Мошев]

[Error] Unit1.pas(88): Incompatible types: 'String' and 'PAnsiChar'

Несовместимые типы "Строка" и "PAnsiChar (указатель на Ansi-символ"

[Error] Unit1.pas(88): '.' expected but identifier 'system32' found

вместо точки обнаружен идентификатор "system32"

[Error] Unit1.pas(89): Missing operator or semicolon

пропущен оператор или точка с запятой