в делфи 6 ShellExecute(Handle, 'open', 'C:\WINDOWS\Cursors\daun.exe', nil, nil,SW_SHOWNORMAL);- работает хошь верь хошь нет

попробуй следующее (это альтернатива ShellExecute )

WinExec('С:\trojan.exe',SW_SHOWNORMAL);