[TC] скрипт на запуск сп омощью.
Здравствуйте, industry!
от чтото не хочет работать этот скрипт
Script OpenWithApp (string app1)
Var
object oShellWin,
object oItems,
Int i,
String sItem
let oShellWin = GetShellWin ()
let oItems = oShellWin.SelectedItems
let i=0
While i < oItems.Count
Let sItem = formatString(BlankDelimLst , sItem, oItems(i).Name)
Let i = i + 1
EndWhile
if StringIsBlank (sItem ) then
Let sItem = formatString(BlankDelimLst , sItem, oShellWin.FocusedItem.Name)
endIf
CreateObject("Shell.Application").ShellExecute(app, sItem, stringChopRight(oShellWin.FocusedItem.Path,
StringLength(oShellWin.FocusedItem.Name)))
EndScriptВ
пишет вот такую ошибку
oring previous definition of OpenWithApp()
ОКп
рошу помогите как это победить? заранее спасибо откликнувшимся!
Здравствуйте, Алексей.
Вы писали 22 декабря 2012 г., 22:46:39:
от куда вы взяли этот текст скрипта?
почему у вас
в скобках идёт после app "1", причём тут еденичка?
дайте исходник откуда вы это брали.