[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: Не забываем про теги!