Этот делфийский код делает тоже самое, что и бейсиковский скрипт, но у меня он не пошёл, нету некоторых функций, а исходник IS разбирать неохота совершенно, может тогда проще установить Microsoft ScriptControl (есть на вкладке ActiveX) и скормить ему содержимое скрипта посредством AddCode, на выполнение вызывается функия Run, у неё в Parameters заносятся путь и имя ярлыка, тогда и никаких "лишних" файлов не будет
|