Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.04;
Скачать: CL | DM;

Вниз

Запуск скрипта!   Найти похожие ветки 

 
serko ©   (2006-05-13 21:21) [0]

Я ручками выполняю в коммандной строке скрипт так:
cscript.exe "C:\Program Files\TrafInsp\scripts\addcach1u.vbs" 123 СерёгаБ. 2,0 /sn:Server

Как мне его запустить через Delphi?

PS Там 4 параметра команд. строки!


 
Жуков Олег   (2006-05-13 21:48) [1]

См. ShellExecute или CreateProcess. ShellExecute попроще.


 
serko ©   (2006-05-13 23:16) [2]

Та я смотрел ShellExecute, но у меня почему то не получается!

Покажите на примере!


 
Шпиён   (2006-05-13 23:28) [3]

Пример:
(с двумя параметрами):

uses ShellAPI;
................
ShellExecute(0, nil, "wscript.exe", "Get.js 65535 abcde", nil, sw_ShowNormal);


Скрипт Get.js:

var objArgs = WScript.Arguments;
var d =new Date(objArgs(0)*1000);
var s = objArgs(0)+" = " +d;
var ss = objArgs(1);
WScript.Echo(s);
WScript.Echo(ss);


 
Шпиён   (2006-05-13 23:36) [4]

Второй пример:

ShellExecute(0, nil, "wscript.exe", ""D:\program files\Get.js" 65535 "abcde fgh"", nil, sw_ShowNormal);


 
serko ©   (2006-05-14 23:46) [5]


> Шпиён   (13.05.06 23:36) [4]

Не могу проверить срабатывает скрипт или какая то ошибка выскакивает!
Как сделать чтобы окно коммандной строки сразу не закрывалось?


 
serko ©   (2006-05-15 13:09) [6]

Ребят ну помогите!


 
Шпиён   (2006-05-15 17:12) [7]

Попробуй так:

ShellExecute(0, nil, "cmd", " /k cscript.exe Get.js 65535 "abcde fgh"", nil, sw_ShowNormal);

cmd /k Carries out the command specified by string but remains


 
serko ©   (2006-05-15 18:40) [8]

Спасибо! Работает!



Страницы: 1 вся ветка

Текущий архив: 2006.06.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.057 c
15-1146837402
Непонятно кто
2006-05-05 17:56
2006.06.04
А что такое TV-тюнер


2-1148159280
<X>
2006-05-21 01:08
2006.06.04
Получить Index выделеных ячеек.


15-1146829478
fast2
2006-05-05 15:44
2006.06.04
Что такое NetBIOS?


2-1147794206
Laymer
2006-05-16 19:43
2006.06.04
Перемещение изображения


1-1146061673
Unnamed Player
2006-04-26 18:27
2006.06.04
ScrollBy