[Gribok]

Код:

var
p:string;
begin
p:='/S'+ ' '+ Listbox1.Items[ListBox1.ItemIndex];
ShellExecute(handle,'open','cmd.exe','/K TAsklist /S 192.168.15.28 >> c:\logs.txt','',0);
end;
end.

как вместо /S 192.168.15.28 подставить мою Р???
что /S + Ип брало с выделенной сроки Лист бокса:???

[s0Creator]

Код:

ShellExecute(handle,'open',PChar('cmd.exe','/K TAsklist '+ P +'  >> c:\logs.txt'),'',0);

[Gribok]

Код:

var
pisun:string;
begin
pisun:='/K TAsklist /S '+Listbox1.Items[ListBox1.ItemIndex]+' >> c:\logs.txt';
ShellExecute(handle,'open','cmd.exe',pchar(pisun),'',0);

Admin: Не забываем про теги!