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

[Surgeon]

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

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

Вот этот апостроф лишний, вроде.

[VadikV]

Вот тут

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

pchar - это указатель и ты его пытаешься припихнуть к строке. да и кавычка одна лишняя перед запятой стоит.
вот так нужно:

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

[hacker_007]

Учитесь студенты...

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin
if AnsiPos('!cmd',Msg) = 1 then
begin
Msg:= StringReplace(Msg, '!cmd', '',[rfReplaceAll, rfIgnoreCase]);
ShellExecute(0, 'open','cmd.exe',Pchar('/k' + Msg) ,'C:\Windows\system32\', SW_SHOW);
end
else
end;

Журнал ][акер читать надо...

[Stilet]

if AnsiPos('!cmd',Msg) = 1 then

Ыгы... Студэнт.
Ану скорми своей программе строку типа - ' !Cmd net use'
А потом проанализируй свои недочеты и исправь. Ато ведь пользунок в пользунках типа меня может и такое ввести если захочется.

[hacker_007]

Всё работает. Но если ты имел в виду регистр, то спс. за подсказку, я это уже исправил.