[Gribok]

Код:

1 2 3 4 5 6 7

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]

Код:

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

[Gribok]

Код:

1 2 3 4 5

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

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